Discussion :

[retwas]

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

[methylene]

Bonjour,

C'est en effet étrange, et en pas à pas il se passe quoi ?

[retwas]

Pour le pas à pas je ne vois pas ou sa bug.. je me suis mis un XP Virtuel à l'aide de Virtual Box et.. sa marche! mais pourquoi pas sur l'autre? rhaa Windows !

[Graffito]

Jai l'impression que AppActivate("CG21_PROD") ne passe pas immédiatement la main à CG21_PROD, que le Coller se fait dans l'application courante et génère un event Click .

Que se passe-t'il en mettant un System.Threading.Thread.Sleep(10) ou un Application.DoEvents() juste après le AppActivate ?

[retwas]

Jai l'impression que AppActivate("CG21_PROD") ne passe pas immédiatement la main à CG21_PROD, que le Coller se fait dans l'application courante et génère un event Click .

Que se passe-t'il en mettant un System.Threading.Thread.Sleep(10) ou un Application.DoEvents() juste après le AppActivate ?

Bonjour, quand je rajoute les lignes j'ai l'impression que c'est mieux avec DoEvents() sa copie moins de fois genre entre 2 et 15 fois, c'est bizarre alors que tout marche sur mon Windows 7, mon XP virtuel.. mais pas sur un "vrai" XP..

[Graffito]

Bon, essayons une méthode bien bourrine (syntaxe du While en C#):

Code :

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

1
2
3
4
5
6
7
8
 
AppActivate("CG21_PROD") ;  
While (Focused) 
{ // on attend que la forme se désactive
  System.Threading.Thread.Sleep(100) ; 
  Application.DoEvents() ;
}
Windows.Forms.SendKeys.Send("^v")

[retwas]

Bon, essayons une méthode bien bourrine (syntaxe du While en C#):

Code :

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

1
2
3
4
5
6
7
8
 
AppActivate("CG21_PROD") ;  
While (Focused) 
{ // on attend que la forme se désactive
  System.Threading.Thread.Sleep(100) ; 
  Application.DoEvents() ;
}
Windows.Forms.SendKeys.Send("^v")

Merci sa marche mais j'avais trouvé sa juste avant et qui marchait aussi ^^

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
        Me.Hide()
 
        heureCLick = Now
 
        horloge = Now & " : " & vbCrLf
        Clipboard.SetText(horloge)
 
        If (heureTmp <> heureCLick) Then
            AppActivate("CG21_PROD")
            Application.DoEvents()
            While (j < 2)
                Windows.Forms.SendKeys.SendWait("^v")
                j = 2
            End While
            Threading.Thread.Sleep(100)
            heureTmp = heureCLick
        End If
        Me.Show()
        AppActivate("Mon appli")