CODE
Form 1
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 temp As String
temp = Dir1.Path
If Right(temp, 1) = "\" Then
Picture1.Picture = LoadPicture(Dir1.Path & File1.FileName)
Else
Picture1.Picture = LoadPicture(Dir1.Path & File1.FileName)
End If
End Sub

0 comments:
Post a Comment