Select Radio Button and enter text in GUICtrlCreateInput

[DigDeep]

Hi,

I am little stuck here. What I want is if I am selecting the Radio Button, then the text in the Radio button should appear in the TextBox below which is for GUICtrlCreateInput.

I might be silly for the solution might be very simple one but I am not able to figure it out.

Can someone please help.

 

#Region ###
$Form1 = GUICreate("Example", 355, 253, -1, -1, $GUI_SS_DEFAULT_GUI)
$Input = GUICtrlCreateInput("", 96, 168, 161, 24)
$Test = GUICtrlCreateRadio("    Test", 32, 24, 113, 17)
$Submit = GUICtrlCreateButton("Submit", 144, 208, 75, 25)
GUICtrlSetState(0, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ###



While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Submit
            Select
                Case GUICtrlRead($Test) = 1
; It should show the Text "Test" in the box.
;And if I click on Submit button then it will carry on with rest of the code.
            EndSelect
    EndSwitch
WEnd

 

Edited April 29, 2015 by sunshinesmile84

[JLogan3o13]

Do you mean like this?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Example", 355, 253, -1, -1, $GUI_SS_DEFAULT_GUI)
$Input = GUICtrlCreateInput("", 96, 168, 161, 24)
$Test = GUICtrlCreateRadio("    Test", 32, 24, 113, 17)
$Submit = GUICtrlCreateButton("Submit", 144, 208, 75, 25)
GUICtrlSetState(0, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ###



While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Submit
            Select
                Case GUICtrlRead($Test) = 1
                    GUICtrlSetData($Input, "Test")
            EndSelect
    EndSwitch
WEnd

Or are you saying that, whatever text you put into the RadioButton control, you want it to automatically insert into the Input field?

Edited April 29, 2015 by JLogan3o13

[DigDeep]

@ JLogan3o13

This is somewhat close by. But the text appears only when I click on Submit Button.

I would like, if I just select the Radio button, the Text Box should show the Text. Shouldn't be waiting for me to click on Submit button.

 

to your below statement: whatever text you put into the RadioButton control, you want it to automatically insert into the Input field?

Now, I have more Rsdio buttons too. So, the Text should only appear when I select the radio buttons.

Edited April 29, 2015 by sunshinesmile84

[JLogan3o13]

So something more like this:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Example", 355, 253, -1, -1, $GUI_SS_DEFAULT_GUI)
$Input = GUICtrlCreateInput("", 96, 168, 161, 24)
$Test = GUICtrlCreateRadio("    Test", 32, 24, 113, 17)
    GUICtrlSetOnEvent(-1, "MyControl")
$Submit = GUICtrlCreateButton("Submit", 144, 208, 75, 25)
GUISetState(@SW_SHOW)


While 1
    Sleep(100)
WEnd

Func MyControl()
    GUICtrlSetData($Input, "Test")
EndFunc

And before you respond with "Now my GUI doesn't close with the X!", you are correct I left that piece out. This is to get you started; look in the help file under OnEvent Mode to get a clearer understanding of how to structure your GUI using this feature.

Edited April 29, 2015 by JLogan3o13

[DigDeep]

Thanks for getting this done. I was able to get the GUI Closed.

But I think something got messed up.

1. After making the above additions, everything is working good with the new options too, except nothing runs when selecting the Submit button.. And I think I should have provided other radio buttons earlier. I had provided only 1 button thinking there might be one part for all of them.

2. I am able to add the functions for Step 1 button to show Step 1 Text and so on.... but do I have to create different functions for each Radio buttons? I am asking here coz I have 10 Radio buttons in my actual code.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

Dim $Close1

$Form1 = GUICreate("Example", 356, 254, -1, -1, $GUI_SS_DEFAULT_GUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
$Step_1 = GUICtrlCreateRadio("  Step 1", 32, 24, 169, 25)
    GUICtrlSetOnEvent(1, "MyControl1")
$Step_2 = GUICtrlCreateRadio("  Step 2", 32, 80, 177, 25)
    GUICtrlSetOnEvent(1, "MyControl2")
$Step_3 = GUICtrlCreateRadio("  Step 3", 32, 128, 201, 25)
    GUICtrlSetOnEvent(1, "MyControl3")
$Input = GUICtrlCreateInput("", 96, 168, 161, 24)
$Submit = GUICtrlCreateButton("Submit", 144, 208, 75, 25)
GUISetState(@SW_SHOW)


While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE

        Case $Submit
            Select
                Case GUICtrlRead($Step_1) = 1
                    ; Hide the main GUI to centre the message box on screen
                    GUISetState(@SW_HIDE, $Form1)

                MsgBox(0, "", "Step 1 running")

                    GUISetState(@SW_SHOW, $Form1)
            EndSelect
        EndSwitch
        Sleep(100)
WEnd

Func MyControl1()
    GUICtrlSetData($Input, "Step 1")
EndFunc

Func MyControl2()
    GUICtrlSetData($Input, "Step 2")
EndFunc

Func MyControl3()
    GUICtrlSetData($Input, "Step 3")
EndFunc

Func CLOSEButton()
Exit
EndFunc   ;==>CLOSEButton

 

Edited April 29, 2015 by sunshinesmile84