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: