By
MrCheese
Hey Guys,
So, the functions work, where primarygui() accurately determines the evaluation of the status of the checkboxes - the msgbox picks this up.
However, later on, when we re-enter a 'for $i = 0 to ubound($checkbox)' loop, then in the 'batchinitial' function it doesn't picked up that the status&$i = 1, so it jumps out, then within the While 1 loop, it exits the loop in the first row, again because the status& $i= 0
The "assign" line within the primarygui funtion, is this only a local assignment? if so, how can I make it cross function?
Thank in adv for your help
Func excelsheetlist()
$i = 0
Global $aWorkSheets = _Excel_SheetList($oWorkbook1)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_SheetList Example 1", "Error listing Worksheets." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
;_ArrayDisplay($aWorkSheets, "Excel UDF: _Excel_SheetList Example 1")
;_ArrayDisplay($aWorkSheets, "Array")
Global $iRows = UBound($aWorkSheets, $UBOUND_ROWS) ; Total number of rows. In this example it will be 10.
Global $iCols = UBound($aWorkSheets, $UBOUND_COLUMNS) ; Total number of columns. In this example it will be 20.
Global $iDimension = UBound($aWorkSheets, $UBOUND_DIMENSIONS) ; The dimension of the array e.g. 1/2/3 dimensional.
MsgBox($MB_SYSTEMMODAL, "", "The array is a " & $iDimension & " dimensional array with " & _
$iRows & " row(s) & " & $iCols & " column(s).")
Dim $checkbox[$iRows]
EndFunc ;==>excelsheetlist
Func primarygui()
; Create a GUI with various controls.
Local $hGUI = GUICreate("Script Controller", 300, ($iRows * 24))
; Create a checkbox control.
;Local $idCheckbox = GUICtrlCreateCheckbox("Standard Checkbox", 10, 10, 185, 25)
Local $Button2 = GUICtrlCreateButton("Close", 210, 200, 85, 25)
Local $Button3 = GUICtrlCreateButton("Run", 210, 170, 85, 25)
Local $Button1 = GUICtrlCreateButton("Discharge", 210, 140, 85, 25)
For $i = 0 To UBound($checkbox) - 1
$checkbox[$i] = GUICtrlCreateCheckbox($aWorkSheets[$i][0], 8, 0 + ($i * 24)) ;, 81, 17)
Next
; Display the GUI.
GUISetState(@SW_SHOW, $hGUI)
; Loop until the user exits.
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $Button2 ;Close
Exit
Case $nMsg = $Button1
MsgBox(0, "Discharge Button not configured", "Now Exiting")
Exit
Case $nMsg = $Button3 ;Run
$fSelection = False
For $i = 0 To UBound($checkbox) - 1
If BitAND(GUICtrlRead($checkbox[$i]), $GUI_CHECKED) Then
$fSelection = True
ExitLoop
EndIf
Next
If $fSelection Then
For $i = 0 To UBound($checkbox) - 1
Assign("status" & $i, GUICtrlRead($checkbox[$i]))
Next
$batchcount = 0
For $i = 0 To UBound($checkbox) - 1
If Eval("status" & $i) = 1 Then
$batchcount = $batchcount + 1
;Call ("o" & $i & "copy") ; if you want to call the functions directly, remove ; before the call and comment or delete the following DirCopy statement
MsgBox(0, "Checking", "Checking that: " & $checkbox[$i] & " no, with title: " & $aWorkSheets[$i][0] & " was selected, Batch count: " & $batchcount) ; if you need only the DirCopy
EndIf
Next
ExitLoop
Else
MsgBox(48, 'No Items Selected', 'You have not selected any Patients to Load, Please select from the list')
EndIf
EndSelect
WEnd
; Delete the previous GUI and all controls.
GUIDelete($hGUI)
EndFunc ;==>primarygui
Func _IsChecked($idControlID)
Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc ;==>_IsChecked
Func batchinitial()
If Eval("status" & $i) = 1 Then
debugbox()
$oWorkbook1.Sheets(1).Activate
$bigloop = $bigloop + 1
$sheet = $aWorkSheets[$i][0]
$oWorkbook1.Sheets($sheet).Activate
debugbox()
EndIf
EndFunc ;==>batchinitial
OpenExcel()
excelsheetlist()
primarygui()
For $i = 0 To UBound($checkbox) - 1
batchinitial()
While 1
If Eval("status" & $i) = 0 Then ExitLoop
;all the rest of my script loops etc
WEnd
Next
By Shedunn
By MrCheese
By 31290