Visual Basic设计图形浏览器示例

原创 2001年06月03日 13:59:00

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

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

Visual Studio "类视图"和“对象浏览器”图标含义

vs2013 “类视图”和 “对象浏览器“图标及含义 图标 说明 图标 说明 程序集 C#项目 命名空间 类 结构体(struct) ...
  • hehehe12138
  • hehehe12138
  • 2017年03月17日 14:05
  • 1258

http协议基本认证 Authorization

http协议是无状态的, 浏览器和web服务器之间可以通过cookie来身份识别。 桌面应用程序(比如新浪桌面客户端, skydrive客户端)跟Web服务器之间是如何身份识别呢?   阅...
  • u011181633
  • u011181633
  • 2015年01月28日 13:50
  • 13704

【ASP.NET】VS2010改变调试默认的浏览器

本来,在VS2010改变调试默认的浏览器是很简单的,直接右击解决方案,点击浏览方式,选择即可。 然而,在一些高版本的VS2010,并没有这个选项,如下图: 此时,你要在“属性”那里修改此解...
  • yongh701
  • yongh701
  • 2016年01月11日 19:30
  • 4033

精彩编程与编程技巧-Visual Basic设计图形浏览器示例...

  • 2009年10月10日 22:31
  • 2KB
  • 下载

精彩编程与编程技巧-用Visual Basic设计三维图形按钮...

  • 2009年10月08日 11:11
  • 3KB
  • 下载

Visual Basic图形与多媒体程序设计

  • 2007年12月17日 10:30
  • 12.28MB
  • 下载

脚本示例 (Reporting Services)Microsoft Visual Basic .NET

http://msdn.microsoft.com/zh-cn/library/ms160854(v=sql.90).aspx 脚本示例 (Reporting Services) SQL ...
  • caolaosanahnu
  • caolaosanahnu
  • 2012年06月14日 11:42
  • 649

Visual Basic设计仿QQ2011登陆窗口的思路

QQ2011的登陆窗口很美观,如果我们要设计登陆窗口,可以效仿之,一定会为程序增色不少。笔者近期做课程设计,要求用VB+数据库设计一个管理软件,此软件应设置登陆窗口,于是我决定模仿QQ2011的登陆窗...
  • lionelluthor
  • lionelluthor
  • 2011年12月14日 18:45
  • 1501

Visual Basic 程序设计

已经过去两年,C#先放一放,把之前的两个系统再熟悉一下,这也是米老师的建议,不再一心的追赶进度,踏下心来,不然会越来越乱。        一天的时间,把VB程序设计这本书过了一遍,记录一篇博客: ...
  • u010282984
  • u010282984
  • 2016年01月25日 17:14
  • 677

《Visual Basic.NET精彩编程百例》源代码:61_统计表图形

  • 2008年12月03日 18:13
  • 113KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Visual Basic设计图形浏览器示例
举报原因:
原因补充:

(最多只允许输入30个字)