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 |
ClientHeight | Integer (R) | Höhe des Clientbereiches |
ClientWidth | Integer (R) | Breite des Clientbereiches |
Caption | String (R/W) | Liest,Setzt oder ändert den Text |
Enabled | Integer (R/W) | TRUE = aktiv (voreingestellt) ; FALSE = inaktiv |
Visible | Integer (R/W) | TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar |
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 !) |
Tip | String (W) | Der hier zugeordnete String wird als ToolTip angezeigt |
Check | Integer (R/W) | TRUE = Checked; FALSE = Unchecked |
BtnLike | Integer (R/W) | TRUE = Buttonlike; FALSE = RadioButton |
Sub/Function | Argumente | Hinweise |
SUB Create | (ByVal hParent As HWND, Capt As String, ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer ) |
Handle des Elternfenster Text des Button Dimensionen x,y,Weite,Höhe |
Sub BmpBtn | (bm As String) | Setzt ein Bitmap statt Text. bm kann Dateiname oder Resource-Name sein (kein ID) |
Invalidate | keine | Veranlasst das senden einer WM_PAINT Botschaft |
Repaint | keine | Wie Invalidate aber mit Nicht-Clientbereich |
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 |
onClick | keine | Wenn Button geklickt wird |
Style Autoradiobutton ist nicht verfügbar, da dieser Stiel ein gemeinsames Elternfenster erfordert.
Wie im Beispiel ist dies trozdem möglich.
#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 FRadioBtn radio1,radio2 Sub radio1_Click radio1.Check = TRUE radio2.Check = FALSE End Sub Sub radio2_Click radio2.Check = TRUE radio1.Check = FALSE End Sub form1.Create("Testform",0,0,870,720) Form1.Center Form1.Color = &Hefcb90 radio1.Create(form1.Handle,"text",10,200,90,26) radio1.onClick = @radio1_Click radio1.Color = &Hefcb90 ' Button Hintergrund-Farbe radio2.Create(form1.Handle,"text 2",10,240,90,26) radio2.onClick = @radio2_Click radio2.TextColor = &HFF0000 ' Button Text-Farbe '------ Show entält MessageLoop - muss immer am Ende sein ------------ form1.Show End