FirSteph
Messages postés60Date d'inscriptionlundi 21 octobre 2002StatutMembreDernière intervention 7 octobre 2007
-
5 mai 2003 à 00:23
cs_Arnaud01
Messages postés40Date d'inscriptionmardi 22 avril 2003StatutMembreDernière intervention25 avril 2005
-
5 mai 2003 à 13:23
Voila j'ai créer un bouton sur lequel j'ai placé une picturebox avec une image, pour simuler control (on fait avec les moyens du bord :p). Je veux que quand on clique sur l'image, l'action du bouton s'enclenche. Je sais deja faire cela avec le code suivant (Command1 étant un bouton et Picture1 une picturebox):
Private Sub Command1_Click()
End
End Sub
Private Sub Picture1_Click()
Command1.SetFocus
Command1 = vbKeyExecute
End Sub
Je pourrais m'en contenter mais dans un soucis de perfectionnisme j'aimerais qu'on voit aussi le bouton s'enfoncer comme si on cliquais dessus lorsqu'on clique sur l'image.
Toute aide est la bienvenue :)
cs_Arnaud01
Messages postés40Date d'inscriptionmardi 22 avril 2003StatutMembreDernière intervention25 avril 2005 5 mai 2003 à 13:23
Voici le code pour simuler un clique à un endroit précis, en te promenant sur le site tu l'aurais trouvé ainsi que de nombreuses explications, mais tu manques peut etre de temps, alors je reste à ta disposition pour toute autre question à ce sujet.
A+
Private Declare Sub mouse_event Lib "USER32" (ByVal dwFlags As Long, ByVal dX As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos& Lib "USER32" (ByVal X As Long, ByVal Y As Long)