Bonjour,

J'utilise le contrôle WebBrowser de Vb6 avec la référence "Microsoft WebBrowser Customizer Sample Object" et une instanciation de I.E 8

J'arrive à contrôler mon navigateur avec le code ci-dessous, mais la sélection de la souris dans les champs de saisie textarea est désactivée. Quelqu'un saurait-il comment la récupérer ? (La sélection est seulement possible avec les raccourcis du clavier.)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Set CustomWB = New WBCustomizer
    With CustomWB
 
      .EnableAllAccelerators = True 'Tous les accélérateurs
      .EnableContextMenus = False 'Menu contextuel
      .EnableAccelerator vbKeyN, vbKeyControl, False 'Nouveau site interdit
      .EnableAccelerator vbKeyO, vbKeyControl, False 'Nouvelle page interdite
      .EnableAccelerator vbKeyC, vbKeyControl, True 'copier
      .EnableAccelerator vbKeyV, vbKeyControl, True 'coller
      .EnableAccelerator vbKeyX, vbKeyControl, True 'couper
      .EnableAccelerator vbKeyL, vbKeyControl, True 'souris gauche
      .EnableAccelerator vbKeyR, vbKeyControl, True 'souris droite
 
    Set .WebBrowser = WebBrowser1
    End With