用VB轻松实现图形浏览 用VB设计图形浏览器 想过自己设计图形浏览器吗？其实，这一点也不难，我们可以轻松利用VB编程实现。 图形浏览器的设计过程如下： 1.启动VB，新建一标准工程文件，在窗体Form1上，更改Form1的Caption=“图形浏览器”。
2.从工具箱中把驱动器、文件夹和文件控件添加到表单中，驱动器的Name为Diver1，文件夹的Name为Dir1，文件的Name为File1，并调整适当的位置。
3.从工具箱中把Picture Box控件添加到表单中，Picture Box的Name为Picture1，并调整适当的位置、高宽度。
4.从工具箱中，把Command Button控件添加到表单中，Command Button 的Name为Command1，并调整适当的位置、高宽度。
5.在表单的空白处双击鼠标，弹出代码编辑窗口，输入下列代码：
Private Sub Form_Load()
′设置应用程序所在驱动器和目录为当前驱动器和目录
′App 是当前的应用程序对象
Drive1.Drive = App.Path
Dir1.Path = App.Path
File1.Pattern = "*.bmp;*.ico;*.wmf"
End Sub
6.在表单的驱动器控件上双击鼠标，弹出代码编辑窗口，输入下列代码：
Private Sub Drive1_Change()
′选中的驱动器改变时，更新目录列表框中的内容;目录改变时，触发目录列表框的Change事件
Dir1.Path = Drive1.Drive
End Sub
7.在表单的文件夹控件上双击鼠标，弹出代码编辑窗口，输入下列代码：
Private Sub Dir1_Change()
′目录改变时，更新文件列表框中的内容
File1.Path = Dir1.Path
End Sub
8.在表单的文件控件上双击鼠标，弹出代码编辑窗口，输入下列代码：
Private Sub File1_Click()
′根目录时，路径中的最后一个字符是反斜杠“\”，如：C:\
′非根目录时，路径中的最后一个字符不是反斜杠“\”
′得到完整的文件名，应在路径的最后加上反斜杠“\”
If Right(File1.Path, 1) 〈 〉 "\" Then
′非根目录时，路径中的最后加上一个反斜杠“\”
tempstring = File1.Path && "\" && File1.FileName
Else
tempstring = File1.Path && "\" && File1.FileName
End If
′装入选定的文件
Form1.Picture1.Picture = LoadPicture(tempstring)
End Sub
9.在表单的“关闭”控件上双击鼠标，弹出代码编辑窗口，输入下列代码：
Private Sub Command1_Click()
Unload Me
End
End Sub
保存文件并运行，你自己的图形浏览器就设计好了。
利用Image控件实现图形浏览程序
以下介绍一个用VB实现图形浏览的程序，用Image控件实现，因为它比PictureBox更适合我们，可是怎样实现任意目录下的Loadpicture呢？
在File菜单上单击“New Project”对话框，然后单击OK按钮创建新的标准可执行文件。出现一个空白的窗体飞快地从工具箱中抓出DriveListBox(驱动器列表框)控件；DirListBox(目录列表框)控件，FileListBox(文件列表框)控件，Image(图像)控件。放在Form1上调整好大小。当程序运行后VB把选中的文件名放置到文件列表框对象的Filename属性中。驱动器列表框对象的Drive属性和目录列表框对象的Path属性分别保存用户在驱动器和目录列表框中选择的驱动器和目录。我们就使用这三个属性来打开用户选择的图像文件名。然后在Tools(工具)菜单中单击Options(选项)菜单项，然后单击Editor(编辑器)选项卡。如果quire Variable Declaration(要求变量声明)复选框被选中，那么单击该复选框去掉选中符号。
按F4设置窗口属性，将File1的Pattern属性设为(*.bmp;*.jpg;*.ico;*.cur)分号不可少，将Image1的Stretch属性设为 True，将Image1的BorderStyle属性设为 1 Fixed Single，按F7写代码。
在Drive1_Change中PrivateSub和End Sub语句之间键入：
dir1.path = Drive1.Drive
在Dir1_Change事件过程中增加：
File1.Path = Dir1.Path
在File1_Click事件过程中增加：
SelectedFile = File1.Path &
"\" & File1.Filename
Image1.Picture = LoadPicture(SelectedFile )
好了，其余的步骤就不再多说了，相信聪明的你很快就能做出自己满意的图形浏览程序。
(张海亚)