home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / GUIStartGroup.au3 < prev    next >
Encoding:
Text File  |  2005-01-07  |  1.9 KB  |  54 lines
  1.  
  2. #include <GUIconstants.au3>
  3.  
  4. Opt("GUICoordMode", 1)
  5.  
  6. GUICreate("Radio Box Grouping Demo", 400,280)
  7.  
  8. ; Create the controls
  9. $button_1 = GUICtrlCreateButton ("B&utton 1", 30, 20, 120, 40)
  10. $group_1 = GUICtrlCreateGroup ("Group 1", 30, 90, 165, 160)
  11. GUIStartGroup()
  12. $radio_1 = GUICtrlCreateRadio ("Radio &0", 50, 120, 70, 20)
  13. $radio_2 = GUICtrlCreateRadio ("Radio &1", 50, 150, 60, 20)
  14. $radio_3 = GUICtrlCreateRadio ("Radio &2", 50, 180, 60, 20)
  15. GUIStartGroup()
  16. $radio_4 = GUICtrlCreateRadio ("Radio &A", 120, 120, 70, 20)
  17. $radio_5 = GUICtrlCreateRadio ("Radio &B", 120, 150, 60, 20)
  18. $radio_6 = GUICtrlCreateRadio ("Radio &C", 120, 180, 60, 20)
  19. GUIStartGroup()
  20. $input_1 = GUICtrlCreateInput ("Input 1", 200, 20, 160, 30)
  21. $input_2 = GUICtrlCreateInput ("Input 2", 200, 70, 160, 30)
  22.  
  23. ; Set the defaults (radio buttons clicked, default button, etc)
  24. GUICtrlSetState($radio_1, $GUI_CHECKED)
  25. GUICtrlSetState($radio_6, $GUI_CHECKED)
  26. GUICtrlSetState($button_1, $GUI_FOCUS + $GUI_DEFBUTTON)
  27.  
  28. ; Init our vars that we will use to keep track of radio events
  29. $radioval1 = 0    ; We will assume 0 = first radio button selected, 2 = last button
  30. $radioval2 = 2
  31.  
  32. GUISetState ()
  33.  
  34. ; In this message loop we use variables to keep track of changes to the radios, another
  35. ; way would be to use GUICtrlRead() at the end to read in the state of each control.  Both
  36. ; methods are equally valid
  37. While 1
  38.    $msg = GUIGetMsg()
  39.    Select
  40.       Case $msg = $GUI_EVENT_CLOSE
  41.          Exit
  42.          
  43.       Case $msg = $button_1
  44.          MsgBox(0, "Button", "Radio " & $radioval1 & @LF & "Radio " & Chr($radioval2 + Asc("A")) & @LF & GUICtrlRead($input_1) & @LF & GUICtrlRead($input_2))
  45.          
  46.       Case $msg = $radio_1 OR $msg = $radio_2 OR $msg = $radio_3
  47.          $radioval1 = $msg - $radio_1
  48.          
  49.       Case $msg = $radio_4 OR $msg = $radio_5 OR $msg = $radio_6
  50.          $radioval2 = $msg - $radio_4
  51.  
  52.    EndSelect
  53. WEnd
  54.