Die Groupbox hat hauptsächlich eine decorative Funktion. Es kann innerhalb der Box mit Tab- bzw. Pfeiltasten der Focus bewegt werden.
Im Bezug auf die Gruppierung der RadioButton hat sie keine Wirkung. (siehe auch FRadioButton)
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 |
Border | Integer (R/W) |
Rahmen - Linie 0 = keine 1 = sunken (voreingestellt) 2 = erhoben 3 = Linie ; in Farbe BorderColor(voreingestellt ist grau) |
BorderColor | Uinteger (R/W) | Wenn Border = 3 , dann Linienfarbe |
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 !) |
Sub/Function | Argumente | Hinweise |
SUB Create | (ByVal hParent As HWND, Caption As String, ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer ) |
Handle des Elternfenster Text Dimensionen x,y,Weite,Höhe |
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 |
#Include "winFBgui.bi" Dim Shared As FForm form1 Dim Shared As FToolBtn Btn1 Dim Shared As FGroupbox grup1,grup2 Dim Shared As FCheckbox check1,check2,check3,check4 Sub btn1_Click form1.FormClose End Sub '-------------------------------------------------------------------- ' Form und Control '-------------------------------------------------------------------- form1.Create("Test 1",0,0,350,270) Form1.Center Form1.Color = &HEEFFBF grup1.Create(form1.Handle," Test Box ",10,10,200,80) grup1.Color = &HEEFFBF grup1.TextColor = &HFF0000 grup2.Create(form1.Handle," Test Box 2",10,110,200,100) grup2.Border = 3 grup2.BorderColor = &HFF grup2.Color = &HEEFFBF grup2.TextColor = &HFF Btn1.Create(form1.Handle,230,20,90,30) Btn1.Caption = "Exit" Btn1.onClick = @btn1_Click Btn1.Border = TRUE Btn1.BorderColor = &HAAAAAA check1.Create(grup1.Handle,"Check1",20,30,80,26 ) check1.Color = &HEEFFBF check1.Check = TRUE check2.Create(grup1.Handle,"Check2",110,30,80,26 ) check2.Color = &HEEFFBF check3.Create(grup2.Handle,"Check3",20,40,80,26 ) check3.Color = &HEEFFBF check4.Create(grup2.Handle,"Check4",110,40,80,26 ) check4.Color = &HEEFFBF check4.Check = TRUE '------ Show entält MessageLoop - muss immer am Ende sein ------------ form1.Show ExitProcess(0) End |
So sieht es aus :![]() |