Coller sans SendKeys

Bonjour, j'ai fais un programme rapidement pour enregistrer des textes et en appuyant sur une série de touches ça l'affiche.

Tout fonctionne j'utilise SendKeys "^V" pour coller. Mais ça ne marche pas en terminal, il copie, je peux faire ensuite ctrl + v et ça marche mais le sendkeys ne fonctionne pas.

Vous avez une idée pourquoi?

Comme chez moi tout marche bien, je me dis que ton code est fautif... mais ne vois pas ton code...
Montre-nous le donc en nous disant dans quel événement de quel contrôle il est écrit.

Code:

1 2 3 4 Clipboard.Clear Clipboard.SetText txtF7.Text, vbCFText SendKeys "^V"
C'est actionné lorsque j'appuie sur CTRL + F7. Tout fonctionne bien tant que je ne suis pas en terminal. Lorsque je suis en terminal il copie bien mais il n'envoie pas le SendKeys "^V", si je le fais moi même (ctrl + v) il colle le texte correctement.

Merci

Citation:

Envoyé par jmfmarques

Comme chez moi tout marche bien, je me dis que ton code est fautif... mais ne vois pas ton code...
Montre-nous le donc en nous disant dans quel événement de quel contrôle il est écrit.

j'attends...

Citation:

en nous disant dans quel événement de quel contrôle il est écrit

J'ai utilisé un objet qui s'appel ReyHotKeys qui gère justement les touches clavier. Donc sur HotKey_HotKeyPressed il fait un Case sur l'ID que ça donne et je configure des ID différent pour mes Key.
Code:

1 2 3 4 Set HotKey = New ReyHotKey HotKey.hwnd = Me.hwnd HotKey.Register vbKeyF7, MOD_CONTROL, 1
Et
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Private Sub HotKey_HotKeyPressed(ByVal ID As Integer) On Error GoTo SortieErreur 'Compteur de retour If xCompteur = Null Then xCompteur = 0 Else xCompteur = xCompteur + 1 End If Select Case ID Case 1: Clipboard.Clear Clipboard.SetText txtF7.Text, vbCFText SendKeys "^V" Case 2: Clipboard.Clear Clipboard.SetText txtF8.Text, vbCFText SendKeys "^V" Case 3: Clipboard.Clear Clipboard.SetText txtF9.Text, vbCFText SendKeys "^V" Case 4: Clipboard.Clear Clipboard.SetText txtF10.Text, vbCFText SendKeys "^V" Case 5: Clipboard.Clear Clipboard.SetText txtF11.Text, vbCFText SendKeys "^V" End Select Exit Sub SortieErreur: If xCompteur = 4 Then MsgBox "Erreur dans le Module. Erreur #: " & Err.Number & ", " & Err.Description Else Call HotKey_HotKeyPressed(ID) End If End Sub
Mon GoTo récursif c'est pour éviter l'erreur "impossible de récupérer le presse papier" qui s'exécute lorsque la mémoire ne s'est pas réinitialiser.

Je ne vois pas en quoi ça peut te rendre utile puisque j'ai mentionné que ça marche parfaitement en dehors du terminal. Je l'ai essayé sur plusieurs applications et tout fonctionne bien mais en terminal non.

Si tu as d'autres questions soit plus précis ;)

Salut

Heu... Deux questions:

Pourquoi répéter l'instruction Sendkeys dans tous les cas du Select Case plutôt que de le mettre à la fin de celui ci (puisqu'il n'y a pas de Case Else)?
Pourquoi ne pas utiliser la méthode getText du Clipboard (à la place de Sendkeys) et l'appliquer sur le contrôle actif (qui a le focus)?

C'est certain que je peux mettre le sendkeys à la fin.

Pour ce qui est de la propriété focus je ne sais pas comment faire. Vous pouvez m'aider? C'est pour cela que mon titre c'est "coller sans le sendkeys" :P

Merci

Citation:

C'est certain que je peux mettre le sendkeys à la fin.

Ce qu'essaye de te faire comprendre Zaza, c'est que tu n'as absolument pas besoin d'utiliser le Sendkeys..., ni pour copier, ni pour coller...
Si tu y tiens, il faut que le contrôle où le collage doit se faire ait le focus, bien évidemment.

Regarde ce qu'est SetFocus dans l'aide en ligne, s'il te plait.

Citation:

Envoyé par jmfmarques

il faut que le contrôle où le collage doit se faire ait le focus, bien évidemment.

Sur ?? je ne croit pas. Si on passe par le ClipBoard pas forcement.

Ceci marche bien je crois
Code:

1 2 3 4 5 Clipboard.SetText Text1.Text Text1.SetFocus Text2.text = ClipBorad.GetText
En passant Bomba tu peux t'en servir en remplacement de SendKey.

Citation:

Sur ?? je ne croit pas. Si on passe par le ClipBoard pas forcement.

pas forcément, en effet, mais fort conseillé si l'on doit faire la copie ou le collage à un endroit précis du texte qui pourrait déjà être présent dans le contrôle (bien que l'on puissé, même dans ce cas, procéder autrement, mais moins agilement).

Jouer avec selstart, sellength, etc.. et le clipboard.

Si reconnaître le contrôle actif pose problème

Tu définis une varaible globale à ta feuille (Form) pour prendre note du contrôle actif
Sur l'événement GetFocus de tes contrôles qui peuvent recevoir le contenu du presse-papiers, tu affecte à ta variable le contrôle en question
Tu utilise le nom de la variable pour coller le contenu du presse-papiers
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim controleActif As Control Private Sub Text1_GotFocus() Set controleActif = Text1 End Sub Private Sub Text2_GotFocus() Set controleActif = Text2 End Sub Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText Label1.Caption controleActif.SelText = Clipboard.GetText End Sub
Cet exemple foncitonne avec un bouton, mais est facile à transposer.

Il faut utiliser SelText plutôt que Text (pour les textBox) pour placer la copie au point d'insertion (ou en remplacement du texte sélectionné).