Monday, 4 April 2016

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

No comments:

Post a Comment