Utiliser lechangement dune image avec un Mouse_Up mais avec un groupe dimages:co

[Résolu]
Signaler
Messages postés
37
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
31 juillet 2012
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Environnement: WIn Xp - VBasic 6. edition professionnelle
Bonjour

Soit une image appelé oiseau:
Avec le code suivant je parvenais a simuler un éclairage temporaire de limage

au clic de la souris:


'je charge dimage plus clair lors du clic de la souris
Private Sub oiseau_MouseDown(Button As Integer, Shift As Integer, X As Single, Y

As Single)...


'je retourne a limage dorigine juste apres le clic
Private Sub oiseau_MouseUp(Button As Integer, Shift As Integer, X As Single, Y

As Single)...



Or pour simplifier le code il appartient désormais à groupe de boutons appelé

case et appelable via case(index) ou index represente la valeur de leur index.

Toutes les actions sur ces images sont situés dans la fonction:

case1_Click(Index as Integer)


Comment faire pour y intégrer la fonction précédente declairage du bouton?je ne

parviens pas a y intégrer les 2 fonctions:
MouseDown et MouseUp. Jai bien essayé decrire:
case1_Click(Index as Integer,Button As Integer, Shift As Integer, X As Single, Y

As Single)
mais ce prototype est refusée.





merci davance!

1 réponse

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonsoir,

Pour cet exemple, j'ai utiliser un groupe de CommandButton et 2 contrôles Image.



Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 ' Premier bouton

Image1.Picture = LoadPicture("C:\Horz1.bmp")

Case 1 ' 2ème bouton

Image1.Picture = LoadPicture("C:\Test.bmp")

End Select

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci