|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：胡振山 日期：2005-8-4 11:33:26 |
|
|
想过自己设计图形浏览器吗？其实，这一点也不难，我们可以轻松利用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
保存文件并运行,你自己的图形浏览器就设计好了。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 胡振山 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:26 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]