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)