Button Beschriftung ändern

  • Hi Leute :D,

    Ja das is ja eigendlich ganz einfach das zu machen, hier in mein Beispiel muss man einfach den neuen Name vom Button im Inputfeld eingeben und auf den Button drücken. Wenn der Buttonname in "Exit" (ohne " ") umgeändert wurde und man noch mal auf den Button drückt dann beendet sich das Fenster. ;)

    [autoit]

    #include <GUIConstants.au3>

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

    $AForm1 = GUICreate("Test-GUI", 341, 139, 318, 127)
    $Input1 = GUICtrlCreateInput("", 8, 40, 321, 21)
    $Button1 = GUICtrlCreateButton("Drück mich! ;)", 8, 64, 321, 25, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $r = GUICtrlRead($Input1)
    $rb = GUICtrlRead($Button1)
    GUICtrlSetData($Button1,$r)
    If $rb = "Exit" then Exit
    GUICtrlSetData($Input1,"")
    EndSwitch
    WEnd

    [/autoit]