Question

VB 简单图片浏览器 一小时有答案加分

能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。 在FileListBox中只列出图片文件。使用HscrollBar控件对图片进行缩放。 使用控件显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。 可以轮流显示FileListBox中列出图片文件。

请告诉我需要哪些控件，贴上代码，谢谢。
这个是作业……要按要求，做成工程的，希望高人解答。

Answer 1

我自己做的
Dim tempx, tempy
Private Sub File1_Click()
a = File1.Path & "\" & File1.FileName
Dim FSO As New FileSystemObject
Picture1.Picture = LoadPicture(a)
tempx = Picture1.Width
tempy = Picture1.Height
Image1.Picture = LoadPicture(a)
StatusBar1.Panels.Item(1).Text = "文件大小(kb):" & FileLen(a) / 1024 & Space(1) & "修改日期：" & FSO.GetFile(a).DateLastModified & Space(1) & "大小：" & Image1.Width / 15 & "x" & Image1.Height / 15
End Sub

Private Sub HScroll1_Change()
Picture1.Picture = LoadPicture("")
Call daxiao(HScroll1.Value, HScroll1.Value)
Picture1.Width = HScroll1.Value + tempx
Picture1.Height = HScroll1.Value + tempy
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
File1.Path = Text1
File1.Pattern = "*.jpg;*.bmp"
End If
End Sub
Private Sub daxiao(x As Double, y As Double)
With LoadPicture(File1.Path & "\" & File1.FileName)
.Render Picture1.hDC, 0, 0, y, x, 0, .Height, .Width, -.Height, 0
End With
End Sub
工程下载地址我发给你 ，给我你的邮箱

Answer 2

要那么多分有啥意思

追问

跑到百度知道来混有什么意思。

追答

没事 只是说说 虽然我写过这个程序 不打算提供出来

追问

那您去吧，不送

Answer 3

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

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

Private Sub File1_Click()
image1.Picture = LoadPicture(File1.Path & "/" & File1.FileName)
End Sub
然后把file1的pattern设为*.jpg;*.bmp

Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub

或者给个邮箱，我发给你

或者自己去下载：http://www.symental.com/sfw?f=picview