فيجيوال بيسك - التطبيق ( 5 )

التطبيق ( 5 ) :
الهدف : استخدام الأدوات ( Drive list Box ) و ( Dir list box ) و ( File list Box ) .



الوصف: مستعرض صور ( BMP,JPG ) مبسط .

Private Sub cmdExit_Click()
End
End Sub
-------------------------------------------------------------------
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
-------------------------------------------------------------------
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
-------------------------------------------------------------------
Private Sub File1_Click()
selectedfile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(selectedfile)
txtAddress.Text = selectedfile
End Sub



ملاحظات :
File1.Pattern = *.bmp;*.jpg
Image1.stretch = True
Image1.borderStyle = fixed single