Button ausgrauen, Binkende Schrift

  • Hallo Gemeinde,

    hab hier mal wieder ein paar Newbie-Fragen

    wie schaffe ich es das ich Buttons in meinem GUI_form ausgrauen kann damit Sie zur Laufzeit nicht zu benutzen sind?

    und wie schaffe ich es da in einem Form eine blinkende Schrift angezeigt wird

  • Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    $Form1_1 = GUICreate("Form1", 625, 445, 193, 125)
    $Button1 = GUICtrlCreateButton("Button", 16, 48, 75, 25, 0)
    $Label1 = GUICtrlCreateLabel("Label", 16, 80, 75, 25, 0)
    GUISetState(@SW_SHOW)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    AdlibEnable("Show", 1000)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func Show()
    GUICtrlSetState($Label1, $GUI_SHOW)
    AdlibEnable("Hide", 1000)
    EndFunc ;==>Show

    [/autoit] [autoit][/autoit] [autoit]

    Func Hide()
    GUICtrlSetState($Label1, $GUI_HIDE)
    AdlibEnable("Show", 1000)
    EndFunc ;==>Hide

    [/autoit]

    Padmak

    • Offizieller Beitrag

    AdlibEnable reserviere ich immer für wichtige Sachen , deshalb habe ich mal ein Beispiel mit der Func _Timer_SetTimer erstellt .

    [autoit]

    #include <Timers.au3>
    #include <GUIConstantsEx.au3>
    Global $Blink

    [/autoit][autoit][/autoit][autoit]

    Global $Form1 = GUICreate("Form1", 633, 447, 372, 251)
    Global $Dummy = GUICtrlCreateLabel("Das ist ein blinkender Text",10,10,200,17)
    GUISetState(@SW_SHOW)
    _Timer_SetTimer ($Form1, 250, "Blinken")

    [/autoit][autoit][/autoit][autoit]

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

    [/autoit][autoit][/autoit][autoit]

    Func Blinken($hWnd, $Msg, $iIDTimer, $dwTime)
    $Blink = NOT $Blink
    If $Blink then
    GUICtrlSetState($Dummy,$GUI_SHOW)
    Else
    GUICtrlSetState($Dummy,$GUI_HIDE)
    EndIf
    EndFunc

    [/autoit]


    Edit und das gleiche nochmal mit 2 unterschiedlich blinkenden Texten .

    Spoiler anzeigen
    [autoit]

    #include <Timers.au3>
    #include <GUIConstantsEx.au3>
    Global $Blink,$Blink2

    [/autoit] [autoit][/autoit] [autoit]

    Global $Form1 = GUICreate("Form1", 633, 447, 372, 251)
    Global $Dummy = GUICtrlCreateLabel("Das ist ein blinkender Text",10,10,200,17)
    Global $Dummy2 = GUICtrlCreateLabel("Das ist ein schnellblinkender Text",10,30,200,17)
    GUISetState(@SW_SHOW)
    _Timer_SetTimer ($Form1, 500, "Blinken")
    _Timer_SetTimer ($Form1, 100, "Blinken_schnell")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func Blinken($hWnd, $Msg, $iIDTimer, $dwTime)
    $Blink = NOT $Blink
    If $Blink then
    GUICtrlSetState($Dummy,$GUI_SHOW)
    Else
    GUICtrlSetState($Dummy,$GUI_HIDE)
    EndIf
    EndFunc
    Func Blinken_schnell($hWnd, $Msg, $iIDTimer, $dwTime)
    $Blink2 = NOT $Blink2
    If $Blink2 then
    GUICtrlSetState($Dummy2,$GUI_SHOW)
    Else
    GUICtrlSetState($Dummy2,$GUI_HIDE)
    EndIf
    EndFunc

    [/autoit]
    • Offizieller Beitrag

    Ich wollte nur mal aufzeigen, das man nicht immer AdlibEnable braucht. _Timer_SetTimer kennen die meisten gar nicht . Und mein 2. Beispiel ist mit AdlibEnable schwer zu realisieren .

  • Danke hat super funktioniert, bloß wie bringe ich den mit

    GUICtrlSetState($Button1, $GUI_DISABLE)

    ruhig gestellten Button wieder in Aktion?

  • Wie wärs jez mal mit ein wenig überlegen??

    [autoit]


    GuiCtrlSetState($Button, $GUI_ENABLE)

    [/autoit]


    Padmak

  • oh ja brutal (mein bro stirbt jeden tag bei dem versuch :D)
    ich bin sowieso dafür dass die deutsche hilfe bei jedem start von Scite startet :D
    dann kommt man vllt auch mal auf die idee da nachzuschaun :pinch:

    Padmak