1、 在桌面上,鼠标双击,打开VB编程软件,在左边工具栏上,单击【DriveListBox】按钮,在Form1窗口上绘制出一硬盘驱动器的控件来,如下图所示。
2、 接着,在程序左边工具栏上,单击【DirListBox】按钮,在Form1窗口上绘制出一文件目录的控件来。单击【FileListBox】按钮,在Form1窗口上绘制出一显示文件的控件来,如下图所示。
3、 然后,在程序左边工具栏上,单击【PictureBox】按钮,在Form1窗口上绘制出如图所示大小的图片控件框来。用它来加载图片,如下图所示。
4、 接着,在程序左边工具栏上,单击【Label】按钮,在Form1窗口上绘制出一个标签,并在其Caption属性值上修改为:浏览重武器图片,如下图所示。
5、然后,在窗口做好后,就要在代码窗口中输入代码了,如下:Private Sub Dir1_Change()Form1.File1.Path = Form1.Dir1.PathEnd SubPrivate Sub Drive1_Change() Form1.Dir1.Path = Form1.Drive1.DriveEnd SubPrivate Sub File1_Click() Form1.Picture1.Picture = LoadPicture(Form1.File1.Path + "\" + Form1.File1.FileName)End Sub此三个过程表示驱动器、文件夹选择的改变,单击文件加载到图片框中。如下图所示。
6、 最后,在代码输入好后,单击【运行】按钮,效果就可以看到了,可以在本地进行图片的选择和浏览了,这里选取了浏览重武器图片来进行测试,如下图所示。