========================================= 不知道Microsoft Windows Common Controls 6.0里的ListView符不符合你的要求? ========================================= WebBrowser里面禁用右键 ========================================= 引用Microsoft HTML Object Library ========================================= Option ExplicitPrivate WithEvents moDocument As HTMLDocumentPrivate Sub Form_Load() WebBrowser1.Navigate "about:blank" End SubPrivate Function moDocument_oncontextmenu() As Boolean moDocument_oncontextmenu = False End FunctionPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set moDocument = WebBrowser1.Document End Sub
不知道Microsoft Windows Common Controls 6.0里的ListView符不符合你的要求?
=========================================
WebBrowser里面禁用右键
=========================================
引用Microsoft HTML Object Library
=========================================
Option ExplicitPrivate WithEvents moDocument As HTMLDocumentPrivate Sub Form_Load()
WebBrowser1.Navigate "about:blank"
End SubPrivate Function moDocument_oncontextmenu() As Boolean
moDocument_oncontextmenu = False
End FunctionPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set moDocument = WebBrowser1.Document
End Sub