Question

vb制作：简单图片浏览器

简单图片浏览器：能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。 在FileListBox中只列出图片文件。使用HscrollBar控件对图片进行缩放。 使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。 可以轮流显示FileListBox中列出图片文件。
分数不是问题，切实可行之后再另外加分哟
邮箱：491647982@qq.com

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

首先http://www.vbaccelerator.com/home/VB/Code/vbMedia/Using_GDI_Plus/Reading_EXIF_and_Other_Image_Properties/article.asp

这里提供了一个例子，不过想要执行这个例子，有前提的，

1、GDI+ Wrapper

2、GDI+ Type Library (GDIPlus.TLB)

这两个东西都是有人包装好了的，只要下来就可以了第一个用GDIPlusWrapper.dll文件，第二个用GDIplus.tlb文件，复制到你的文件夹下，然后加入引用。

注意一点，GDIPlusWrapper.dll需要用regsvr32注册一下，不然不让用滴，原因就是activex部件不能创建对象，剩下的就简单了，照着例子看看就明白。

Answer 3

参考：http://hi.baidu.com/xnzhrx/blog/item/04c2663d9608eacd9e3d62fa.html

Answer 4

我有一个，不知道你要不要，只是功能和你的不太一样，不过我觉得不错，是我自己编的，你看一下，我发过去了

Answer 5

用image控件，很简单就可以实现
FileListBox列出图片+自动播放
显示图片文件相关信息这个有点麻烦