utilisation de SetCursorPos et Mouse_EventRésolu

Question

Bonjour,

j'ai trouvé dans le forum plusieurs exemples de SetCursorPos et Mouse_Event, je les ai essayés, mais ça ne fonctionne pas comme je l'espérais.

j'utilise l'évenement Form_MouseDown pour récupérer la position de la souris dans ma feuille et quand je veux repositionner la souris avec SetCursorPos pour effectuer un click de souris, le pointeur n'est pas au bon endroit, est-ce un problème d'unité (pixel, twip, mm ou inche) ?
je voudrais juste avoir les bonnes valeurs en X et Y, pour pouvoir cliquer des boutons d'un OCX qui n'est pas prévu pour fonctionner sans interventions !

Les Sp utilisés : 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button vbLeftButton Then Xpos X If Button vbLeftButton Then Ypos Y 
Me.PSet (X, Y), QBColor(Rnd * 15) ' pour pointer la position de la souris
End Sub

et 

Private Sub Command1_Click()
'position de la souris au coordonnée X et Y
SetCursorPos Xpos, Ypos '=> la souris sort de l'écran !!!
'Le bouton gauche de la souris s'enfonce
'Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'le bouton gauche de la souris se relache
'Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
End Sub

Merci d'avance

ACT

Gobillot · Accepted Answer

Xpos = X + ScaleX(Left, vbTwips, vbPixels) + 4
    Ypos = Y + ScaleY(Top, vbTwips, vbPixels) + 30

Daniel

Gobillot · Answer

4 c'est l'épaisseur de la bordure gauche de la Forme
et 30 c'est l'épaisseur de la barre du haut
calculé par différence entre les dimensions de la Forme et de la zone client:

    dx = (ScaleX(Width, vbTwips, vbPixels) - ScaleX(ScaleWidth, ScaleMode, vbPixels)) / 2
    dy = (ScaleX(Height, vbTwips, vbPixels) - ScaleX(ScaleHeight, ScaleMode, vbPixels)) - dx

Daniel

nazzguhl · Answer

Merci, je pense que ça va résoudre mon problème

ACT

Utilisation de SetCursorPos et Mouse_Event

3 réponses

Discussions similaires