Property | Datentyp(Read/Write) | Hinweise |
Left | Integer (R/W) | Linke Position |
Top | Integer (R/W) | Obere Position |
Width | Integer (R/W) | Weite |
Height | Integer (R/W) | Höhe |
Visible | Integer (R/W) | TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar |
Enabled | Integer (R/W) | TRUE = aktiv (voreingestellt) ; FALSE = inaktiv |
Color | UInteger (R/W) | Hintergrundfarbe ; voreingestellt ist hellgrau |
TextColor | UInteger (R/W) | Textfarbe ; voreingestellt ist schwarz |
Handle | HWND (R) |
Handle des Control(nur lesen !) |
CtHandle | HWND (R) | Handle des Containers , ein unsichtbares Elternfenster (nur lesen !) |
Border | Integer (W) |
0 = ohne 1 = sunken 2 = Umrandung |
GetSelString | String (R) | Aktuell ausgewählter String (nur lesen !) |
GetSelItem | Integer (R) | Aktuell ausgewählter Index (nur lesen !) |
GetItemCount | Integer (R) | Anzahl der enthaltenen Item (nur lesen !) |
Sub/Function | Argumente | Hinweise |
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 SUB | Argumente | Hinweis |
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 |
onLButtondown | (ByVal x As Short, ByVal y As Short) | Wenn auf dem Control mit der linker Mousetaste geklickt wird x und y ist dabei die Position des Mousezeigers |
onRButtondown | (ByVal x As Short, ByVal y As Short) | Wenn auf dem Control mit der rechter Mousetaste geklickt wird x und y ist dabei die Position des Mousezeigers |
#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