由VisualBasic5.0調(diào)用Explorer的方法

2019-11-18 17:35:48

字體：大中小

供稿：網(wǎng)友

一、簡(jiǎn)介
　　眾所周知，VisualBasic5.0（VB5.0）提供了為實(shí)現(xiàn)高級(jí)Windows程序所需的完備工具與機(jī)制，它的強(qiáng)大功能已被廣大軟件開(kāi)發(fā)人員所共識(shí)；Explorer在當(dāng)今Internet的迅猛發(fā)展中，又起著功不可滅的作用，它處理HTML的身手使每一使用者嘆服，如果將VB5.0和Explorer聯(lián)姻，這不僅僅是錦上添花，而是如虎添翼。從理論上講，VB5.0為Internet提供了各方面的專(zhuān)門(mén)技術(shù)，而Explorer又可使用VBScript為其擴(kuò)展功能，但在具體實(shí)施中，編程人員會(huì)遇到這樣或那樣的問(wèn)題，現(xiàn)在我們給出一個(gè)經(jīng)過(guò)調(diào)試業(yè)已成功的實(shí)例，仿照此方法，用戶可在自己VB5.0程序的任何地方調(diào)用Explore,為使用“幫助文件”或“超級(jí)連接”提供方便。
二、實(shí)現(xiàn)方法
　　首先在VB5.0菜單上選“工程/部件”，然后選MicrosoftInternetcontrols和MicrosoftcommonDialogControl5.0兩個(gè)控件，使工具欄上增加WebBrowser和Commodialog兩個(gè)圖標(biāo)，然后在Form1窗體上，如圖一所示，引入兩個(gè)Label,一個(gè)Text,三個(gè)Command,一個(gè)CommoDialog,三個(gè)Command的Caption分別為“瀏覽”、“打開(kāi)HTM”和“取消”，為書(shū)寫(xiě)方便將Commodialog的名字定為cd。
在程序中，生成一個(gè)InternetExplorer類(lèi)型的目標(biāo)ii，通過(guò)方法ii.Navigatetext1,navNoreadfromcache的調(diào)用，使得HTML文件名由text1.text給出，亦即通過(guò)Text1給出URL，這樣一來(lái)，用戶不但可通過(guò)VB5.0程序自由地開(kāi)啟Explorer窗口，而且URL和窗口的外觀也由VB5.0來(lái)決定，為了更加清晰，把Explorer的View/options/general中的StandardButtons,AddressBar,Links,TextLabels選擇去掉。
　　其中，URL可直接輸入，也可通過(guò)瀏覽來(lái)選擇。
三、程序
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編寫(xiě)網(wǎng)絡(luò)尋呼機(jī)

下一篇：基于Windows95平臺(tái)的VB5串行端口通信程序的設(shè)計(jì)

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注