Radio Button Click Checked Click Unchecked?

[Neoborn]

Hey Guys,

I have tried several ways to get a feature to work but cannot. What I would like to do is to click the radio button and have it stay checked until clicked again and have change it's state to unchecked.

Any help appreciated.

expandcollapse popup

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Remedy Ticket Tool", 440, 297, 192, 125)
$Group1 = GUICtrlCreateGroup("Please Paste Ticket #'s", 8, 8, 130, 249)
$Input1 = GUICtrlCreateInput("", 17, 26, 111, 221, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Copy From Here To Remedy", 152, 8, 281, 249)
$Input2 = GUICtrlCreateInput("", 161, 26, 261, 221, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Radio1 = GUICtrlCreateRadio("Add Helpdesk# and ""or""", 8, 264, 137, 25)
$Button1 = GUICtrlCreateButton("&Ok", 288, 264, 65, 25)
$Button2 = GUICtrlCreateButton("&Cancel", 368, 264, 65, 25)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    $msg1 = $GUI_EVENT_PRIMARYDOWN
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button2
        ExitLoop
    Case $msg = $Radio1 and $GUI_CHECKED
        Rad1CH()
    Case $msg = $Radio1 and $GUI_UNCHECKED
        Rad1UN()
    Case Else
    EndSelect
WEnd
Exit

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Functions~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func Rad1CH()
    GUICtrlSetState(9, $GUI_UNCHECKED)
        MsgBox(64, 'Info:', 'You clicked the Radio 1 and it is unChecked.')
EndFunc
        
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func Rad1UN()
    GUICtrlSetState(9, $GUI_CHECKED)
        MsgBox(64, 'Info:', 'You clicked the Radio 1 and it is Checked.')
EndFunc

[SmOke_N]

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Remedy Ticket Tool", 440, 297, 192, 125)
$Group1 = GUICtrlCreateGroup("Please Paste Ticket #'s", 8, 8, 130, 249)
$Input1 = GUICtrlCreateInput("", 17, 26, 111, 221, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Copy From Here To Remedy", 152, 8, 281, 249)
$Input2 = GUICtrlCreateInput("", 161, 26, 261, 221, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Radio1 = GUICtrlCreateRadio("Add Helpdesk# and ""or""", 8, 264, 137, 25)
$Button1 = GUICtrlCreateButton("&Ok", 288, 264, 65, 25)
$Button2 = GUICtrlCreateButton("&Cancel", 368, 264, 65, 25)
GUISetState(@SW_SHOW)
Local $1stClick = 1
While 1
    $msg = GuiGetMsg()
    $msg1 = $GUI_EVENT_PRIMARYDOWN
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button2
        ExitLoop
    Case $msg = $Radio1
        If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED And $1stClick = 1 Then
            $1stClick = 2
        ElseIf BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED And $1stClick = 2 Then
            GUICtrlSetState($Radio1, $GUI_UNCHECKED)
            $1stClick = 1
        EndIf
    EndSelect
WEnd
Exit

It ain't purty

[Neoborn]

Sweet ty. I was trying to figure this out but couldn't get there. What would you do with the pretty version? You don't have to do it but just let me know what you do to make it pretty.

Thanks dood you rock!

[Neoborn]

How do I test the contents of an edit box to popup a msg if the box is empty?

[Geeky]

Im not sure, but maybe something with that

$readinput = GUICtrlRead($INputBoxNameHere)

If $readinput = "" Then

Msgbox( 1, "Error", "The inputbox is empty! Oh noeses!")

Not sure how to use that guictrlread thingy though

[Xenobiologist]

How do I test the contents of an edit box to popup a msg if the box is empty?

Hi,

Edit = Input ? If GUICtrlRead(...) = "" Then MsgBox(...)

So long,

Mega

[Neoborn]

Edit = Edit

GUICtrlCreateEdit

--------------------------------------------------------------------------------

Creates an Edit control for the GUI.

GUICtrlCreateEdit ( "text", left, top [, width [, height [, style [, exStyle]]]] )

Thanks guys!

Edited June 11, 2006 by Neoborn

[Xenobiologist]

Hi,

the same as InputBox and many other Controls.

#include <GUIConstants.au3>

GUICreate("My GUI edit") ; will create a dialog box that when displayed is centered

$myedit=GUICtrlCreateEdit ("", 176,32,121,97,$ES_AUTOVSCROLL+$WS_VSCROLL)

GUISetState ()

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If GUICtrlRead($myedit) = "" Then
        GUICtrlSetData ($myedit, "Yeah",1)
        MsgBox(0,"","works")
    EndIf
Wend

So long,

Mega