图片浏览器软件
图片浏览器软件.rar 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
FileName = File1.Path + "\" + File1.FileName
Else
FileName = File1.Path + File1.FileName
End If
Image1.Picture = LoadPicture(FileName)
End Sub
Private Sub Form_Load()
Drive1.Drive = "c:"
Dir1.Path = "c:\Documents and Settings"
File1.Pattern = "*.jpg;*.bmp;*.gif;*.jpeg;*.pcx;*.png;*.gif;*.tif;*.swf"
End Sub
图片流览器软件.rar
(4.07 KB)
