[R] Réaliser un bouton "interactif"

[Xtend]

Bonjour,

Je souhaiterais réaliser une GUI avec quelques boutons, jusqu'à la, pas de problème
Cependant, je voudrais que ces boutons soit des images (.jpg, .png ou autres) et que lorsque qu'on passe la souris dessus, l'image change.

En résumé, ça consisterais à afficher une image lorsque la souris n'est pas dessus et à afficher une autre image lorsqu'elle est dessus (on pourrais aussi faire une troisième image lorsqu'on clique dessus).

J'ai vu une UDF capable de faire cela : http://autoitscript.fr/forum/viewtopic.php?f=21&t=3672
Cependant, comme l'auteur le dit lui-même, de nombreux bugs font que le script bug (et en effet, chez moi, ça plante beaucoup ... mais bon, c'est exactement ce que je recherche).

Connaissez-vous le moyen de réaliser ceci ou les étapes à suivre ?


Merci d'avance

[Xtend]

Après moult recherches, j'ai finalement trouvé ce topic : http://autoitscript.fr/forum/viewtopic.php?f=21&t=4174

C'est l'UDF qu'il me fallait, j'ai réarranger la ligne 24 en remplaçant AdlibEnable par AdlibRegister mais il m'affiche cette erreur :

► Afficher le texte

Code : Tout sélectionner

C:\function guictrlcreatepic_set_on_over\Pic_Set_On_Over.au3(30,25) : ERROR: _On_Over() called by a previous line with 0 arg(s). Min = 1. First previous line calling this Func is 24.
Func _On_Over($o_object)
~~~~~~~~~~~~~~~~~~~~~~~~^
C:\function guictrlcreatepic_set_on_over\Pic_Set_On_Over.au3 - 1 error(s), 0 warning(s)
 

Voici le code de l'UDF que j'ai utilisé :

► Afficher le texte

Code : Tout sélectionner

#include <WinAPI.au3>

Opt("GUICoordMode", 1)

Global $pic__down[1000], $pic__over[1000]

Func _GUICtrlCreatePic_Set_On_Over($pic_down, $pic_over, $left, $top, $width, $height)
If StringRight($pic_down, 3) <> "bmp" Then
If StringRight($pic_down, 3) <> "gif" Then
If StringRight($pic_down, 3) <> "jpg" Then
_Exit_Erreur("$pic_down (*.bmp,*.gif,*.jpg)")
EndIf
EndIf
EndIf
If StringRight($pic_over, 3) <> "bmp" Then
If StringRight($pic_over, 3) <> "gif" Then
If StringRight($pic_over, 3) <> "jpg" Then
_Exit_Erreur("$pic_over (*.bmp,*.gif,*.jpg)")
EndIf
EndIf
EndIf
If Not FileExists($pic_down) Then _Exit_Erreur($pic_down&" Not Exists")
If Not FileExists($pic_over) Then _Exit_Erreur($pic_over&" Not Exists")
Global $o_object = GUICtrlCreatePic($pic_down, $left, $top, $width, $height)
GUISetState()
AdlibRegister("_On_Over", 50)
$pic__down[$o_object] = $pic_down
$pic__over[$o_object] =  $pic_over
return $o_object
EndFunc

Func _On_Over($o_object)
For $oo_object = 0 To $o_object
Local $mousepos = GUIGetCursorInfo()
If @error Then
Else
Select
Case $mousepos[4] = $oo_object And $mousepos[2] = 1
GUICtrlSetImage($oo_object, $pic__down[$oo_object])
Case $mousepos[4] = $oo_object And $mousepos[2] = 0
GUICtrlSetImage($oo_object, $pic__over[$oo_object])
Case $mousepos[4] <> $oo_object
GUICtrlSetImage($oo_object, $pic__down[$oo_object])
EndSelect
EndIf
Next
EndFunc

func _Exit_Erreur($text)
Return _WinAPI_ShowError($text)
EndFunc

Et mon script (enfin c'est celui du topic ou je l'ai pris ^^) :

► Afficher le texte

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>

Global $hWnd0 = GUICreate("CalAgenda", 235, 250)

Pic_Set_On_Over()

func Pic_Set_On_Over()

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

Pouvez-vous m'aider à résoudre mon problème ?

[pierrotm777]

J'ai l'impression que l'erreur indique un appel à la fonction _On_Over avec 0 objet puis avec un objet .
Il semblerait donc qu'il n'aime pas le Adlibregister car l'objet n'y est pas indiqué .

[Xtend]

En effet, c'est bien cela (enfin, je pense)
J'avais essayé en l'enlevant mais ça marchait pas (le script se lançait mais les boutons étaient pas "interactifs").

Savez-vous comment résoudre le problème ?

[pierrotm777]

Je pense avoir trouvé une solution :
Dans l'UDF, je vous propose de commenter le Adlibregister
De remplacer :

Code : Tout sélectionner

Global $pic__down[1000], $pic__over[1000]

par:

Code : Tout sélectionner

Global $pic__down[1000], $pic__over[1000],$timer = TimerInit (),$diff,$o_object
 

► Afficher le texte

Code : Tout sélectionner

#include <WinAPI.au3>

Opt("GUICoordMode", 1)

Global $pic__down[1000], $pic__over[1000],$timer = TimerInit (),$diff


Func _GUICtrlCreatePic_Set_On_Over($pic_down, $pic_over, $left, $top, $width, $height)
    If StringRight($pic_down, 3) <> "bmp" Then
        If StringRight($pic_down, 3) <> "gif" Then
            If StringRight($pic_down, 3) <> "jpg" Then
            _Exit_Erreur("$pic_down (*.bmp,*.gif,*.jpg)")
            EndIf
        EndIf
    EndIf
    If StringRight($pic_over, 3) <> "bmp" Then
        If StringRight($pic_over, 3) <> "gif" Then
            If StringRight($pic_over, 3) <> "jpg" Then
            _Exit_Erreur("$pic_over (*.bmp,*.gif,*.jpg)")
            EndIf
        EndIf
    EndIf
    If Not FileExists($pic_down) Then _Exit_Erreur($pic_down&" Not Exists")
    If Not FileExists($pic_over) Then _Exit_Erreur($pic_over&" Not Exists")
    Global $o_object = GUICtrlCreatePic($pic_down, $left, $top, $width, $height)
    GUISetState()
;   AdlibRegister("_On_Over", 50)
    $pic__down[$o_object] = $pic_down
    $pic__over[$o_object] =  $pic_over
    return $o_object
EndFunc

Func _On_Over($o_object)
For $oo_object = 0 To $o_object
    Local $mousepos = GUIGetCursorInfo()
    If @error Then
    Else
    Select
        Case $mousepos[4] = $oo_object And $mousepos[2] = 1
            GUICtrlSetImage($oo_object, $pic__down[$oo_object])
        Case $mousepos[4] = $oo_object And $mousepos[2] = 0
            GUICtrlSetImage($oo_object, $pic__over[$oo_object])
        Case $mousepos[4] <> $oo_object
            GUICtrlSetImage($oo_object, $pic__down[$oo_object])
    EndSelect
    EndIf
Next
EndFunc

func _Exit_Erreur($text)
    Return _WinAPI_ShowError($text)
EndFunc

Puis de modifier votre script ainsi !

► Afficher le texte

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>

Global $hWnd0 = GUICreate("CalAgenda", 235, 250)

Pic_Set_On_Over()

func Pic_Set_On_Over()

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
    $diff = TimerDiff($Timer)
    if $diff>50  then
    _On_Over($o_object)
    $Timer = TimerInit()
    EndIf

    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

[Xtend]

Ben dis-donc quel rapidité !
Le problème venait bien de la donc je te remercie beaucoup pour ton aide.

Maintenant, il ne me reste plus, qu'à faire en sorte de rajouter une troisième image pour quand on clique dessus.
J'imagine qu'il faut faire ça avec des "Case", non ?
Si ce n'est pas ça, pourrais-tu m'indiquer comment m'y prendre, ce serait très gentil de ta part

[pierrotm777]

Vous avez déjà 4 exemple de boutons créés avec la fonction _GUICtrlCreatePic_Set_On_Over

Vous pouvez donc créer autant de bouton dont vous avez besoin :
Local $boutonnouveau1 = _GUICtrlCreatePic_Set_On_Over("exit.gif", "exitover.gif", 180, 131, 20, 20)
Il faudra juste le placer là où vous en avez besoin :

Code : Tout sélectionner

_GUICtrlCreatePic_Set_On_Over("nom image", "nom image au passage de la souris", position x, position y, taille x en pixel, taille y en pixel)

puis pour chaque nouveau bouton , ajoutez effectivement un nouveau case qui indiquera l'action à réaliser.

Code : Tout sélectionner

case $boutonnouveau1
    MsgBox(0, "HAL Info", "I am sorry Dave, I can't do that !")

[Xtend]

Si j'ai bien compris, votre méthode consisterai à changer l'image lorsque qu'on clique dessus par un "Case".

Cependant, je pense qu'il est possible de modifier l'UDF de façon à écrire :

Code : Tout sélectionner

_GUICtrlCreatePic_Set_On_Over("nom image", "nom image au passage de la souris", [color=#FF0000][b]"nom image au clic"[/b][/color], position x, position y, taille x en pixel, taille y en pixel)

Mais je sais pas comment m'y prendre

[pierrotm777]

Ici l'image ne change qu'au passage de la souris sur le bouton !
Je vous conseil de créer deux objets pour un nouveau bouton avec votre éditeur graphique préféré :
Par exemple, copiez next.jpg en bouton1.jpg et nextover.jpg par boutonover1.jpg et éditez les , puis modifiez les selon votre besoin .
Vous pouvez aussi trouver des boutons sur le net un peu partout et les renommer !

Une fois ces deux graphiques créés, il vous reste à créer le bouton.
Si vous regardez bien les boutons, ils sont, ici, espacés de 40 pixels!
Le bouton le plus bas étant le bouton $exit, placé en x=180,y=131 et de taille x=20,y=20

Code : Tout sélectionner

Local $exit = _GUICtrlCreatePic_Set_On_Over("exit.gif", "exitover.gif", 180, 131, 20, 20)

Le nouveau bouton pourrais donc être par exemple décalé de 40 pixels, ce qui donnerais:

Code : Tout sélectionner

Local $bouton1 = _GUICtrlCreatePic_Set_On_Over("bouton1.jpg", "boutonover1.jpgf", 180, 171, 20, 20)

[Xtend]

Je crois que vous avez pas compris ma question ou je me suis mal exprimé.
Je ne chercher pas à créer d'autres boutons pour l'instant, je cherche juste à en faire un.

Je vais essayer des résumer ce que je veux faire afin que ce soit plus compréhensible :

Il y a trois étapes importantes chez la vie d'un bouton (en ayant un peu d'imagination ^^) :
- le premier, c'est la création (lors du lancement du script)
- le second, c'est le passage de la souris
- le troisième, c'est le clic par la souris (actionnant donc une action)


Mais bon, j'ai réussi à modifier l'UDF en créant la variable $pic_surover et ça à l'air de marcher.

J'ai rajouté la "Case" avec

Code : Tout sélectionner

Case $msg = $oo_object
GUICtrlSetImage($oo_object, $pic__surover[$oo_object])

Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <WinAPI.au3>

Opt("GUICoordMode", 1)

Global $pic__down[1000], $pic__over[1000], $pic__surover[1000],$timer = TimerInit (),$diff , $msg


Func _GUICtrlCreatePic_Set_On_Over($pic_down, $pic_over, $pic_surover, $left, $top, $width, $height)
    If StringRight($pic_down, 3) <> "bmp" Then
        If StringRight($pic_down, 3) <> "gif" Then
            If StringRight($pic_down, 3) <> "jpg" Then
            _Exit_Erreur("$pic_down (*.bmp,*.gif,*.jpg)")
            EndIf
        EndIf
    EndIf
    If StringRight($pic_over, 3) <> "bmp" Then
        If StringRight($pic_over, 3) <> "gif" Then
            If StringRight($pic_over, 3) <> "jpg" Then
            _Exit_Erreur("$pic_over (*.bmp,*.gif,*.jpg)")
            EndIf
        EndIf
    EndIf
    If StringRight($pic_surover, 3) <> "bmp" Then
        If StringRight($pic_surover, 3) <> "gif" Then
            If StringRight($pic_surover, 3) <> "jpg" Then
            _Exit_Erreur("$pic_surover (*.bmp,*.gif,*.jpg)")
            EndIf
        EndIf
    EndIf
    If Not FileExists($pic_down) Then _Exit_Erreur($pic_down&" Not Exists")
    If Not FileExists($pic_over) Then _Exit_Erreur($pic_over&" Not Exists")
    If Not FileExists($pic_surover) Then _Exit_Erreur($pic_surover&" Not Exists")

    Global $o_object = GUICtrlCreatePic($pic_down, $left, $top, $width, $height)

    GUISetState()

    $pic__down[$o_object] = $pic_down
    $pic__over[$o_object] =  $pic_over
    $pic__surover[$o_object] =  $pic_surover

    return $o_object
EndFunc

Func _On_Over($o_object)
For $oo_object = 0 To $o_object
    $msg = GUIGetMsg()
    Local $mousepos = GUIGetCursorInfo()
    If @error Then
    Else
    Select
        Case $mousepos[4] = $oo_object And $mousepos[2] = 1
            GUICtrlSetImage($oo_object, $pic__down[$oo_object])
        Case $mousepos[4] = $oo_object And $mousepos[2] = 0
            GUICtrlSetImage($oo_object, $pic__over[$oo_object])
        Case $mousepos[4] <> $oo_object
            GUICtrlSetImage($oo_object, $pic__down[$oo_object])

        Case $msg = $oo_object
            GUICtrlSetImage($oo_object, $pic__surover[$oo_object])


    EndSelect
    EndIf
Next
EndFunc

func _Exit_Erreur($text)
    Return _WinAPI_ShowError($text)
EndFunc

Je passe le problème en résolu.
@ pierrotm777 : je te remercie pour ton aide

[matwachich]

Bon, je sais que le sujet est résolu mais je vous donne 2 liens qui m'ont permis de faire exactement ce que tu veut
http://www.autoitscript.com/forum/topic ... hover-udf/
http://www.autoitscript.com/forum/topic ... icons-au3/

[Xtend]

Bon, je sais que le sujet est résolu mais je vous donne 2 liens qui m'ont permis de faire exactement ce que tu veut
http://www.autoitscript.com/forum/topic ... hover-udf/
http://www.autoitscript.com/forum/topic ... icons-au3/

Ben, pas tout à fait résolu car je n'arrive pas à faire afficher une background à cette UDF lorsque la souris passe sur le bouton

J'avais déjà vu le second mais pas le premier, je pense que je vais m'en servir :p
Merci pour ta participation

[matwachich]

Ya pas de quoi!
Je comptai faire un UDF de création de boutons exactement comme tu les demandes, sauf qu'il sera basé sur des fichiers icone, et pas png ou jpg, car la transparence est plus simple à gérer.
Grosso-modo, je fais comme cela (exemple 2 de l'UDF icons.au3):

Code : Tout sélectionner

GUICreate('Example2', 216, 128)
$Icon = GUICtrlCreateIcon('', 0, 40, 40, 48, 48)
_GuiCtrlSetOnHover(-1, '_change', '_change')
GUISetState()

_SetIcon($Icon, 'icon_normale', 0, 48, 48)

Do
    Sleep(100)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _change($hCtrl, $iFlag, $hWin)
    Switch $iFlag
        Case 1
            _SetIcon($hCtrl, 'icon_normale', 0, 48, 48)
        Case 2
            _SetIcon($hCtrl, 'icon_hover', 0, 48, 48)
    EndSwitch
EndFunc

GUIDelete()

PS: j'ai peut être inversé les case de $iFlag (voir la doc. de l'UDF OnHover)

Quand l'UDF sera prêt, je posterai un lien ici!

[Xtend]

Ok, je te souhaite bonne chance pour ton UDF
Dommage que tu te contente seulement des icônes (ce qui est déjà pas mal faut avouer ^^).

[matwachich]

En effet, je me contente d'icones, mais je créer d'abord mon image sous GIMP en png puis j'utilise SimplyIcon (google) qui est pas mal et très simple

Sinon, voici l'UDF

[Xtend]

Salut,

Ben j'ai testé ton UDF et il marche pas chez moi.
J'ai donc ouvert les fichiers au3, je me suis rendu compte que :
- 1) tu mettais tes fichiers dans un dossier "perso" (exemple : #include <perso\Icons.au3>) donc j'ai supprimé le dossier "perso" étant donné que j'inclue les UDF directement dans le dossier "Include". Cependant, ça marchait pas non plus.

- 2) Tu mets l'include :
#include <GUICtrlOnHover.au3>
or dans le dossier include de AutoIt, il existe :
#include <GUICtrlSetOnHover.au3>

Est-ce une erreur d'écriture ou une UDF que tu as oubliés de mettre dans zip ?
Je pencherais plutôt pour une UDF car tu l'avais mis dans le dossier "perso". Si tel est le cas, merci de le mettre dans ton zip pour ceux qui comme moi, ne l'ont pas.

- 3) En remplaçant l'include, j'ai l'erreur suivante :

► Afficher le texte

Code : Tout sélectionner

C:\Program Files (x86)\AutoIt3\Include\GUICtrlSetOnHover.au3(15,107) : ERROR: Opt() called with illegal argument 1: "OnExitFunc"
Global $__GUICtrl_SetOnHover_sOriginal_OnExitFunc   = Opt("OnExitFunc", "__GUICtrl_SetOnHover_OnAutoItExit")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\UDF_3StatIcon\3StatIcon.au3(41,73) : ERROR: _GUICtrl_OnHoverRegister(): undefined function.
                                    "__3StatIcon_OnClickFunction", "__3StatIcon_OnClickFunction", 0)
                                    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\UDF_3StatIcon\3StatIcon.au3 - 2 error(s), 0 warning(s)

J'espère que tu solutionneras ces bugs