[R] Changer l'image d'un bouton

[jesusip200]

Bonjours j'ai une question que j'ai pas trouver dans l'option recherche. Et qui pour moi serais utile a plusieurs personne.

Voila je voulais me faire un bouton power en image (rouge/vert). Seulement le problème c'est que le bouton rouge s'affiche mes quand je click dessus rien ce passe :S

Voila le code :

Code : Tout sélectionner

$Form1 = GUICreate("Test", 581, 365, 201, 238)
$Bouton_Img1 = GUICtrlCreateButton("Off", 232, 120, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\data\img\off.ico", -1)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Bouton_Img1
            GUICtrlSetImage( $Bouton_Img1, @ScriptDir & "\data\img\on.ico")
    EndSwitch
WEnd
 

Voila seulement l'image reste sur off.ico même si je click dessus. Alors j'ai essayer de changer les icon pour des bitmap comme ceci :

Code : Tout sélectionner

$Bouton_Img1 = GUICtrlCreateButton("Off", 232, 120, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\data\img\off.ico", -1)

Par :

$Bouton_Img1 = GUICtrlCreateButton("Off", 232, 120, 27, 25, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\data\img\off.bmp", -1)
 

Seulement j'ai le même problème.

[jamesst20]

Salut, Essaie sa:

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
$Form1 = GUICreate("Test", 581, 365, 201, 238)
$Bouton_Img1 = GUICtrlCreateButton("Off", 232, 120, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, @ScriptFullPath & "\data\img\off.ico")

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Bouton_Img1
$READ = GUICtrlRead($Bouton_Img1)
If $READ = "On" Then
GUICtrlSetData($Bouton_Img1, "Off")
GUICtrlSetImage($Bouton_Img1, @ScriptFullPath & "\data\img\off.ico")
ElseIf $READ = "Off" Then
GUICtrlSetData($Bouton_Img1, "On")
GUICtrlSetImage($Bouton_Img1, @ScriptFullPath & "\data\img\on.ico")
EndIf
EndSwitch
WEnd

A mon avis sa devrait etre corecte

A+

[jesusip200]

Non toujours le même problème. Merci d'avoir essayer.

[ani]

salut,
Dans la fonction GuiCtrlRead il faut rajouter l'option 1 pour retourner le texte d'un control

code corrigé

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
$Form1 = GUICreate("Test", 581, 365, 201, 238)
$Bouton_Img1 = GUICtrlCreateButton("Off", 232, 120, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, @ScriptFullPath & "\data\img\off.ico")

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Bouton_Img1
$READ = GUICtrlRead($Bouton_Img1, [color=#FF0000]1[/color])
If $READ = "On" Then
GUICtrlSetData($Bouton_Img1, "Off")
GUICtrlSetImage($Bouton_Img1, @ScriptFullPath & "\data\img\off.ico")
Else
GUICtrlSetData($Bouton_Img1, "On")
GUICtrlSetImage($Bouton_Img1, @ScriptFullPath & "\data\img\on.ico")
EndIf
EndSwitch
WEnd

bonne continuation

[jesusip200]

Super Merci sa marche