Question

VB做一个简单的图片浏览器，谁有代码？

怎么用VB做一个图片浏览器？
要求做到可以打开图片文件，
可以浏览下一张图片，上一张图片，
可以放大和缩小图片，
最难的是做简略图。
哪个高手有相关代码啊！？
。
有多少发多少啊！谢谢了。
我是VB新手啊！不太会，呵呵。大家多多帮助啊！

Answer 1

我只会做到下面的代码了.其中:
Dir1-目录列表控件
Drive1-驱动器列表控件
File1-文件列表控件
Image1-图像控件
Text1-文本框控件
Option1-单选控件(Caption为"通过单击浏览")
Option2-单选控件(Caption为"通过双击浏览")

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo DriErr
Dir1.Path = Drive1.Drive
Exit Sub
DriErr:
If Err.Number = 68 Then
If MsgBox("请问要重试还是取消?", vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!") = vbRetry Then
Resume 0
Else
Drive1.Drive = "C:"
Resume Next
End If
End If
End Sub
Private Sub File1_Click()
If Option2.Value = True Then Exit Sub
Dim picFile As String
If Right(Dir1.Path, 1) = "\" Then
picFile = Dir1.Path + File1.FileName
Else
picFile = Dir1.Path + "\" + File1.FileName
End If
Image1.Picture = LoadPicture(picFile)
Text1.Text = picFile
End Sub
Private Sub File1_DblClick()
If Option1.Value = True Then Exit Sub
Dim picFile As String
If Right(Dir1.Path, 1) = "\" Then
picFile = Dir1.Path + File1.FileName
Else
picFile = Dir1.Path + "\" + File1.FileName
End If
Image1.Picture = LoadPicture(picFile)
Text1.Text = picFile
End Sub

Answer 2

楼上那个是很不错的载入图片的代码，健壮性很强
楼主要放大缩小其实只要控制图片框的大小就可以了
至于上一张下一张的花要读取一个路径序列，然后一个个前移或者后移

Answer 3

主要语句
Image1.Picture = LoadPicture(APP.path& x & ".jpg")
x=1,2,3,............