COMMENT Coller du texte dans une zone de texte de la fenêtre activeRésolu

Question

Salut a tous,

voici mon pb:

    Je code une appli qui devrait faire office de super presse-papier.

    En effet mon appli enregistre du texte chaque fois que l'on fait CTRL + V dans un contr&#244;le.

    J'ai r&#233;ussi &#224; :

       Cr&#233;er un menu popup o&#249; que soit le
focus de l'appli avec les diff&#233;rents trucs que l'on &#224; copier avant
(lorque l'on appuie sur CTRL + W)

    Mais maintenant, je ne sais pas faire :

        coller le texte s&#233;lectionner dans le menu popup dans la fen&#234;tre active

        pour y arriver il faudrait d&#233;tecter l'appli qui &#224; le focus avant de d&#233;rouler le menu popup, puis d&#233;rouler le menu popup, de copier dans le presse-papier le texte qu'on &#224; s&#233;lectionner, puis de redonner le focus &#224; l'appli qui l'avait et enfin de lui envoyer la combinaison de touches CTRL + V (avec SendKeys)



Ce que je ne sais pas faire est en gras et &#231;a m'ennui vraiment si
quelqu'un pourrait m'expliquer clairement comment r&#233;soudre &#224; mon
probl&#232;me ce serait super sympa.



Tr&#232;s bient&#244;t pour simplifier la compr&#233;hension de mon probl&#232;me je distribuerait la source de mon programme.



Merci &#224; tous de votre aide.


[mailto:M@xwells M@xwells] M@ni@c
La vie est injuste et il nous faut l'accepter comme elle nous vient.

jpleroisse · Accepted Answer

Bonjour,

Si par d&#233;tecter l'Appli, tu veux dire d&#233;tecter la Form active, voici un code.



Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal
cch As Long) As Long







Private Sub Command1_Click()

' Fenetre active lors de l'iteration precedente

Static LastActive As Long



' Fenetre active sur le systeme

' Utiliser GetActiveWindow pour connaitre la fenetre active dans l'application)

Dim Active As Long

Active = GetForegroundWindow



' Si c'est la m&#234;me fen&#234;tre qui est active, on quitte

If LastActive = Active Then Exit Sub



' On r&#233;cup&#232;re la longueur du titre

Dim Length As Long: Length = GetWindowTextLength(Active) + 1



' Afin de pouvoir reserver une chaine de caract&#232;res assez grande

Dim Buffer As String: Buffer = Space$(Length)



' On r&#233;cup&#232;re le titre

Length = GetWindowText(Active, Buffer, Length)



' On supprime le caract&#232;re \0 final

Buffer = Left$(Buffer, Length)



' On ajoute le titre dans la liste

MsgBox Buffer



' Et on m&#233;morise la fenetre qui etait active

LastActive = Active

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez r&#233;ponse Accept&#233;e.

Renfield · Answer

une source qui pourrais t'aider

http://www.vbfrance.com/code.aspx?ID=34573

cs_maxwells · Answer

Merci beaucoup jpleroisse
je testerai ce soir

MERCI

Vive la communauté Codes Sources !!!!!!!
Question posée clairement --> Réponse claire dans les heures qui suivent

COMMENT Coller du texte dans une zone de texte de la fenêtre active

3 réponses

Discussions similaires