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 |
TextPos | Integer (R/W)) | Nur wenn Bild und Text angezeigt werden soll. 0=Bild links u. Text rects, 1=Bild oben und Text unten |
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 !) |
Tip | String (W) | Der hier zugeordnete String wird als ToolTip angezeigt |
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 |
Image | ( Filename as String) | Läd ein Bild aus Datei(jpg,png,gif,tiff,bmp) |
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 |
#Include "FBForms.bi" #Include "FBControls.bi" Dim Shared As FForm form1 Dim Shared As FButton Btn1,Btn2,Btn3,Btn4 '--------------------------------------------------- Sub btn1_Click ' Form wird geschlossen form1.FormClose End Sub Sub btn3_Click ' Text im Button3 ändern Btn3.Caption = "geht auch" End Sub '--------------------------------------------------- ' Form und Control '--------------------------------------------------- form1.Create("Test 1",0,0,350,270) Form1.Center Form1.Color = &HEEFFBF ' Button zentrieren' Btn1.Create(form1.Handle,"Exit",Int((form1.Width-90)/2) , form1.Height-70, 90,30) Btn1.Image("halt2.jpg") Btn1.Color = &HFFFFFF Btn1.onClick = @btn1_Click 'Btn1.TextPos = 0 ist voreingestellt = Bild links Btn2.Create(form1.Handle,"",20,20,30,30) Btn2.Image("halt2.jpg") Btn2.Color = &HF0F0F0 Btn3.Create(form1.Handle,"Nur Text",90,20,100,30) Btn3.Color = &H00F0F0 Btn3.onClick = @btn3_Click Btn4.Create(form1.Handle,"Bild Ob.",210,20,70,100) Btn4.Image("txt64.jpg") Btn4.Color = &HC5C5C5 Btn4.TextPos=1 ' Bild oben '------ Show muss immer am Ende sein ------------ form1.Show End |
So sieht das aus:![]() |