Gestion du Presse Papier (Clipboard)

**reultor** · 05/03/2020, 11h18

Bonjour,

Je cherche à faire un programme qui va gérer le presse papier de Windows.

Pour cela j'ai trouvé un bout de code qui permet de récupérer le texte lorsqu'il y a un changement dans le presse papier.
Mais pour la suite, j'ai un problème...

Je précise que je ne connait pas très bien le VB.NET, je début quoi, donc j'ai pas forcément bien compris le code que j'ai copié.
Le code a un comportement étrange, il ne passe pas par ces deux lignes, qui sont dans la fonction WndProc.

Code :

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

1
2
3
 
SauvegardePressePapier(0, 0) = Clipboard.GetText()
MsgBox(SauvegardePressePapier(0, 0))

Pouvez-vous me dire pourquoi ? Et comment je peux résoudre ce problème ?

Voici le code en entier :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System.Runtime.InteropServices
Public Class Form1
    Private SauvegardeListBox(,) As String
    Private Const WM_DRAWCLIPBOARD As Integer = 776
    Private Const WM_CHANGECBCHAIN As Integer = 781
    Private fpChainedWindowHandle As IntPtr
 
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Me.ListBox2.SelectedIndex = Me.ListBox1.SelectedIndex
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fpChainedWindowHandle = SetClipboardViewer(Me.Handle)
    End Sub
    <DllImport("User32.dll")>
    Public Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
    End Function
    <DllImport("User32.dll")>
    Public Shared Function SendMessage(ByVal Handle As IntPtr,
                                 ByVal msg As Integer,
                                 ByVal wParam As IntPtr,
                                 ByVal lParam As IntPtr) As IntPtr
    End Function
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)
        If m.Msg = WM_DRAWCLIPBOARD Then
            If My.Computer.Clipboard.ContainsText = True Then
                Me.ListBox1.Items.Add(Clipboard.GetText())
                SauvegardeListBox(0, 0) = Clipboard.GetText()
                MsgBox(SauvegardeListBox(0, 0))
            End If
            SendMessage(fpChainedWindowHandle, m.Msg, m.LParam, m.WParam)
        End If
    End Sub
End Class

Merci pour votre aide !

**reultor** · 09/03/2020, 16h17

J'ai regardé sur internet la plupart des exemples utilisent cette façon de faire.

Certain récupère le presse papier simplement avec :

Code :

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

Clipboard.GetText()

Mais je souhaite récupérer les valeurs du presse papier même quand l'application est en arrière plan et ce n'est pas possible avec cette méthode à ma connaissance...

Si vous avez des idées je suis preneur !

**Phil Rob** · 09/03/2020, 16h33

Bonjour,
Si GetText donne ce que tu veux quand il est exécuté, dis-nous comment compte-tu activer ce code quand ton appli est en standby au bas de l'écran ?

**reultor** · 09/03/2020, 16h51

C'est bien là où je suis bloqué

J'arrive à capter le contenu du presse papier soit avec la méthode de mon 1er message, soit avec celle de mon 2ème message.

Par contre uniquement la 1er méthode semble permettre de capter les changements du presse papier pendant que mon application est en arrière plan (réduit ou en bas de l'écran)

Je ne connais pas une autre méthode mais si vous avez une piste je peux toujours regarder

**Phil Rob** · 09/03/2020, 17h25

Peut-être que si tu programmes en réponse à l'événement Activate du Form, tu auras ce que tu veux.
Tu ne verras le résultat que lorsque le Form sera activé, donc aussi quand tu cliques son icône au bas de l'écran.
Tu dois savoir aussi que la méthode Paste du TextBox (et d'autres) ramène le contenu du presse-papier dans sa zone de texte.

**Phil Rob** · 09/03/2020, 18h10

Suite ...

Voici un projet de test : Copier-Coller.zip

La vidéo suivante montre son fonctionnement : https://www.dropbox.com/s/z24ghz2f5a...oller.mp4?dl=0

Bon amusement,

**reultor** · 10/03/2020, 10h05

Merci pour tes réponses !

On se rapproche de ce que je cherche à faire mais ce n'est pas encore vraiment ce que je voudrais faire.

Le but de mon application est de pouvoir récupérer la liste des copier/coller fait par un utilisateur.
Ceci pendant que l'application tourne, peut importe qu'elle soit au 1er plan/réduit/arrière plan.

Dans ton exemple, quand l'application est en arrière plan, uniquement le copié fait en dernier est sauvegardé dans tes texbox.
Si je copie le mot "salut" et "bonjour, tu auras uniquement le mot "bonjour" dans ta textbox hors moi je voudrais que l'on y trouve "salut" et "bonjour".

J'espère être plus clair, si je m'exprime mal hésite pas à me poser des questions.

**Phil Rob** · 10/03/2020, 10h43

Bonjour,

Ce que tu demandes ne me parait pas possible.

Avec les codes dont tu disposes, tu accèdes au contenu du presse-papier et ce contenu est unique (de plusieurs copier demandés, seuls le dernier est récupérable). C'est pourquoi, pour en obtenir plusieurs, il faut écrire ton propre presse-papier et celui-là, il ne fonctionnera qu'au niveau de ton application.
Il t'es possible de surveiller ce qui se passe dans ton application et, éventuellement de mettre en place un dispositif pour capter tous les <CTRL>+<C> réalisés sur TES zones de textes, mais ton application ne pourra pas mémoriser (à la place du "vrai" presse-papier) ce qui se passe dans les autres programmes. Or, quand ton application sera réduites, les seuls copier pouvant être fait le seront dans d'autres programmes.

Voila pourquoi je crois qu'il n'est pas possible de faire ce que tu demandes.

Mais je peux me tromper et peut-être que quelqu'un d'autre possède une solution ...