维克苗综合站

Option Explicit
Dim WithEvents M_Dom       As MSHTML.HTMLDocument
Private Sub Form_Load()
    Me.WebBrowser1.Navigate (App.Path & "/sad.html")
End Sub

Private Function M_Dom_oncontextmenu() As Boolean
    M_Dom_oncontextmenu = False
End Function

Private Sub Webbrowser1_DownloadComplete()
    Set M_Dom = WebBrowser1.Document
End Sub

相关日志

• VB 程序 vista 写注册表
• (整)vb窗体中控件自动随窗体变化大小
• (原)关闭多个New出来的窗体