visual basic设计图形浏览器示例
| 想过自己设计图形浏览器吗？其实，这一点也不难，我们可以轻松利用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 保存文件并运行,你自己的图形浏览器就设计好了。 |
