[Func] _GUICtrlCreatePic_Set_On_Over
Posté : ven. 27 nov. 2009 14:11
bonjour je vient de préparer une petite fonction qui permet de créer un bouton avec une image (pic) et de la changer au passage de la souris
(cela permet de créer ses propre boutons )
Exemple de script :
Fichier joint en bas de page : - Pic_Set_On_Over.au3
- image (bmp, gif, jpg)
voila et j' autorise bien sur le modification du nom de l'auteur de la fonction s'il y a modification ou amélioration.
.
(cela permet de créer ses propre boutons )
Exemple de script :
Code : Tout sélectionner
#AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
Opt('MustDeclareVars', 1)
#include <GUIConstantsEx.au3>
#include <Pic_Set_On_Over.au3>
Pic_Set_On_Over()
func Pic_Set_On_Over()
Global $hWnd0 = GUICreate("CalAgenda", 235, 250)
GUISetBkColor(0x424242)
Local $back1 = _GUICtrlCreatePic_Set_On_Over("back.bmp", "backover.bmp", 180, 11, 41, 23)
Local $next1 = _GUICtrlCreatePic_Set_On_Over("next.bmp", "nextover.bmp", 180, 51, 41, 23)
Local $next2 = _GUICtrlCreatePic_Set_On_Over("next.jpg", "nextover.jpg", 180, 91, 24, 24)
Local $exit = _GUICtrlCreatePic_Set_On_Over("exit.gif", "exitover.gif", 180, 131, 20, 20)
GUISetState()
While 1
Switch GUIGetMsg()
case $GUI_EVENT_CLOSE
Exit
case $back1
MsgBox(0, "", "back.bmp")
Case $next1
MsgBox(0, "", "Next.bmp")
Case $next2
MsgBox(0, "", "Next.jpg")
case $exit
MsgBox(0, "", "exit.gif")
Exit
EndSwitch
WEnd
EndFunc- image (bmp, gif, jpg)
voila et j' autorise bien sur le modification du nom de l'auteur de la fonction s'il y a modification ou amélioration.
.
Mais je salue ta performance, car ton script a le mérite d'être clair, fonctionnel et très bien agencé !