GUI Button with InputBox

[DigDeep]

Hi there,

I wanted to click on $GetInput button to get the InputBox and $OK button displayed. (This works fine)

But when clicking on clicking on $OK button, it does not do anything. basically, if there is nothing typed inside the InputBox then it should give the warning or else show what is typed in.

 

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Form1, $GetInput, $Input, $OK

Func Input()
    Global $TechAliasOutput = "C:\Temp\output.txt"
    $Input = GUICtrlCreateInput("", 245, 180, 170, 24)
    GUICtrlSetData($Input, "")
    $OK = GUICtrlCreateButton("OK", 350, 230, 75, 25, $SS_CENTER)
        GUICtrlSetState($OK, 512)

    Global $Input_Data = (GUICtrlRead($Input))
    $aInfo = GUIGetCursorInfo($Form1)
    If $aInfo[2] Then
        If $aInfo[4] = $Input_Data Then GUICtrlSetData($Input_Data, "")
    EndIf

    Select
        Case $OK = $Input
            If $Input_Data = '' Then
                MsgBox(64, "", "InputBox is empty")

            Else
                MsgBox(0, '', GUICtrlRead($Input))
            EndIf
    EndSelect
EndFunc

#Region
    $Form1 = GUICreate("Form1", 504, 283, -1, -1)
        $GetInput = GUICtrlCreateButton("Input", 200, 230, 75, 25, $SS_CENTER)
    GUISetState(@SW_SHOW)
#EndRegion`


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $GetInput
            Input()

EndSwitch
WEnd

 

[Melba23]

DigDeep,

This seems to work for me:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Global $Input, $OK = 9999 ; $OK must have a placeholder value or the case will fire on every pass
Global $TechAliasOutput = "C:\Temp\output.txt"

$Form1 = GUICreate("Form1", 504, 283, -1, -1)
$GetInput = GUICtrlCreateButton("Input", 200, 230, 75, 25) ; Buttons are automatically centred - and use $BS_ styles in any event
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $GetInput
            Input()

        Case $OK
            $Input_Data = GUICtrlRead($Input) ; So we read it here after the button is pressed
            If $Input_Data = '' Then
                MsgBox($MB_OK + $MB_ICONINFORMATION, "", "InputBox is empty")
            Else
                MsgBox($MB_OK, '', $Input_Data)
            EndIf
            GUICtrlDelete($Input)
            GUICtrlDelete($OK)
            $OK = 9999 ; Reset placeholder value

    EndSwitch
WEnd


Func Input()
    ;Global $TechAliasOutput = "C:\Temp\output.txt" ; Do not declare Global inside functions

    $Input = GUICtrlCreateInput("", 245, 180, 170, 24)
    ;GUICtrlSetData($Input, "") ; You have already set the input to empty when creatin git on the line above
    $OK = GUICtrlCreateButton("OK", 350, 230, 75, 25)
    GUICtrlSetState($OK, $GUI_DEFBUTTON) ; Why use magic numbers when you can use constants that explain what is going on?

    ;$Input_Data = (GUICtrlRead($Input)) ; if you read the input now there is nothing in it

    ; No idea what this is supposed to do
    ;$aInfo = GUIGetCursorInfo($Form1)
    ;If $aInfo[2] Then
    ;    If $aInfo[4] = $Input_Data Then GUICtrlSetData($Input_Data, "")
    ;EndIf

EndFunc

Please ask if you have any questions.

M23