china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


Visual Basic设计图形浏览器示例

2000-09-28 14:24:53

  想过自己设计图形浏览器吗?其实,这一点也不难,我们可以轻松利用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

  保存文件并运行,你自己的图形浏览器就设计好了。

265488__000920b3-1.jpg
  图1

  摘自《赛迪网》 胡振山/文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集



  •  


    网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网