13518219792
me.backgroundimage=image.fromfile(apppath+"picture")
创新互联公司从2013年开始，先为苍溪等服务建站，苍溪等地企业，进行企业商务咨询服务。为苍溪企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
主要的错误是你的"picture"这里错了，apppath后面就应该接你要载入的图片的名字，比如说是02.jpeg，那就应该是
me.backgroundimage=image.fromfile(apppath+"\02.jpeg")，注意要加\和图片的后缀名。
材料/工具：visual basic6
1、首先启动visual basic6，新建一个标准exe文件，进入窗体对话框。
2、选择form1，设置height属性值为6000，width为8000.
3、接着设置borderstyle属性值为4-fixed toolwindow，查看效果变化。
4、双击工具箱中的image控件，在窗体上创建image1控件。
5、采用步骤2的方法设置height属性值为6000，width为8000，top为0，left为0，使其布满窗体。
6、点击picture属性，设置属性值，找到一张图片导入，并设置大小为6000*8000
7、执行文件-生成工程命令，输入文件名称，保存在桌面上，将文件生成exe文件。
很简单的方法，貌似没有。这个需要自己写很多代码：
用一个ListView控件。
判断滚动条当前所显示的图片集合，获取它们的物理路径。
用Bitmap.FromImage方法把这些图片读出来，
然后获取缩略图，
把缩略图用Graphics.DrawImage()绘制出来。
我可以提供Bitmap如何获取缩略图的方法：
''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary
Public Function ThumbnailCallback() As Boolean
Return False
End Function
''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary
Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image
Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)
Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)
End Function
