Lab 5:Write a Visual Basic Program to Load an image using filelist box, directory list box & drive list box
Private Sub Command1_Click()
Dim str As String
str = File1.Path + "/" + File1.FileName
Image1.Picture = LoadPicture(str)
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Dim str As String
str = File1.Path + "/" + File1.FileName
Image1.Picture = LoadPicture(str)
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Leave a Comment