求些VB代码

给你个VB制作图片浏览器的

VB制作图片浏览器

当我们在设置屏幕背景图，或是在你的文件中插入图片时，总要在你的电脑里选择图片。有时打开的图片你不一定满意，你又不得不一个个地打开、关闭……这样一而再，再而三地重复。如果是“Photoshop”这样的大软件运行起来更是慢得不得了。不但烦躁，而且还浪费了你很多宝贵时间。这时，你是不是觉得“电脑”有点像“猪脑”呢？不过，别急！幸好我用VB编了一个小小的程序，可以解决这个问题，你不妨试试！

下面分步设置各控件的属性：

1.设置窗体的Caption属性为“图片浏览器”，BorderStyle属性为3,即窗体大小不能改变。

2.设置Label1的属性为“当前驱动器”，Label2的属性为“当前目录”，Label3的属性为“当前文件”；Label4的属性为“当前图像”，Label5的属性为“当前文件路径”。

3.设置Text1的Text属性为空。

4.设置Image1的Stretch属性为True，即所装入的图形能够缩放以适应图像框大小。

5.设置Command1的Caption属性为“确定”，Command2的Caption属性为“退出”。

具体的程序源代码如下：

' Private Sub Command1_Click()
' Image1.Picture = LoadPicture(Text1.Text) '当单击"确定"时，文本框中的文件在图像框中显示出来
' End Sub

' Private Sub Command2_Click() '当单击"退出"时，弹出是否退出系统对话框
' Dim exi As String
' exi = MsgBox("您真的想退出吗？", vbYesNo + vbQuestion + vbDefaultButto