FListbox

PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
EnabledInteger (R/W) TRUE = aktiv (voreingestellt) ; FALSE = inaktiv
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist hellgrau
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
HandleHWND (R) Handle des Control(nur lesen !)
CtHandleHWND (R) Handle des Containers , ein unsichtbares Elternfenster (nur lesen !)
BorderInteger (W) 0 = ohne
1 = sunken
2 = Umrandung
GetSelStringString (R) Aktuell ausgewählter String (nur lesen !)
GetSelItemInteger (R) Aktuell ausgewählter Index (nur lesen !)
GetItemCountInteger (R) Anzahl der enthaltenen Item (nur lesen !)
Sub/FunctionArgumenteHinweise
SUB Create (ByVal hParent As HWND,
ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer )
Handle des Elternfenster
Dimensionen x,y,Weite,Höhe
Sub AddString (value As String) Fügt einen String hinzu
Sub SelItem (Byval value As Integer) Index des Item , welches ausgewählt werden soll
Sub DelString (Byval item As Integer) Index des Item , welcher gelöscht werden soll
Sub Clear keine Löscht alle Item
Sub Invalidate keine Veranlasst das senden einer WM_PAINT Botschaft
Sub Repaint keine Wie Invalidate aber mit Nicht-Clientbereich
Sub setFont (Face As String,
ByVal size As Integer,
ByVal bold As Integer,
ByVal italic As Integer,
ByVal underlin As Integer)
Schrift-Name
Schriftgröße
1=bold,0=normal
1=italic,0=normal
1=underlin,0=normal
Event SUBArgumenteHinweis
onDblClick( ByVal item As UInteger,szItem As ZString) index und String auf dem ein Doppelklick erfolgte
onSelChange( ByVal item As UInteger,szItem As ZString) index und String die den neuen Focus erhielten
Beispiel :
    #Include "winFBgui.bi"

    Dim Shared As FForm form1
    Dim Shared As FListbox list1


    form1.Create("Testform",0,0,870,720)
    Form1.Center
    Form1.Color = &Hefcb90

    list1.Create(form1.Handle,10,200,190,260)
   
    list1.AddString("Item 1")
    list1.AddString("Item 2")
    list1.AddString("Item 3")
    
    '------ Show entält MessageLoop - muss immer am Ende sein ------------
    form1.Show
    ExitProcess(0)
    End