由VisualBasic5.0调用Explorer的方法

love饿虎

love饿虎

2016-02-19 18:11

今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐由VisualBasic5.0调用Explorer的方法,希望大家看完后也有个好心情,快快行动吧!
一、简介
  众所周知,VisualBasic5.0(VB5.0)提供了为实现高级Windows程序所需的完备工具与机制,它的强大功能已被广大软件开发人员所共识;Explorer在当今Internet的迅猛发展中,又起着功不可灭的作用,它处理HTML的身手使每一使用者叹服,如果将VB5.0和Explorer联姻,这不仅仅是锦上添花,而是如虎添翼。从理论上讲,VB5.0为Internet提供了各方面的专门技术,而Explorer又可使用VBScript为其扩展功能,但在具体实施中,编程人员会遇到这样或那样的问题,现在我们给出一个经过调试业已成功的实例,仿照此方法,用户可在自己VB5.0程序的任何地方调用Explore,为使用“帮助文件”或“超级连接”提供方便。
  二、实现方法
  首先在VB5.0菜单上选“工程/部件”,然后选MicrosoftInternetcontrols和MicrosoftcommonDialogControl5.0两个控件,使工具栏上增加WebBrowser和Commodialog两个图标,然后在Form1窗体上,如图一所示,引入两个Label,一个Text,三个Command,一个CommoDialog,三个Command的Caption分别为“浏览”、“打开HTM”和“取消”,为书写方便将Commodialog的名字定为cd。
  在程序中,生成一个InternetExplorer类型的目标ii,通过方法ii.Navigatetext1,navNoreadfromcache的调用,使得HTML文件名由text1.text给出,亦即通过Text1给出URL,这样一来,用户不但可通过VB5.0程序自由地开启Explorer窗口,而且URL和窗口的外观也由VB5.0来决定,为了更加清晰,把Explorer的View/options/general中的StandardButtons,AddressBar,Links,TextLabels选择去掉。
  其中,URL可直接输入,也可通过浏览来选择。
  三、程序
  Dimii
  PrivateSubCommand1_Click()
  Cd.Flags=&H200
  Cd.Filter="HTMLfiles(*.htm)|*.htm|TextFiles"&_
  "(*.txt)|*.txt|AllFiles(*.*)|*.*"
  Cd.ShowOpen
  Text1=Cd.filename
  Command2.Visible=True
  EndSub
  PrivateSubCommand2_Click()
  Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
  ii.NavigateText1,navNoReadFromCache
  ii.Visible=1
  ii.Top=0
  ii.Left=0
  ii.Width=Form1.Width
  ii.Height=Screen.Height
  EndSub
  PrivateSubCommand3_Click()
  Text1=""
  UnloadMe
  EndSub
  
  PrivateSubForm_Load()
  Form1.Top=Screen.Height/4
  Form1.Left=0
  Form1.Width=Screen.Width
  Form1.Height=Screen.Height/2
  Form1.BackColor=QBColor(2)
  Label1.BackStyle=0
  Label1.FontName="黑体"
  Label1.FontSize=14
  Label1.ForeColor=QBColor(7)
  Label2.BackStyle=0
  Label2.Caption="HTML"
  Label2.FontName="brushscript"
  Label2.FontSize=24
  Command2.Visible=False
  EndSub
  PrivateSubText1_KeyPress(KeyAsciiAsInteger)
  IfKeyAscii=13Then
  Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
  ii.NavigateText1,navNoReadFromCache
  ii.Visible=1
  ii.Top=0
  ii.Left=0
  ii.Width=Form1.Width
  ii.Height=Screen.Height
  EndIf
  EndSub->

展开更多 50%)
分享

猜你喜欢

由VisualBasic5.0调用Explorer的方法

编程语言 网络编程
由VisualBasic5.0调用Explorer的方法

VisualBasic5.0中实现视频画中画

编程语言 网络编程
VisualBasic5.0中实现视频画中画

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用VisualBasic5.0设计E-mail程序(MAPI)

编程语言 网络编程
用VisualBasic5.0设计E-mail程序(MAPI)

FCK调用方法..

Web开发
FCK调用方法..

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

调用CUI程序的方法

Java JAVA基础
调用CUI程序的方法

Java调用.dll文件的方法

编程语言 网络编程
Java调用.dll文件的方法

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用VisualBasic轻松地设计Browser及Ftp程序

用VisualBasic轻松地设计Browser及Ftp程序

怎么启动硬件加速

怎么启动硬件加速
下拉加载更多内容 ↓