Top
首页 > 老文章 > 正文

Visual Basic设计图形浏览器示例

  想过自己设计图形浏览器吗?其实,这一点也不难,我们可以轻松利用VB编程实现。
  图形浏
发布时间:2002-03-06 09:36        来源:        作者:胡振山
  想过自己设计图形浏览器吗?其实,这一点也不难,我们可以轻松利用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   保存文件并运行,你自己的图形浏览器就设计好了。   图1
加载更多

专题访谈

合作站点
stat