Sign in to follow this  
Followers 0
Lcreager

Dynamic Checkboxes

4 posts in this topic

I am attempting to write script with a gui to install network printers.  I have it set up to read the printer names from an .ini file and to create check boxes for each printer.  I can't seem to figure out how to see what boxes are checked and do something with the printer name next to the checked box.  Clicking the button does pop up a message box so I know it goes to the function, but my IF statement is completely skipped and I'm not sure how to make this work.  All help is greatly appreciated.  

 

Current Script

#include <GUIConstantsEx.au3>
Opt("GuiOnEventMode",1)
Opt("GUICoordMode",0)

Global $Printers = IniRead("settings.ini","Printers","PrinterList","NotFound")
Global $printarr = StringSplit ($Printers, ",")
Global $iPrinternumber = UBound($printarr) - 1
Global $box[$printarr[0] + 1]



GUICreate("Printer Installer", 400, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "_CLOSEClicked")

For $i = 1 To $iPrinternumber 
     
   $box[$i]= GUICtrlCreateCheckbox($printarr[$i],-1, 20)
     
Next

$InstallButton = GUICtrlCreateButton("Install Selected", 160, 30)
GUIctrlSetOnEvent($InstallButton, "_PrinterInstall")


GUISetState(@SW_SHOW)


While 1
   Sleep(1000)
WEnd

Func _CLOSEClicked ()
   Exit
EndFunc

Func _PrinterInstall ()

For $i = 1 To $iPrinternumber

   If GUICtrlGetState($box[$i]) = $GUI_CHECKED Then
      
      MsgBox(0,$box[$i],$box[$i] & " has been selected.")
      
   Else
      
      
   EndIf
   
     
next
 MsgBox(0,"Test", "Button has been clicked")

EndFunc

The .ini file contents

[Printers]
PrinterList = Printer 1, Printer 2, Printer3, Printer 4, New_Test_printer

Share this post


Link to post
Share on other sites



Try this change in your _PrinterInstall function

Func _PrinterInstall()
    For $i = 1 To $iPrinternumber
        If GUICtrlRead($box[$i]) = $GUI_CHECKED Then ;<<<<<<<<<<<<<<<<<<<<<<<<<<<
            MsgBox(0, $printarr[$i], $printarr[$i] & " has been selected."); <<<<<<<<<<<<<<<<
        Else
        EndIf
    Next
    MsgBox(0, "Test", "Button has been clicked")
EndFunc   ;==>_PrinterInstall
1 person likes this

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

 

Try this change in your _PrinterInstall function

Func _PrinterInstall()
    For $i = 1 To $iPrinternumber
        If GUICtrlRead($box[$i]) = $GUI_CHECKED Then ;<<<<<<<<<<<<<<<<<<<<<<<<<<<
            MsgBox(0, $printarr[$i], $printarr[$i] & " has been selected."); <<<<<<<<<<<<<<<<
        Else
        EndIf
    Next
    MsgBox(0, "Test", "Button has been clicked")
EndFunc   ;==>_PrinterInstall

 

That did the Trick.  Thank You.

Share this post


Link to post
Share on other sites

You're welcome. 

:ILA2:


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

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  
Followers 0