GUICtrlCreateLabel Help

[Xav]

If i press "Daw 1" it will be wrote .. But if i press Daw2 after i've pressed daw1 it will not be wrote , how can it replace Daw1 for Daw2??

#include <GUIConstantsEx.au3>
hah()


Func Hah()
            Local $Button_1, $Button_2 , $button_3, $msg
            GUICreate("BomBom , ChaCha")
               Opt("GUICoordMode", 2)
                   $Button_1 = GUICtrlCreateButton("Activating", 10, 8, 125)
                   $Button_2 = GUICtrlCreateButton("Desactivating/Pause", 0, -1)
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
                                GUICtrlCreateLabel("Daw 1", 10, 30)
            Case $msg = $Button_2
                $Activated = GUICtrlCreateLabel("Daw 2",10, 30)
                   GUISetState()      
               EndSelect
               wend
    EndFunc

[jchd]

You are creating a second Label control which you place under the first, so it's hiden.

What you want is to update the content of the first Label control.

#include <GUIConstantsEx.au3>

Opt("GUICoordMode", 2)

hah()

Func Hah()
    Local $Button_1, $Button_2 , $button_3, $msg, $label
    GUICreate("BomBom , ChaCha")
    $Button_1 = GUICtrlCreateButton("Activating", 10, 8, 125)
    $Button_2 = GUICtrlCreateButton("Desactivating/Pause", 0, -1)
    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button_1
    $label = GUICtrlCreateLabel("Daw 1", 10, 30)
            Case $msg = $Button_2
                GUICtrlSetData($label, "Daw 2")
    EndSelect
    wend
EndFunc

Formatting again trashed when posting, sorry for that.

Edited April 1, 2010 by jchd

[bogQ]

Create lables before main loop and

GUICtrlSetState($lable_1, $GUI_HIDE)

GUICtrlSetState($lable_2, $GUI_SHOW)

Or create one lable and GUICtrlSetData to change it

Edit: jchd was faster

Edited April 1, 2010 by bogQ

[Yoriz]

Each time your pressing a button your creating a new label in the same place have made some changes see below

#include <GUIConstantsEx.au3>
hah()


Func Hah()
            Local $Button_1, $Button_2 , $button_3, $msg
            GUICreate("BomBom , ChaCha")
               Opt("GUICoordMode", 2)
                   $Button_1 = GUICtrlCreateButton("Activating", 10, 8, 125)
                   $Button_2 = GUICtrlCreateButton("Desactivating/Pause", 0, -1)
                   $hLabel = GUICtrlCreateLabel("Daw 1", 10, 30) ; added this to create the label outside of the loop
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
;~              GUICtrlCreateLabel("Daw 1", 10, 30)
                GUICtrlSetData($hLabel,"Daw 1") ; added this to change label value to 'Daw 1'
            Case $msg = $Button_2
;~                $Activated = GUICtrlCreateLabel("Daw 2",10, 30)
;~                   GUISetState()
                GUICtrlSetData($hLabel,"Daw 2") ; added this to change label value to 'Daw 2'
               EndSelect
               wend
    EndFunc

[Xav]

Each time your pressing a button your creating a new label in the same place have made some changes see below

#include <GUIConstantsEx.au3>
hah()


Func Hah()
            Local $Button_1, $Button_2 , $button_3, $msg
            GUICreate("BomBom , ChaCha")
               Opt("GUICoordMode", 2)
                   $Button_1 = GUICtrlCreateButton("Activating", 10, 8, 125)
                   $Button_2 = GUICtrlCreateButton("Desactivating/Pause", 0, -1)
                   $hLabel = GUICtrlCreateLabel("Daw 1", 10, 30) ; added this to create the label outside of the loop
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
;~              GUICtrlCreateLabel("Daw 1", 10, 30)
                GUICtrlSetData($hLabel,"Daw 1") ; added this to change label value to 'Daw 1'
            Case $msg = $Button_2
;~                $Activated = GUICtrlCreateLabel("Daw 2",10, 30)
;~                   GUISetState()
                GUICtrlSetData($hLabel,"Daw 2") ; added this to change label value to 'Daw 2'
               EndSelect
               wend
    EndFunc

THanks ..

If i have a while in it how can the button 2 stop it ?

Sry i'm new with the Gui's Functions...

#include <GUIConstantsEx.au3>
hah()


Func Hah()
            Local $Button_1, $Button_2 , $button_3, $msg
            GUICreate("BomBom , ChaCha")
               Opt("GUICoordMode", 2)
                   $Button_1 = GUICtrlCreateButton("Activating", 10, 8, 125)
                   $Button_2 = GUICtrlCreateButton("Desactivating/Pause", 0, -1)
                   $hLabel = GUICtrlCreateLabel("Daw 1", 10, 30) ; added this to create the label outside of the loop
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop ; It Doesnt work anymore too.
            Case $msg = $Button_1
                While 1
                                     sleep(1)
                    Wend
;~              GUICtrlCreateLabel("Daw 1", 10, 30)
                GUICtrlSetData($hLabel,"Daw 1") ; added this to change label value to 'Daw 1'
            Case $msg = $Button_2
                GUICtrlSetData($hLabel,"Daw 2") ; added this to change label value to 'Daw 2'
               EndSelect
               wend
    EndFunc

Edited April 2, 2010 by Xav

[PsaltyDS]

Don't put so much work inside the GUIGetMsg() check. Just change some flags or something simple, then let the rest of the While/WEnd loop do the work. In this demo, the $f_Run flag is changed by the buttons, and rest of the loop just works off of that:

#include <GUIConstantsEx.au3>

Main()

Func Main()
    Local $idButton_1, $idButton_2, $idLabel, $msg
    Local $f_Run = False, $iTimer, $iData = 0

    GUICreate("Test GUI", 300, 300)
    $idButton_1 = GUICtrlCreateButton("Activating", 100, 20, 100, 30)
    $idButton_2 = GUICtrlCreateButton("Desactivating/Pause", 100, 70, 100, 30)
    $idLabel = GUICtrlCreateLabel("Not started yet.", 20, 120, 260, 20)
    GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idButton_1
                $f_Run = True
                GUICtrlSetData($idLabel, "Started...")
                $iTimer = TimerInit()
            Case $idButton_2
                $f_Run = False
                GUICtrlSetData($idLabel, "Paused...")
        EndSwitch

        If $f_Run Then
            If TimerDiff($iTimer) >= 1000 Then
                $iData += 1
                GUICtrlSetData($idLabel, "Running:  $iData = " & $iData)
                $iTimer = TimerInit()
            EndIf
        EndIf
    WEnd
EndFunc   ;==>Main

[jchd]

PsaltyDS always beats me on the line. Anyway, let me expose something slightly different.

You may possibly use one button only and change its label to reflect the current start/stop state.

#include <GUIConstantsEx.au3>

Opt("GUICoordMode", 2)

hah()

Func Hah()

Local $Button_1, $Button_2 , $button_3, $msg, $label

GUICreate("BomBom , ChaCha")

$Button_1 = GUICtrlCreateButton("Click to start", 10, 8, 125)

;~ $Button_2 = GUICtrlCreateButton("Desactivating/Pause", 0, -1)

$label = GUICtrlCreateLabel("", 10, 30)

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $Button_1

If GUICtrlRead($Button_1) = "Activating" Then

GUICtrlSetData($Button_1, "Desactivating/Pause")

GUICtrlSetData($label, "Daw 2")

Else

GUICtrlSetData($Button_1, "Activating")

GUICtrlSetData($label, "Daw 1")

EndIf

EndSelect

wend

EndFunc

If you have the need to interrupt a loop as you say, you can find it more convenient to use OnEvent functions. They are linked to your control(s) and launch asynchronously. Here's a transposition of the above with OnEvent:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <Date.au3>

AutoItSetOption("GUIOnEventMode", 1)        ;; <<-- here's the OnEvent trigger
AutoItSetOption("GUICoordMode", 2)

Global $Button_1, $label
Global $daw = 0, $clicks

GUICreate("BomBom , ChaCha")
GUISetOnEvent($GUI_EVENT_CLOSE, "_BomBomClose")

$Button_1 = GUICtrlCreateButton("Click to start", 10, 8, 125)
GUICtrlSetOnEvent(-1, "_Button1")

$label = GUICtrlCreateLabel("", 10, 30)

GUISetState()

hah()

; place applicative code here
Func Hah()
    Local $time = TimerInit()
    ConsoleWrite("Hi " & @UserName & ", how are you?" & @LF)
    While 1
        ConsoleWrite(StringFormat("This sample application has been running for about %.2f seconds\n", TimerDiff($time)))
        ConsoleWrite("Current setting is Daw " & $daw & @LF)
        ConsoleWrite("You have clicked " & $clicks & " times on the button" & @LF)
        ConsoleWrite("It is now " & _Now() & @LF)
        Sleep(Random(500, 5000, 1))
    Wend
EndFunc



; asynchronous actions on control get handled by these OnEvent functions


Func _Button1()
    $clicks += 1
    If GUICtrlRead($Button_1) = "Activating" Then
        GUICtrlSetData($Button_1, "Desactivating/Pause")
        GUICtrlSetData($label, "Daw 2")
        $daw = 2
    Else
        GUICtrlSetData($Button_1, "Activating")
        GUICtrlSetData($label, "Daw 1")
        $daw = 1
    EndIf
EndFunc


Func _BomBomClose()
    MsgBox(0, "BomBom", "Application will now close")
    Exit
EndFunc