Webbrowser...desactiver "ctrl + n"
Résolu
fisch_g
Messages postés
5
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
18 janvier 2006
-
16 janv. 2006 à 15:56
fisch_g Messages postés 5 Date d'inscription mercredi 14 avril 2004 Statut Membre Dernière intervention 18 janvier 2006 - 17 janv. 2006 à 15:59
fisch_g Messages postés 5 Date d'inscription mercredi 14 avril 2004 Statut Membre Dernière intervention 18 janvier 2006 - 17 janv. 2006 à 15:59
A voir également:
- Webbrowser...desactiver "ctrl + n"
- Désactiver la combox - Forum Visual Basic 6
- Vba sendkeys ctrl+v - Forum Visual Basic
- Ctrl z signification ✓ - Forum Delphi / Pascal
- Webbrowser vba - Forum Visual Basic 6
- Désactiver macro excel ✓ - Forum VB.NET
1 réponse
fisch_g
Messages postés
5
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
18 janvier 2006
17 janv. 2006 à 15:59
17 janv. 2006 à 15:59
j'ai trouvé ...
declarer :
Dim WithEvents HTMLdoc As MSHTML.HTMLDocument
dans la procédure : WebBrowser_DocumentComplete
Set HTMLdoc = WebBrowser.Document
puis ecrire cette methode :
Private Sub HTMLdoc_onkeydown()
Dim eventObj As IHTMLEventObj
Set eventObj = HTMLdoc.parentWindow.event
If eventObj.KeyCode = vbKeyN And eventObj.ctrlKey Then
eventObj.cancelBubble = True
eventObj.returnValue = False
eventObj.KeyCode = False
End If
End Sub
declarer :
Dim WithEvents HTMLdoc As MSHTML.HTMLDocument
dans la procédure : WebBrowser_DocumentComplete
Set HTMLdoc = WebBrowser.Document
puis ecrire cette methode :
Private Sub HTMLdoc_onkeydown()
Dim eventObj As IHTMLEventObj
Set eventObj = HTMLdoc.parentWindow.event
If eventObj.KeyCode = vbKeyN And eventObj.ctrlKey Then
eventObj.cancelBubble = True
eventObj.returnValue = False
eventObj.KeyCode = False
End If
End Sub
