Funktionen für die Arbeit mit Listboxen sind in der Bibliothek "Tools" Modul "Listbox".

Grundsätzlich gilt es vor der Benutzung der Funktionen die Bibliothek einzubinden:

GlobalScope.BasicLibraries.LoadLibrary("Tools")

Leider sind einige Funktionen etwas verwirrend deklariert. Es gibt bei einer Listbox zwei Ebenen für Methoden und Properties. Direkt unter Listbox und eine Stufe tiefe unter Listbox.Model. Dies führt bei einigen Funktionen die als Übergabewert anscheinend oListbox erwarten, aber in Wirklichkeit oListbox.Model erhalten müssen.

Beispiel:

Sub    SelectListboxItem(oListbox as Object, iSelIndex as Integer)

Dim LocSelList(0) as Integer

     If iSelIndex <> -1 Then

          LocSelList(0) = iSelIndex

          oListbox.SelectedItems() = LocSelList()

     End If

End Sub

Wenn man jetzt das Listbox-Objekt übergibt, erhält man eine Fehlermeldung.

    myControl = myDlg.getControl("ListBox1")

    SelectListboxItem(myControl,1)

Übergibt man dagegen das Model-Objekt, ist alles in Ordnung.

    myControl = myDlg.getControl("ListBox1")

    SelectListboxItem(myControl.model,1)