Jump to content

CheckBox value


Warning
 Share

Recommended Posts

Hi I'm trying to make a Windows-Cleaner Script with GUI. Current Source:

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

#Region ### START Koda GUI section ### Form=form1.kxf
$Form1_1 = GUICreate("Win-Cleaner", 241, 321, 438, 193, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Válaszd ki hogy milyen programok", 0, 8, 195, 17)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("vannak telepítve a számítógépedre.", 0, 24, 208, 17)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Avant Browser", 8, 144, 217, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Google Chrome", 8, 120, 137, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Mozilla Firefox", 8, 72, 137, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Internet Explorer", 8, 48, 169, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox5 = GUICtrlCreateCheckbox("Opera Browser", 8, 96, 113, 17)
$Checkbox6 = GUICtrlCreateCheckbox("MSN Messenger", 8, 168, 113, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Spybot Search and Destroy", 8, 216, 153, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Punkbuster", 8, 192, 161, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Macromedia Flash Player", 8, 240, 145, 17)
$Button1 = GUICtrlCreateButton("Kiválaszt", 64, 280, 105, 25, 0)
$Button2 = GUICtrlCreateButton("X", 216, 0, 17, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit 0
        Case $Button2
            exit 0
        Case $Button1
            Do sg. If Checkbox1 activated
            Do an other thing If Checkbox2 activated
            .....
    EndSwitch
WEnd

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit 0

Case $Button2

exit 0

Case $Button1

Do sg. If Checkbox1 activated

Do an other thing If Checkbox2 activated

.....

EndSwitch

WEnd

Is there any way to let me to that? Because there isn't valuable "return value" of it. (It returns always 5 for me)

Link to comment
Share on other sites

  • Moderators

I've never used it myself, but I would think you could use GUICtrlRead to identify the action. Borrowing a little from the helpfile, the snippet below works well...

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
 Local $menu1, $n1, $n2, $msg, $menustate, $menutext
 
 GUICreate("My GUICtrlRead")  $menu1 = GUICtrlCreateMenu("File")

 $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
 GUICtrlSetData(-1, "item1|item2|item3", "item2")

 $n2 = GUICtrlCreateCheckbox("Read", 10, 110, 50)
 GUICtrlSetState(-1, $GUI_FOCUS) ; the focus is on your checkbox

 GUISetState() 
 Do
  $msg = GUIGetMsg()
  If $msg = $n2 Then ; if box is checked...
   MsgBox(0, "Selected listbox entry", GUICtrlRead($n1)) ; display the selected listbox entry
   $menustate = GUICtrlRead($menu1) ; return the state of the menu item
   $menutext = GUICtrlRead($menu1, 1) ; return the text of the menu item
   MsgBox(0, "State and text of the menuitem", "state:" & $menustate & @LF & "text:" & $menutext)
  EndIf
 Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to comment
Share on other sites

I've never used it myself, but I would think you could use GUICtrlRead to identify the action. Borrowing a little from the helpfile, the snippet below works well...

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
 Local $menu1, $n1, $n2, $msg, $menustate, $menutext
 
 GUICreate("My GUICtrlRead")  $menu1 = GUICtrlCreateMenu("File")

 $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
 GUICtrlSetData(-1, "item1|item2|item3", "item2")

 $n2 = GUICtrlCreateCheckbox("Read", 10, 110, 50)
 GUICtrlSetState(-1, $GUI_FOCUS) ; the focus is on your checkbox

 GUISetState() 
 Do
  $msg = GUIGetMsg()
  If $msg = $n2 Then ; if box is checked...
   MsgBox(0, "Selected listbox entry", GUICtrlRead($n1)) ; display the selected listbox entry
   $menustate = GUICtrlRead($menu1) ; return the state of the menu item
   $menutext = GUICtrlRead($menu1, 1) ; return the text of the menu item
   MsgBox(0, "State and text of the menuitem", "state:" & $menustate & @LF & "text:" & $menutext)
  EndIf
 Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;

Ohh, CtrlRead... I check it. Thanks all. I love this Help file :x
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...