authentication required

برنامج عارض الصور

 

ملحوظة: يتم تعديل الخصائص التالية لأداة الصورة كالتالى
border style = 1
stretch = true

وتعديل الخاصية pattern للأداة file1 كالتالى:
pattern = *.jpg;*.gif;*.ico;*.bmp

الأكواد كالتالى:

private sub drive1_change()
dir1.path = drive1.drive
end sub

private sub dir1_change()
file1.path=dir1.path
end sub

يتم الاعلان عن المتغير (selectedfile) من النوع variant


private sub file1_change()
selectedfile = file1.path & "/" & file1.filename
image1.picture = loadpicture (selectedfile)
if file1.filename = error then
msgbox (fileerror)
end if
end sub

انتهى

المصدر: Basma Ahmed
lameesonline

basma ahmed

  • Currently 112/5 Stars.
  • 1 2 3 4 5
37 تصويتات / 753 مشاهدة

ساحة النقاش

عدد زيارات الموقع

86,542