FComboBox

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 !)
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
onSelChange( ByVal item As UInteger,szItem As ZString) index und String die den neuen Focus erhielten
Beispiel :
    #Include "FBForms.bi" 	' FBForms.bi immer zuerst
                            ' bindet andere Freebasic .bi wie z.B "windows.bi" ein
    #Include "FBControls.bi"

    Dim Shared As FForm form1
    Dim Shared As FCombobox combo1


    form1.Create("Testform",0,0,870,720)
    Form1.Center

    combo1.Create(form1.Handle,10,200,190,260)

    combo1.AddString("Item 1")
    combo1.AddString("Item 2")
    combo1.AddString("Item 3")

    form1.Show
    End