Jump to content
Sign in to follow this  
Jibberish

Radios and Checkboxes in the same window

Recommended Posts

Hi,

I am maybe an intermediate AutoIt script writer, but have no experience creating GUIs.

I have a script with two functions. One for Checkboxes and another with radio buttons. Each function creates it's own window.

I'd like to use one window with both checkboxes and radio buttons.

I pulled samples from AutoIt Help and other places and worked it into this: (RadioCheck still uses the example Case and MsgBoxes. I will clean this up soon)

Func CheckOptions()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("SGX4CP Options", 275, 250)

    ; Create a checkbox control.
    Local $iLoopCheckbox = GUICtrlCreateCheckbox("Loop", 10, 10, 185, 25)
    Local $iFullScreenCheckbox = GUICtrlCreateCheckbox("Fullscreen", 10, 40, 185, 25)
    Local $iRestartPlaybackCheckbox = GUICtrlCreateCheckbox("Restart Playback from Sleep", 10, 70, 185, 25)
    GUICtrlSetState($iRestartPlaybackCheckbox, $GUI_CHECKED)

    Local $iDisableSleepCheckbox = GUICtrlCreateCheckbox("Disable Sleep", 10, 100, 185, 25)
    Local $iLogCheckbox = GUICtrlCreateCheckbox("Show Log", 10, 130, 185, 25)
    GUICtrlSetState($iLogCheckbox, $GUI_CHECKED)
    Local $idClose = GUICtrlCreateButton("Next", 110, 220, 85, 25)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idClose
                ExitLoop

            Case $iLoopCheckbox
                If _IsChecked($iLoopCheckbox) Then
                    $bLoopChecked = True
                Else
                    $bLoopChecked = False
               EndIf

            Case $iFullScreenCheckbox
                if _IsChecked($iFullScreenCheckbox) Then
                    $bFullScreenChecked = True
                Else
                    $bFullScreenChecked = False
                EndIf

            Case $iRestartPlaybackCheckbox
                if _IsChecked($iRestartPlaybackCheckbox) Then
                    $bRestartPlaybackChecked = True
                Else
                    $bRestartPlaybackChecked = False
                EndIf

            Case $iDisableSleepCheckbox
                if _IsChecked($iDisableSleepCheckbox) Then
                    $bDisableSleepChecked = True
                Else
                    $bDisableSleepChecked = False
                EndIf

            Case $iLogCheckbox
                if _IsChecked($iLogCheckbox) Then
                    $bLogChecked = True
                Else
                    $bLogChecked = False
                EndIf
        EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc

Func RadioCheck()
    GUICreate("Select Test",300,180) ; will create a dialog box that when displayed is centered

    Local $idRadio1 = GUICtrlCreateRadio("Loop Forever", 10, 10)
    Local $idRadio2 = GUICtrlCreateRadio("Play each video 3 times", 10, 40)
    Local $idRadio3 = GUICtrlCreateRadio("Play each video separately", 10, 70)
    GUICtrlSetState($idRadio1, $GUI_CHECKED)
    Local $idClose = GUICtrlCreateButton("Start Test", 120,100)

    GUISetState(@SW_SHOW)

    Local $idMsg
    ; Loop until the user exits.
    While 1
        $idMsg = GUIGetMsg()
        Select
            Case $idMsg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $idMsg = $idRadio1 And BitAND(GUICtrlRead($idRadio1), $GUI_CHECKED) = $GUI_CHECKED
                MsgBox($MB_SYSTEMMODAL, 'Info:', 'The app will run forever, playing each video once, then looping back to the first video.')
                $bTestSelectForever = True
            Case $idMsg = $idRadio2 And BitAND(GUICtrlRead($idRadio2), $GUI_CHECKED) = $GUI_CHECKED
                MsgBox($MB_SYSTEMMODAL, 'Info:', 'Each video will loop 3 times then move to the next video.')
                $bTestSelect3Times = True
            Case $idMsg = $idRadio3 And BitAND(GUICtrlRead($idRadio2), $GUI_CHECKED) = $GUI_CHECKED
                MsgBox($MB_SYSTEMMODAL, 'Info:', 'Player opens, first video plays, player closes. Player opens, second video plays, player closes, etc.')
                $bTestSelectSingleVideo = True
        EndSelect
    WEnd
EndFunc

I would like to combine the checkbox "Loop" and the radio button $idRadio2. Radio2 requires Loop to be checked.

I planned to remove the Loop checkbox and only enable it if Radio2 is selected.

Can I combine these two functions into one with one window with both Checkboxes and Radio Buttons?

Thanks

Jibberish

Share this post


Link to post
Share on other sites

I'm sorry but it's really difficult to try and understand what you're trying to explain in your post (it's probably not you, pretty sure it's me). I think you mean you want a checkbox or a radio to only be available if another radio/checkbox is selected? Something like this?

#include <GUIConstants.au3>

Global $hMain = GUICreate("", 400, 400)
Global $rdo1 = GUICtrlCreateRadio("Radio 1", 10, 10, 100, 20)
Global $rdo2 = GUICtrlCreateRadio("Radio 2", 10, 35, 100, 20)
Global $aCheckBox1[4]
Global $aCheckBox2[10]

For $i = 0 to UBound($aCheckBox1) - 1
    $aCheckBox1[$i] = GUICtrlCreateCheckbox("[" & $i & "] Checkbox for Radio 1", 120, 10 + ($i * 20), 150, 20)
    GUICtrlSetState(-1, $GUI_HIDE)
Next

For $i = 0 to UBound($aCheckBox2) - 1
    $aCheckBox2[$i] = GUICtrlCreateCheckbox("[" & $i & "] Checkbox for Radio 2", 120, 10 + ($i * 20), 150, 20)
    GUICtrlSetState(-1, $GUI_HIDE)
Next

GUISetState(@SW_SHOW, $hMain)

While (True)
    Switch (GUIGetMsg())
        Case $GUI_EVENT_CLOSE
            Exit
        Case $rdo1
            ToggleCheckBoxes($aCheckBox2, $GUI_HIDE)
            ToggleCheckBoxes($aCheckBox1, $GUI_SHOW)
        Case $rdo2
            ToggleCheckBoxes($aCheckBox1, $GUI_HIDE)
            ToggleCheckBoxes($aCheckBox2, $GUI_SHOW)
    EndSwitch
WEnd

Func ToggleCheckBoxes($aCheckBoxes, $iState)
    For $i = 0 to UBound($aCheckBoxes) - 1
        GUICtrlSetState($aCheckBoxes[$i], $iState)
    Next
EndFunc

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • By ozymandius257
      I'm trying to check the status of the checkbox for sharing a folder that you see when you right-click on a  folder, go to the sharing tab, then click on Advanced Sharing.

      The check box is labelled Share this folder, and looking at it using AutoIt window info, I get the following information..
      >>>> Control <<<<
      Class:    Button
      Instance:    1
      ClassnameNN:    Button1
      Name:    
      Advanced (Class):    [CLASS:Button; INSTANCE:1]
      ID:    1020
      Text:    &Share this folder
      Position:    15, 16
      Size:    306, 13
      ControlClick Coords:    57, 4
      Style:    0x50010003
      ExStyle:    0x00000004
      Handle:    0x0000000000420A52
      I'm using the following code..
      If ControlCommand("Sharing","","[CLASS:Button; INSTANCE:1]","IsChecked","") = 0 Then
          MsgBox(0, "", "not checked")
      Else
          MsgBox(0, "", "checked")
      EndIf
      But this insists the check box isn't checked when it is.  I have also tried ControlCommand("Sharing","","[ID:1020]","IsChecked","") and ControlCommand("Sharing","","Share this folder","IsChecked","") and ControlCommand("Sharing","","&Share this folder","IsChecked",""), with no joy.
       
      Any ideas?
    • By nacerbaaziz
      hello sirs, please i created a tool witch get the focused control in a window and play a audio file linked with this controls
      e.g buttons, checkBoxes, radios, comboboxes, and others
      i know that their is a function that give us the control focus but it return the classNN
      i want to get the class name to use it with a switch and
      because their are more than class e.g button tbutton timagebutton tnewButton...
      please can any one help me to get the class name not the classnn
      thanks in advance
    • By robertocm
      I'm trying to use some inputboxes as radio buttons.
      This code seems to work ok, but don't know if there's is a better 'option'
      #include <GUIConstantsEx.au3> #include <GuiConstants.au3> GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") Global $aInput[4] $hGUI = GUICreate("Test", 500, 500) $aInput[0] = GUICtrlCreateInput("Some text 1a", 10, 10, 200, 24) $aInput[1] = GUICtrlCreateInput("Some text 1b", 10, 40, 200, 24) $aInput[2] = GUICtrlCreateInput("Some text 2a", 10, 80, 200, 24) $aInput[3] = GUICtrlCreateInput("Some text 2b", 10, 110, 200, 24) GUISetState(@SW_SHOW, $hGUI) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func WM_COMMAND($hWnd, $msg, $wParam, $lParam) Local $nNotifyCode = BitShift($wParam, 16) ; high word Local $nID = BitAND($wParam, 0xFFFF) ; low word Local $hCtrl = $lParam Switch $nID Case $aInput[0] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[0], 0x98FB98) GUICtrlSetBkColor($aInput[1], 0xD3D3D3) EndSwitch Case $aInput[1] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[0], 0xD3D3D3) GUICtrlSetBkColor($aInput[1], 0x98FB98) EndSwitch Case $aInput[2] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[2], 0x98FB98) GUICtrlSetBkColor($aInput[3], 0xD3D3D3) EndSwitch Case $aInput[3] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[2], 0xD3D3D3) GUICtrlSetBkColor($aInput[3], 0x98FB98) EndSwitch EndSwitch ; Proceed the default Autoit3 internal message commands. ; You also can complete let the line out. ; !!! But only 'Return' (without any value) will not proceed ; the default Autoit3-message in the future !!! Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND Would you recommend using _WinAPI_GetFocus instead?
       
       
      Thanks,
       
    • By ThePoro
      Hi everyone.
      I want to ask about this : 
      I want it runs from 1 to 100 and It opens 10 firefox profiles then access youtube. After I close a firefox window, the loop runs and wait for another window close until loop ends
      I have a loop like this.
      Func launch() Local $from = Int(GUICtrlRead($input1)) Local $to = Int(GUICtrlRead($input2)) If $to <> "" Then While $from <= $to Local $profile = $to _RunDos("start firefox.exe -p " & $profile & " -no-remote youtube.com") $to=$to+1 WEnd Else Local $profile = $to _RunDos("start firefox.exe -p " & $profile & " -no-remote youtube.com") EndIf EndFunc Is there any solution?
      Thank you!
    • By Rhidlor
      I was wondering if there was a library or something which provides the capability to Send() to inactive windows, and I know what you're thinking, I could just use ControlSend(); the reason I can't use that in this situation is because I need to hold down keys for specific prolonged periods of time. Also activating the window, Send()ing then de-activating the window isn't really an option here, I need the target window to always be in the background. I've looked around the forums for an adequate amount of time and didn't find anything useful, perhaps because the threads were all 10 years old, nevertheless, if anyone has any suggestions they would be greatly appreciated.
      Thanks!
×
×
  • Create New...