Choice inputbox by focus to read input and set it as variable

[sakej]

Hi there.

It's my first post here, so nice to meet you all.

I've been reading this forum for a some short time now,

and never have any background with apps developing in the past, so Im learning as I go.

My problem is that Im trying to make an app with 2 input boxes and depending on what user write in inputbox 

this will be the one to set up a variable. I did it like this but dosent seems to work and does not set $ip as I want.

Any help appriciated

#include <GUIConstantsEx.au3>


While 1

    $nmsg = GUIGetMsg()
    Switch $nmsg
        Case $gui_event_close
            Exit

            Dim $AccelKeys[1][2]=[["{ENTER}", $Enter_KEY]]
            GUISetAccelerators($AccelKeys)

<<  ta funkcja robiła kiedyś także za guzik "ok" - button 1

             If _WinAPI_GetFocus() = GUICtrlGetHandle($input1) Then
                $psd = GUICtrlRead($input1) ;                                           
                $ip = IniRead($dane, "PSD", $psd, "")   ;                               
                $adrespsd = IniRead($adresini, "ADRES", $psd, "")   ;                   
            ElseIf _WinAPI_GetFocus() = GUICtrlGetHandle($inputip) Then
                $ip = GUICtrlRead($inputip)
            EndIf
            if _IsChecked($radioip) Then    ;                                           
                ClipPut($ip)    ;                                                       
            EndIf

 

[sakej]

this was a comment ignore it I cant edit my post (

<<  ta funkcja robiła kiedyś także za guzik "ok" - button 1

[JLogan3o13]

@sakej you will find that it is difficult for people to assist when you post only non-runnable code. You have half an unterminated Switch statement here. How about posting the full code and helping us help you

 

Edited January 22, 2018 by JLogan3o13

[sakej]

@JLogan3o13 true but this app has more 2k line of code now so wont post it all here

But ... I just figure it out. My stupid mistake was to create 2 inputboxes but only state 1 case to read $input1

For anyone up there who stumble upon something similar in the future here's my working code:

expandcollapse popup

#include <MsgBoxConstants.au3>
#Include <GuiButton.au3>
#Include <GuiMenu.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

Global $list, $input1,$inputip, $dane, $adresini

Global $localini = @ScriptDir & "\dane.ini" ;

$ruchomatic = GUICreate("TEST ",793,541,-1,-1,-1,-1)
$inputip = GUICtrlCreateInput("lub wpisz IP",540,30,97,20,$ES_CENTER)

$input1 = GUICtrlCreateInput("Wpisz numer PSD",430,30,104,20,BitOr($ES_CENTER,$ES_NUMBER),$WS_EX_CLIENTEDGE)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_ENABLE,$GUI_FOCUS))

Global $radioip = GUICtrlCreateCheckbox("Kopiuj IP do schowka",660,283,150,15)

$Enter_KEY = GUICtrlCreateDummy()

GUISetState(@SW_SHOW,$ruchomatic)

While 1

    $nmsg = GUIGetMsg()
    Switch $nmsg
        Case $gui_event_close
            Exit


        Case $input1 ;

            Dim $AccelKeys[1][2]=[["{ENTER}", $Enter_KEY]]
            GUISetAccelerators($AccelKeys)

             If _WinAPI_GetFocus() = GUICtrlGetHandle($input1) Then
                $psd = GUICtrlRead($input1) ;
                $ip = IniRead($dane, "PSD", $psd, "")   ;
                $adrespsd = IniRead($adresini, "ADRES", $psd, "")   ;
                            if _IsChecked($radioip) Then    ;
                ClipPut($ip)    ;
                            EndIf
                            EndIf

            MsgBox(0,"",$ip)

        Case $inputip

            If _WinAPI_GetFocus() = GUICtrlGetHandle($inputip) Then
                $ip = GUICtrlRead($inputip)
            EndIf
            if _IsChecked($radioip) Then    ;
                ClipPut($ip)    ;
            EndIf


            MsgBox(0,"",$ip)


    EndSwitch
WEnd

Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked