摘要:[VB6]控制WebBrowser
後退 WebBrowser1.GoBack
前進 WebBrowser1.GoForward
主頁 WebBrowser1.Navigate ("主頁地址")
刷新 WebBrowser1.Refresh
搜索 WebBrowser1.GoSearch
停止 WebBrowser1.Stop
查找 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT
複製 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
貼上WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
選擇全部 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
頁面設置 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
列印預覽 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
列印 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
屬性 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
保存 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DODEFAULT
另存為 WebBrowser1.SetFocus:WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
原始檔案 WebBrowser1.Navigate "View-Source:" & WebBrowser1.LocationURL
如何設置WebBrowser控制項顯示內容的Html代碼
With WebBrowser1.Document
.open
.writeln ("<HTML>")
.writeln ("<HEAD>")
.writeln ("<TITLE>")
.writeln ("軟體公司")
.writeln ("</TITLE>")
.writeln ("</HEAD>")
.writeln ("<BODY>")
.writeln ("顯示的內容...")
.writeln ("</BODY>")
.writeln ("</HTML>")
.Close
End With
vb 如何自定義webbrowser右鍵功能表？
'//引用 microsoft html object library
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Sub Form_Load()
WebBrowser1.navigate "www.heibs.com"
End Sub
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
Me.PopupMenu mymenu '彈出自定義功能表
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.document '好了，右鍵菜單沒有了
End Sub
來源網址:http://www.heibs.com/post/150.html