Question

VB制作图浏览器

VB怎么做一个简单的图片浏览器，高手帮个忙。 要详细的。。。。 本人是新手

Answer 1

创建浏览器程序1) 在File菜单上单击“New Project”对话框，然后单击OK按钮创建新的标准可执行文件。Hello World程序从屏幕上消失了，一个空白的窗体出现在屏幕上（在程序关闭之前，你还有机会保存Hello World程序中任何未保存部分）。2) 在Tools（工具）菜单中单击Options（选项）菜单项，然后单击Editor（编辑器）选项卡。如果Require Variable Declaration（要求变量声明）复选框被选中，那么单击该复选框去掉选中符号（第4课中将讨论该选项）。单击OK按钮。3) 增加窗体的尺寸，以便能够放置下文件系统控件以便能更好地查看图像。滚动条显示在窗体周围，使用滚动条可以查看开发过程中窗体的任何被遮挡部分。4) 单击工具箱中的DriveListBox（驱动器列表框）控件。5) 将鼠标指针移动到窗体的左上角，然后绘出驱动器列表框，如下图所示：

（图）

创建驱动器列表框对象后，Visual Basic在该对象中显示当前驱动器以及卷标。这些信息帮助用户使用程序时查看当前选择的驱动器。它也帮助你在设计时验证该驱动器列表框是否能够显示所有的驱动器以及卷标信息，这样就可以根据情况调整驱动器列表框的大小。6) 单击工具箱中的DirListBox（目录列表框）控件，然后把目录列表框添加到窗体上，放置在驱动器列表框的下方。保证该列表框中至少能够显示4个或五个文件夹。目录列表框对象提供了访问文件系统中文件夹的方法。当把目录列表框对象放置到窗体上后，文件夹如程序运行时那样显示在目录列表框中。现在如果单击其中的文件夹，由于该列表框处于不活动状态，因此什么动作也没有。现在显示的文件夹只是为了方便开发人员调整目录列表框的大小。7) 单击工具箱中的FileListBox（文件列表框）控件，然后把文件列表框添加到窗体上，放置在目录列表框的下方。保证该列表框中至少能够显示4个或五个文件名。文件列表框对象让用户从文件系统中选择指定的文件。当用户选择了一个文件后，Visual Basic把文件名放置到文件列表框对象的Filename属性中。类似地，驱动器列表框对象的Drive属性和目录列表框对象的Path属性分别保存用户在驱动器和目录列表框中选择的驱动器和目录。浏览器程序使用这三个属性来打开用户选择的图像文件名。上述方式是程序中使用对象和属性的典型方式。程序运行时用户改变对象的设置，这种变化反映在属性中，属性在代码中处理。提示Drive、Path和Filename属性只在程序运行时可以使用（它们的值在使用文件系统列表框时被赋予）。不能在属性窗口中设置这几个属性的值。

8) 单击工具箱中的图像控件，然后在窗体上绘制出一个较大的图像框，图像框放置到驱动器、目录和文件列表框的右部。添加了图像对象后，屏幕应该与下图相似：

（图）

9) 现在在属性窗口中设置下述属性：

在本例的情况下，文件列表框的Pattern属性设置尤其重要。它列出了VisualBasic能够使用图像框在程序中显示的有效图片格式。如果该属性的值为空，那么文件列表框将列出文件夹下的所有文件；当用户选择了Visual Basic某个不支持的图像格式（比如TIFF）时，选择结果会导致系统崩溃或运行时出错。可能情况下，最好把这类问题挡在发生之前。现在在与文件系统对象相关的过程中写上几行代码。由于这些过程在程序运行后该对象上发生某个事件（比如鼠标单击）时执行，因此把它们称做事件过程。10) 双击窗体上的驱动器列表框，然后在Drive1_Change事件过程中PrivateSub和End Sub语句之间键入下述程序段：dir1.path = Drive1.Drive注  双击某个对象可以显示该对象的缺省事件过程。这条语句当用户在驱动器列表框中选择驱动器时修改目录列表框的Path属性。该语句把两个对象联系在一起，这样目录列表框中列出当前驱动器下的目录。11) 关闭代码窗口（单击右上角的Close按钮即可）。然后双击窗体上的目录列表框，在Dir1_Change事件过程中增加下述代码：

File1.Path = Dir1.Path这条语句将文件列表框与目录列表框联系在一起，这样，就能够在文件列表框中显示所选文件夹下的文件。12) 关闭代码窗口。现在双击窗体上的文件列表框，然后在File1_Click事件过程中增加下述代码：SelectedFile = File1.Path & "\" & File1.FilenameImage1.Picture = LoadPicture(SelectedFile )这两条语句是本程序的核心。第一行语句使用&运算符把File1的Path属性、\字符以及File1的Filename属性拼接在一起，然后把得到的路径名保存到变量SelectedFile中。变量是程序中存放信息的临时空间。本课中，SelectedFile变量保存了用户选择的文件名的完整名称（包括驱动器名和文件夹名）。事件过程中的第2条语句使用了SelectedFile变量，这条语句使用LoadPicture函数把SelectedFile变量指定的文件加载到图像框的Picture属性中。注  第4课中将详细学习运算符、变量以及函数。输入了File1_Click事件过程的代码后，代码窗口的显示内容应该与下图相似。（图中的代码窗口使用了最大化显示方式）。

（图）

注  完整的浏览器程序Browser.vbp放置在硬盘的\Vb6Sbs\Less03文件夹下。现在准备运行浏览器程序并把它保存到磁盘上。

运行浏览器程序1) 单击工具条上的Start（启动）按钮。

浏览器程序在开发环境中启动运行。2) 使用目录列表框打开文件夹\Vb6Sbs\Less03。所选文件夹下的Windows图元文件显示在文件列表框中。3) 单击文件名answmach.wmf。所选文件（一幅应答机图片）显示在图像框中，如下图所示：

（图）

4) 向下滚动列表，并单击Poundbag.wmf文件名。一个英国钱币袋的图像显示在图像框中。5) 使用驱动器列表框、目录列表框以及文件列表框查看系统中其它位图、Windows图元文件以及图标。

在Windows文件夹下你会找到一些有趣的位图。试用完浏览器后，终止程序的运行，并将其保存到磁盘上。6) 单击窗体上的Close按钮。7) 在File菜单中单击“Save Project As ”菜单项，将窗体保存为Browser，将工程也保存为Browser。