Midou
10 janv. 2002 à 22:49
si j ai bien compris ta question voici la reponse :
si ton bouton s'appelle commad1 alors tu ajoute le code suivant :
---------------------
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("repertoire\nouvelIcone")
End Sub
---------------------
ton (nouvelIcone )doit etre dans ( repertoire )
exemple:
----------------------------
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("c:\Ibmtools\pc.ico")
End Sub
------------------------------
et quand la souris quitte le bouton tu peux ajouter le meme code pour
ta feuille (Form)
------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("repertoire\iconeInitial.ico")
End Sub
------------------------
où codeInitial est celui de dans la proprieté Picture de ton bouton
bonne chance
il doit y avoir un champ image dans ton bouton qui doit apparaitre dans l'inspecteur d'objet, là ou tu as du mettre ton image. si tu clique sur les evenements du bouton, il doit y avoir aussi un envenement OnMouseMouse dans le genre, et dans cette fonction tu y met ta nouvelle image ! mais n'oublie pas remettre l'ancienne dans l'evenement OnMouseOut ( pas tres clair, mais bon )
bonne chance ...
Shen Ker