Le curseur de la souris sur le bouton command1Résolu

Question

Bonjour,







Je désire positionner le curseur de la souris sur le bouton
command1 en top seulement, car ce bouton ce déplace sur la form de droite à
gauche et l’inverse.







Si ce n’est pas possible comment faire pour que le


 curseur de la souris


 ne
sorte jamais de la form.







Cordialement,

B0mbJacK · Accepted Answer

Re, ptite correction 


SetCursorPos Pos.x,command1.top

B0mbJacK · Answer

Lu

commence par le plus simple, utilise l'api SetCursorPos ki permet de déplacer ta souris 

bon coding....++

jrivet · Answer

Salut, En complémént je te dirais aussi d'utiliser GetCursorPos Pour récupérer la position Soit les déclaration d'api suivante. (private si dans form) Public Declare Function SetCursorPos Lib "user32" ByVal x As Long, ByVal y As Long) As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Type POINTAPI x As Long y As Long End Type Coloration syntaxique automatique [AFCK] @+, Ju£i?n

marc660 · Answer

Bonjour,







Merci pour vos réponses mes j’ai déjà essayé, malheureusement
ce n’est pas ce que je cherche.







Cordialement,

B0mbJacK · Answer

Re, 

premiere idée sans trop réfléchir ...surtout en période de ramadan, j'ai du mal la journée 

objet Tirmer  avec interval à 1000 (1seconde) 

Public Type POINTAPI 
        x As Long 
        y As Long 
End Type 

dim Pos as POINTAPI
Private Sub Timer1_Timer()
GetCursorPos Pos
SetCursorPos command1.top,Pos.x
End Sub

donc curseur il aura toujours la meme position y à chaque fois ,on pourra le déplacer ke horizontalement

Le curseur de la souris sur le bouton command1

5 réponses

Votre réponse

Discussions similaires