Picture box, Drive, Directory, File list box’s

  VB Application demonstrating :Picture box, Drive, Directory, File list box’s


 
control
Property
value
Form
caption
Open
Label1
caption
Drive
Label2
Caption
Directory
Label3
Caption
File
Command1
caption
Exit
Command1
Font
MS scan serif,12p
Form
Window size
Maximized
Picture1
DESIGN VIEW:
 
CODING:
Private Sub Command1_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()
Dim f As String
f = Dir1.Path & "/" & File1.FileName
Picture1.Picture = LoadPicture(f)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.bmp"
End Sub
OUTPUT:
Post a Comment

Picture box, Drive, Directory, File list box’s

  VB Application demonstrating :Picture box, Drive, Directory, File list box’s


 
control
Property
value
Form
caption
Open
Label1
caption
Drive
Label2
Caption
Directory
Label3
Caption
File
Command1
caption
Exit
Command1
Font
MS scan serif,12p
Form
Window size
Maximized
Picture1
DESIGN VIEW: