to add checkboxes for each apps - (Moved)

[Arungeorge]

hi there

First of all. let me say, i am new to autoit and have to finish a project in autoit for installing and uninstall softwares. Here, the issue is, i have a code that displays the currently installed softwares in a system and i could not add any checkboxes for selecting the apps. Could somebody help in doing this??

newOne.au3

[Melba23]

Moved to the appropriate forum.

Moderation Team

[water]

Welcome to AutoIt and the forum!

You could use or at least have a look at the Volatran project

 

[BigDaddyO]

Here is some sample to auto-create and cascade checkboxes as well as recognizing what is checked.

It's all about the 2D array that you will need to generate.

 

expandcollapse popup

;generate a cascade of checkboxes

Opt("GUIOnEventMode", 1)            ;Use Event mode to call functions directly
#include <GUIConstantsEx.au3>


;This array will need to be generated by your code
;[][0] is reserved for the handle auto-generated in the loop that creates the checkboxes
;[][1] is the text you want displayed in the GUI
;[][2]+ These can be anything else you want/need.  Path, Install commands, whatever else you need
Global $aApplications[][] = [[0, "Application Name 1", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 2", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 3", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 4", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 5", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 6", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 7", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 8", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 9", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 10", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 11", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 12", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 13", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 14", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 15", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 16", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 17", "Application Install/Uninstall Path or whatever else you need to remember"], _
    [0, "Application Name 18", "Application Install/Uninstall Path or whatever else you need to remember"]]

$iGuiW = 920
$iGuiH = 680
$hGUI = GUICreate(">SAMPLE<", $iGuiW, $iGuiH)
GUISetOnEvent($GUI_EVENT_CLOSE, "_ExitApp")


$iChkX = 40
$iChkY = 175
For $a = 0 to UBound($aApplications) - 1
    $iChkY += 25

    ;Every 15 checkboxes move over to the next column
    If $a > 0 and Mod($a, 15) = 0 Then
        $iChkX += 220   ;Move over to the next column
        $iChkY = 200        ;Reset the Y back to the top of the list
    EndIf

    $aApplications[$a][0] = GUICtrlCreateCheckbox($aApplications[$a][1], $iChkX, $iChkY, 200, 20)

;This is used to set the font to RED if there is a problem, like you found an app but [][2] is empty so you cant uninstall it!
    ;DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0)
    ;GUICtrlSetColor($aFunctionsAppSupt[$a][0], $COLOR_RED)

Next

GUICtrlCreateButton("Start", 40, $iGuiH - 40, 120, 20)
GUICtrlSetOnEvent(-1, "_Start")


GUISetState(@SW_SHOW, $hGUI)

While 1                                                                                                 ;Loop waiting for the user to click something.
    sleep(100)
WEnd


Func _Start()
    $sChecked = ""

    ;Scan each of the checkboxes to see if they are checked or not
    For $t = 0 to UBound($aApplications) - 1

        if BitAND(GUICtrlRead($aApplications[$t][0]), $GUI_CHECKED) = $GUI_CHECKED Then

            $sChecked &= $aApplications[$t][1] & @CRLF

        EndIf
    Next

    MsgBox(0, "Checked", $sChecked)

EndFunc


Func _ExitApp()
    Exit
EndFunc