Discussion :

[Najdar]

Bonjour à tous,

J'utilise un contrôle WebBrowser pour afficher des documents Html.
Le raccourci clavier Ctrl + C est géré par le contrôle lui-même. Cela permet de faire de copier coller très pratique.
Sauf que, chez moi et sur deux postes différents, Ctrl+C ne fonctionne pas dans 90% des cas.
Je soupçonne que d'autres contrôles de mon application capturent ce raccourci...

Ma question est :
Comment, par le code, demander à WebBrowser de copier la sélection dans le presse-papier ?

Merci d'avance

[zazaraignée]

Salut

Certains scripts inclus dans les fichiers HTML désactivent la fonction Copier. C'est peut-être le cas. Peux-tu déterminer les cas précis où le copier ne fonctionne pas?

[mortalino]

Salut,

je ne sais pas copier une sélection, mais pour tout le texte de ton WebBrowser, voici comment faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ClipBord.Clear
    WB1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
    WB1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
    WB1.ExecWB OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DODEFAULT
    DoEvents

Pense à remplacer WB1 par le nom de ton WebBrowser

@++

[SilkyRoad]

bonsoir


cet exemple permet de placer dans le presse papier le texte selectionné dans un WebBrowser:

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
16
17
Private Sub Command1_Click()
    Dim Doc As HTMLDocument
    Dim txtRange As IHTMLTxtRange
 
    Set Doc = WebBrowser1.document
    Set txtRange = Doc.selection.createRange
 
    'Le texte sélectionné
    'MsgBox txtRange.Text
 
    'Insertion dans le press papier
    Clipboard.SetText txtRange.Text
 
   'Controle le contenu du presse papier
   MsgBox Clipboard.GetText(1)
 
End Sub

michel

[Najdar]

Merci zazaraignée.

Salut
Certains scripts inclus dans les fichiers HTML désactivent la fonction Copier. C'est peut-être le cas.

Je ne pense pas que cela soit le cas, car la fonction copier fonctionne depuis le menu contextuel.



Merci mortalino
Je pense que ta solution devrait marcher, pour la sélection courante, si l'on mets que la ligne suivante. Je vais essayer !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WB1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

Merci SilkyRoad
Je vais essayer tout de suite ta solution. Elle me parait PARFAITE !



Merci à tous !
Des réponses super rapides, toutes constructives et sans bavardage
Vive ce forum !!!!

[Najdar]

Encore une fois merci à tous.

J'ai utilisé la méthode SilkyRoad. Elle marche très bien !