Page 1 sur 1
[R] Changer l'image d'un bouton
Posté : sam. 17 avr. 2010 03:18
par 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.
Re: [..] Changer l'image d'un bouton
Posté : sam. 17 avr. 2010 04:06
par 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+
Re: [..] Changer l'image d'un bouton
Posté : sam. 17 avr. 2010 04:24
par jesusip200
Non toujours le même problème. Merci d'avoir essayer.
Re: [..] Changer l'image d'un bouton
Posté : sam. 17 avr. 2010 12:05
par 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
Re: [..] Changer l'image d'un bouton
Posté : sam. 17 avr. 2010 14:22
par jesusip200
Super Merci sa marche
