FButton

(Pushbutton)
PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
ClientHeightInteger (R) Höhe des Clientbereiches
ClientWidthInteger (R) Breite des Clientbereiches
CaptionString (R/W) Liest,Setzt oder ändert den Text
TextPosInteger (R/W)) Nur wenn Bild und Text angezeigt werden soll. 0=Bild links u. Text rects, 1=Bild oben und Text unten
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 !)
TipString (W) Der hier zugeordnete String wird als ToolTip angezeigt
Sub/FunctionArgumenteHinweise
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 SUBArgumenteHinweis
onClickkeine Wenn Button geklickt wird
Beispiel :
#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:
fbutton