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

ملحوظة: يتم تعديل الخصائص التالية لأداة الصورة كالتالى
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

انتهى