VisualBasic设计图形浏览器示例

2016-02-19 16:32 7 1 收藏

只要你有一台电脑或者手机,都能关注图老师为大家精心推荐的VisualBasic设计图形浏览器示例,手机电脑控们准备好了吗?一起看过来吧!

【 tulaoshi.com - 编程语言 】

想过自己设计图形浏览器吗?其实,这一点也不难,我们可以轻松利用VB编程实现。
  
  图形浏览器的设计过程如下:
  
  1.启动VB,新建一标准工程文件,在窗体Form1上,更改Form1的Caption=“图形浏览器”。
  
  2.从工具箱中把驱动器、文件夹和文件控件添加到表单中,驱动器的Name为Diver1,文件夹的Name为Dir1,文件的Name为File1,并调整适当的位置。
  
  3.从工具箱中把PictureBox控件添加到表单中,PictureBox的Name为Picture1,并调整适当的位置、高宽度。
  
  4.从工具箱中,把CommandButton控件添加到表单中,CommandButton的Name为Command1,并调整适当的位置、高宽度。
  
  5.在表单的空白处双击鼠标,弹出代码编辑窗口,输入下列代码:
  
  PrivateSubForm_Load()
  
  ′设置应用程序所在驱动器和目录为当前驱动器和目录
  
  ′App是当前的应用程序对象
  
  Drive1.Drive=App.Path
  
  Dir1.Path=App.Path
  
  File1.Pattern="*.bmp;*.ico;*.wmf"
  
  EndSub
  
  6.在表单的驱动器控件上双击鼠标,弹出代码编辑窗口,输入下列代码:
  
  PrivateSubDrive1_Change()
  
  ′选中的驱动器改变时,更新目录列表框中的内容;目录改变时,触发目录列表框的Change事件
  
  Dir1.Path=Drive1.Drive
  
  EndSub
  
  7.在表单的文件夹控件上双击鼠标,弹出代码编辑窗口,输入下列代码:
  
  PrivateSubDir1_Change()
  
  ′目录改变时,更新文件列表框中的内容
  
  File1.Path=Dir1.Path
  
  EndSub
  
  8.在表单的文件控件上双击鼠标,弹出代码编辑窗口,输入下列代码:
  
  PrivateSubFile1_Click()
  
  ′根目录时,路径中的最后一个字符是反斜杠"",如:C:
  
  ′非根目录时,路径中的最后一个字符不是反斜杠""
  
  ′得到完整的文件名,应在路径的最后加上反斜杠""
  
  IfRight(File1.Path,1)〈〉""Then
  
  ′非根目录时,路径中的最后加上一个反斜杠""
  
  tempstring=File1.Path&&""&&File1.FileName
  
  Else
  
  tempstring=File1.Path&&""&&File1.FileName
  
  EndIf
  
  ′装入选定的文件
  
  Form1.Picture1.Picture=LoadPicture(tempstring)
  
  EndSub
  
  9.在表单的"关闭"控件上双击鼠标,弹出代码编辑窗口,输入下列代码:
  
  PrivateSubCommand1_Click()
  
  UnloadMe
  
  End
  EndSub
  
  保存文件并运行,你自己的图形浏览器就设计好了。->

来源:http://www.tulaoshi.com/n/20160219/1612375.html

延伸阅读
标签: 浏览器
qq浏览器怎么设置默认浏览器   全新的QQ浏览器7采用单核模式,集超小安装包和超强稳定性于一身,访问网页速度也得到进一步优化。还可根据系统情况智能推送IE8或IE10内核,有效提升网页兼容性,减少系统漏洞,更轻快、更稳定、更安全。 如何保证成功设置默认浏览器? 您可以在QQ浏览器菜单或者选项中,设置QQ浏览器为默认浏览...
百度浏览器设置为默认浏览器方法来啦~百度浏览器是大家经常使用的一款浏览器,那么怎么将百度浏览器设置成默认浏览器呢?下文小编就为大家带来百度浏览器设置为默认浏览器的方法,一起去看下吧。 百度浏览器下载地址: 百度浏览器2015官方下载电脑版 百度浏览器设置为默认浏览器方法: 1、打开...
UC浏览器怎么识别浏览器标识?   UC浏览器识别浏览器标识方法。UC浏览器是一款全球领先的智能移动浏览器,让亲们在手机上随时都可以查看到最新的消息,无论是娱乐、新闻、还是小说等,应有尽有。现在手机用户越来越多,手机款式也就越来越多了,UC浏览器的浏览器标识没有识别过自己手机型号的时候,会给亲们带来浏览的困扰。现在小编...
360浏览器默认浏览器如何设置   1)首先先打开,进去之后点击。   2)弹出提示后向左滑动一下击,然后点击。   3)接着点击,最后选择自己想要设置的浏览器点击。  
标签: 浏览器
YY浏览器怎么清理浏览器缓存   现在,很多游戏玩家都会使用YY浏览器,而用户使用浏览器的过程中,都避免不了浏览器在系统中生成相应的缓存文件,再或者用户浏览了一些隐私网址,想要清理这些数据我们就需要通过浏览器自带功能来清理,那么在YY浏览器下如何清理浏览器缓存文件呢?下面看小编为大家带来的清理方法,需要的用户赶快试试吧...

经验教程

313

收藏

69
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部