用VB開發IE (轉)

用VB開發IE (轉)[@more@]用VB開發IE

 隨著的增加和Inte的普及與發展，已成為最受網路使用者歡迎的之一。廣大軟體研製者特別是MIS開發者都希望把瀏覽器整合到自己的軟體中來，使自己的軟體能瀏覽頁面而功能更強大、更具特色。目前市場上流行的瀏覽器軟體種類及版本很多。但要把它方便地整合到自己的軟體中去，卻受到以下幾個方面的限制：瀏覽器帶有各自的執行環境和；瀏覽器很大，整合到自己的軟體中後執行低；開發者更想讓瀏覽器具有自己的特色。

 因此，軟體研製者都想開發自己的瀏覽器，而Visual Basic 5.0就提供了這種功能。筆者曾經用Visual Basic 5.0開發出簡單的瀏覽器，編譯出可檔案後很小（只有33K），併成功地把它整合到其它軟體中。下面給出製作步驟和清單，稍加修改就可做出自己喜歡的瀏覽器。

 1．開啟一應用，開啟一個Form（brower）；

 2．在Brower里加入Toolbartoolbar1，增加常用的命令按鈕（如back、next、stop、refresh、home、Search、open、exit等），同時加入Imagelist控制元件imagelist1，並加入自己喜歡的圖形，然後和toolbar1中的命令按鈕對應起來。

 3．加入定時器Timer控制元件timer1，並設定好；

 4．加入Label控制元件label1，Caption設為“Web地址”，加入Combobox控制元件combo1，加入Statar控制元件status?bar1．加入Webbrowser控制元件browser1；

 5．然後寫入以下程式程式碼：

PublicStartingAddresString
DimflagAsBoolean
PrivateSubForm—Load（）
OnErrorResumeNext
Me．Show
ToolBar1．Refresh
Open″d：vb5brow．ini″ForInputAs＃2
′開啟上次的WEB
Input＃2，StartingAddress
Close＃2
IfLen（StartingAddress）>0Then
combo1．Text＝StartingAddress
combo1．AddItemStartingAddress
webbrowser1．NavigateStartingAddress
EndIf
EndSub
PrivateSubwebbrowser1—Complete（）
OnErrorResumeNext
Me．Caption＝webbrowser1．LocationName
EndSub
PrivateSubwebbrowser1—NavigateComplete（ByValURLAsString）
DimiAsInteger
DimbFoundAsBoolean
Me．Caption＝webbrowser1．LocationName
Fori＝0Tocombo1．ListCount－1
Ifcombo1．List（i）＝webbrowser1．LocationURL
Then
bFound＝True
ExitFor
EndIf
Nexti
flag＝True
IfbFoundThen
combo1．RemoveItemi
EndIf
combo1．AddItemwebbrowser1．LocationURL，0
combo1．ListIndex＝0
MousePointer＝0
webbrowser1．Navigatecombo1．Text
StatusBar1．Panels（1）．Text＝″當前頁面″＋combo1．Text
flag＝False
EndSub
PrivateSubcombo1—Click（）
IfflagThenExitSub
Timer1．Enabled＝True
MousePointer＝11
StatusBar1．Panels（1）．Text＝″正在連線″＋combo1．Text＋″．．．．．．″
webbrowser1．Navigatecombo1．Text
EndSub
PrivateSubcombo1—KeyPress（KeyAsciiAsInteger）
OnErrorResumeNext
IfKeyAscii＝vbKeyReturnThen
combo1—Click
End If
End Sub
PrivateSubTimer1－Timer（）
Ifwebbrowser1．Busy＝FalseThen
Timer1．Enabled＝False
Me．Caption＝webbrowser1．LocationName
Else
Me．Caption＝″Working．．．″
EndIf
EndSub
PrivateSubToolBar1－ButtonClick（ByValButtonAsButton）
OnErrorResumeNext
Timer1．Enabled＝True
CaseButton．Key
Case″exit″
UnloadMe
Case″Back″
webbrowser1．GoBack
Case″Forward″
webbrowser1．GoForward
Case″Refresh″
webbrowser1．Refresh
Case″Home″
webbrowser1．GoHome
Case″Search″
webbrowser1．GoSearch
Case″open″
CommonDialog1．ShowOpen
combo1．Text＝CommonDialog1．filename
Case″Stop″
Timer1．Enabled＝False
MousePointer＝0
webbrowser1．Stop
Me．Caption＝webbrowser1．LocationName
EndSelect
EndSub

 該程式經編譯後即是一簡單普通瀏覽器，可方便地整合到其他軟體中去。