- 相關推薦
利用VB實現對IE的調用與控制
一、 編程準備
VB通過OLE自動化技術創建和控制Internet Explorer對象的實例,因此,在新建一個工程后需要加入Microsoft Internet 控制的參考,方法是打開Visual Basic 的Project下拉菜單中的Reference…選項,單擊Browse…按鈕,在Windows的system目錄下找到SHDOCVW.DLL并選中它,它是Internet Explorer的類庫。
二、 實現方法
在窗體form1中添加表1所示的控件。 控件類型 控件名稱 控件內容
LabelLable1 地址:
TextText1 (空)
Command cmdView 瀏覽
CommandcmdForward 向前
Command cmdBackward 向后
Command cmdCloseView 關閉瀏覽窗口
Command cmdExit 退出
對上述窗體添加如下代碼即可實現對Internet Explorer的調用與控制,
Dim WithEvents ieView As InternetExplorer
'在通用模塊中定義Internet Explorer對象
Private Sub Form_Load()
cmdForward.Visible = False
cmdBackward.Visible = False
cmdCloseView.Visible = False
'窗體調入時隱藏Internet Explorer控制按鈕
End Sub
Private Sub cmdView_Click()
Dim txtAddress As String
On Error Resume Next '設置錯誤陷阱
Set ieView = GetObject("", "InternetExplorer.Application")
ieView.Visible = True
'創建Internet Explorer對象的一個實例,并設為可見
txtAddress = Trim(Text1.Text)
ieView.Navigate txtAddress, navNoReadFromCache
'按text1控件的內容進行瀏覽
cmdView.Enabled = False
cmdExit.Enabled = False
cmdForward.Visible = True
cmdBackward.Visible = True
cmdCloseView.Visible = True
'使瀏覽、退出命令鈕無效,使IE控制命令鈕可見
下一頁
【利用VB實現對IE的調用與控制】相關文章:
利用VB實現PC機與多單片機通訊03-18
家庭理財系統的設計與實現VB+SQL03-08
利用VB+MO開發管線信息系統的實踐03-07
利用DSP控制直流無刷電機03-18
用VB實現班主任工作的電子化03-19
VB5.0中數據庫查詢模塊的實現03-03
匯編語言考試系統設計與實現VB+SQL03-08
通用試題庫系統的設計與實現VB+SQL03-08
在PowerBuilder中利用自動化技術調用Excel處理與打印表格03-19