The source code
Private Sub Command1_Click( ) If Right(File1.Path,1)<>"\" Then filenam=File1.Path+"\"+File1.FileName Else filenam=File1.Path+File1.FileName End If Picture1.Picture=LoadPicture(filenam) End Sub Private Sub Dir1_Change( ) File1.Path=Dir1.Path File1.Pattern=("*.bmp") End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive End Sub
If Right(File1.Path,1)<>"\" Then
filenam=File1.Path+"\"+File1.FileName Else filenam=File1.Path+File1.FileName End If
End If
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path File1.Pattern=("*.bmp")
Private Sub Drive1_Change( )
Dir1.Path=Drive1.Drive
[Back to Sample Page]