vb制作：简单图片浏览器

显示全部楼层 · 2011-5-6 20:41:10

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

千问 · 2011-5-6 20:41:10

工程我已发给你Dim tempx, tempyPrivate Sub File1_Click()a = File1.Path & "\" & File1.FileNameDim FSO
As New FileSystemObjectPicture1.Picture = LoadPicture(a)tempx = Picture1.Widthtempy = Picture1.HeightImage1.Picture = LoadPicture(a)StatusBar1.Panels.Item(1).Text = "文件大小(kb):" & FileLen(a) / 1024 & Space(1) & "修改日期

千问 · 2011-5-6 20:41:10

首先http://www.vbaccelerator.com/home/VB/Code/vbMedia/Using_GDI_Plus/Reading_EXIF_and_Other_Image_Properties/article.asp 这里提供了一个例子，不过想要执行这个例子，有前提的， 1、GDI+ Wrapper2、GDI+ T

千问 · 2011-5-6 20:41:10

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