[R] Un bouton avec deux actions : Start/Stop 1 en 2

[Boulanza]

Bonjour,
Je cherche la solution pour créer un bouton avec deux actions : Start/Stop ==> 1 en 2
Je m'explique: lorsque je clique sur le bouton start (pour exécuter une application) il change en Stop (pour quitter l'application).
Merci pour votre aide.
Cordialement.

[jl56]

Bonjour à tous,

J'ai eu ce besoin pour un de mes scripts
il faut créer 2 boutons De même taille, placé exactement au même endroit
ensuite vous affichez l'un ou l'autre.

Code: [Tout sélectionner] [Déplier/Replier]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 615, 437, 192, 124)
GUISetFont(14, 800, 0, "MS Sans Serif")
Global $But_marche = GUICtrlCreateButton("Marche", 71, 88, 194, 52)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
Global $But_arret = GUICtrlCreateButton("Arret", 71, 88, 194, 52)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetState($But_marche, $GUI_SHOW)
GUICtrlSetState($But_arret, $GUI_HIDE)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit


      Case $But_marche

         GUICtrlSetState($But_marche, $GUI_HIDE)
         GUICtrlSetState($But_arret, $GUI_SHOW)


      Case $But_arret
         GUICtrlSetState($But_marche, $GUI_SHOW)
         GUICtrlSetState($But_arret, $GUI_HIDE)

   EndSwitch
WEnd

GeSHi © Extension Codebox Plus

Cordialement,

jl56

[Boulanza]

Bonsoir jl56,
Merci infiniment pour votre aide.
Je considère le sujet clos.
Cordialement.

[jchd]

Un seul bouton fait au moins aussi bien l'affaire :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 615, 437, 192, 124)
GUISetFont(14, 800, 0, "MS Sans Serif")
Global Const $_ON = 'Marche', $_OFF = 'Arrêt'
Global $ButOnOff = GUICtrlCreateButton($_ON, 71, 88, 194, 52)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $ButOnOff
			If GUICtrlRead($ButOnOff) = $_ON Then
				GUICtrlSetData($ButOnOff, $_OFF)
				GUICtrlSetColor(-1, 0xFFFFFF)
				GUICtrlSetBkColor(-1, 0xFF0000)
			Else
				GUICtrlSetData($ButOnOff, $_ON)
				GUICtrlSetColor(-1, 0x000000)
				GUICtrlSetBkColor(-1, 0x00FF00)
			EndIf
	EndSwitch
WEnd

[Boulanza]

Bonsoir,
Ces remarques concernent le code de jchd et non celui de jl56 qui marche parfaitement sans souci.
Avec "GUICtrlCreateTabItem" le changement de couleur est impossible.
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x0002E1)
ne sont pas adaptés pour fonctionner avec "GUICtrlCreateTabItem"
Y a t'il une solution à cela ?
Cordialement.

[Boulanza]

Bonjour,
Pour LE code de jchd: Suite des remarques
J'ai aussi testé _GUICtrlTab_SetBkColor($hGUI, $PageControl1, 0xFFC0C0) mais en vain.
Votre aide afin de résoudre ce problème.
Cordialement.

[mikell]

Y a t'il une solution à cela ?

Peut-être, si vous prenez la peine de nous fournir un code fonctionnel reproduisant le problème

[Boulanza]

Bonjour mikell,
Le problème vient du codage de mon scripte. Le code de jchd marche aussi parfaitement.
Cordialement.