View Pictures

by Osama Ali (3 Submissions)
Category: OLE/COM/DCOM/Active-X
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 12^th October 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

View Pictures

Rate View Pictures




Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If Right(File1.Path, 1) = "\" Then
imagename = File1.Path + File1.FileName
Else
imagename = File1.Path + "\" + File1.FileName
End If
Image1.Picture = LoadPicture(imagename)
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub menuExit_Click(Index As Integer)
End
End Sub

Private Sub submenuzoomin_Click(Index As Integer)
Image1.Stretch = True
Image1.Refresh
End Sub

Private Sub submenuzoomout_Click(Index As Integer)
Image1.Stretch = False
Image1.Refresh
End Sub

Download this snippet Add to My Saved Code

View Pictures Comments

No comments have been posted about View Pictures. Why not be the first to post a comment about View Pictures.

View Pictures

View Pictures Comments

Post your comment

Difficulty