Dim WithEvents Doc As HTMLDocument Private Function Doc_oncontextmenu() As Boolean Doc_oncontextmenu = False End Function Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set Doc = WebBrowser1.Document End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question