Discussion :

[Invité]

Bonjour,

Je suis actuellement en train de faire une application, j'ai un code qui se lance sur appuie uniquement d'un bouton. Sous XP il y a une "redondance" sur le bouton de souris c'est comme si j'appuyais au moins 100x dessus.. j'ai changé de souris usb, ps2, .. toujours nok

Code :

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

1
2
' Variable global, bien plus haut..
heureTmp = 0

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
    Private Sub Button221_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button221.Click
        Dim horloge As String
        Dim heureCLick As String
 
        heureCLick = Minute(Now) & ":" & Second(Now)
 
        horloge = Now & vbCrLf
        Clipboard.SetText(horloge)
 
        If (heureCLick <> heureTmp) Then
            'coller texte 
            AppActivate("CG21_PROD")
            Windows.Forms.SendKeys.Send("^v")
            ' ----- 
            heureTmp = heureCLick
        End If
 
        'AppActivate("Ezv -")
 
    End Sub

Je développe sous Windows 7 tout est ok, le copié se fait que si les seconds sous différentes, seulement sous XP sa copie plusieurs fois la phrase (une centaine !)

Comment faire?

Merci