Bei Listbox.addrow auch Checkbox setzen?

International Deutsch
1

In der App für einen Verkaufsautomaten prüft dieser nach einem Neustart, ob alle seine externen Komponenten (jeweils Mikrocontroller mit Web-Interface für z.B. Tastenfeld, Geldscheinleser, EC-Terminal, Druckmodul usw.) erreichbar sind.
Dabei wird eine Listbox mit den Ergebnissen dieses Scans gefüllt. Dazu benutze ich

list.addrow info1, info2, info3, use_it

Die Variablen info1-3 sind Strings, damit gibts kein Problem. Die 4. Spalte in der Listbox enhält eine Checkbox (für Debugging-Zwecke). Dort einfach die Boolean-Variable zu übergeben, wird als Syntax-Fehler angemeckert - wie mache ich das (möglichst elegant, ohne zusätzliche Codezeile mit lastRowIndex usw., das hätte ich auch selber drauf). Danke.

2

Auf Anhieb würde ich jetzt mal sagen (ohne es getestet zu haben): ebenfalls einen String 0 oder 1 übergeben und dann per CellAction Event die Checkbox passend setzen……

3

Ich lade erst die Daten von der Listbox und dann den Status der Checkbox:

for currentRow as Integer = 0 to me.RowCount - 1
  
  dim theIndex as Integer = getRowIndex(currentRow)
  if theIndex = -1 then continue
  if SelectionStatus(theIndex) = 1 then
    me.CellCheckBoxStateAt(currentRow, 1) = CheckBox.VisualStates.Checked
  elseif SelectionStatus(theIndex) = 2 then
    me.CellCheckBoxStateAt(currentRow, 1) = CheckBox.VisualStates.Indeterminate
  end if
  
next