由VisualBasic5.0調用Explorer的方法

2019-11-18 17:35:48

字體：大中小

來源：轉載

供稿：網友

一、簡介
　　眾所周知，VisualBasic5.0（VB5.0）提供了為實現高級Windows程序所需的完備工具與機制，它的強大功能已被廣大軟件開發(fā)人員所共識；Explorer在當今Internet的迅猛發(fā)展中，又起著功不可滅的作用，它處理HTML的身手使每一使用者嘆服，如果將VB5.0和Explorer聯姻，這不僅僅是錦上添花，而是如虎添翼。從理論上講，VB5.0為Internet提供了各方面的專門技術，而Explorer又可使用VBScript為其擴展功能，但在具體實施中，編程人員會遇到這樣或那樣的問題，現在我們給出一個經過調試業(yè)已成功的實例，仿照此方法，用戶可在自己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
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->

上一篇：用VB編寫網絡尋呼機

下一篇：基于Windows95平臺的VB5串行端口通信程序的設計