Die Button sind flach und reagieren auf MouseOver durch anheben des Randes. Sie können auf down (und zurück) gestellt werden um Eigenschaften zu symbolisieren.
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) | True = Rand 1 Pixel in der Farbe BorderColor , Voreingestellt FALSE |
BorderColor | UInteger (R/W) | Border Farbe , wenn Border = TRUE; Voreingestellt schwarz |
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 |
Focused | Integer (R/W) | Bestimmt ob ein Focusrect angezeigt wird , TRUE = Ja; FALSE = nein |
Down | Integer (R/W) | Bestimmt ob der Button als Down angezeigt wird , TRUE = Ja; FALSE = nein |
TextPos | Integer (R/W) |
Bestimmt wo der Text angezeigt wird , wenn Image und Caption angegeben ist; TRUE = Bild oben; FALSE = Bild links |
Tip | String (W) | Der hier zugeordnete String wird als ToolTip angezeigt |
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 Image | ( value as String) | Bild (.bmp) im Button. Es kann ein Dateiname oder ein Resourcename ( kein ID) sein. |
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 |
onRbuttondown | keine | Wenn auf Button mit der rechten Mousetaste geklickt wird |
Beispiel :
#Include "winFBgui.bi" Dim Shared As FForm form1 Dim Shared As FToolBtn Btn1,Btn2,Btn3,btn4,btn5 Sub btn1_Click form1.FormClose End Sub '-------------------------------------------------------------------- ' Form und Control '-------------------------------------------------------------------- form1.Create("Test 1",0,0,350,300) Form1.Center Form1.Color = &HEEFFBF Btn1.Create(form1.Handle,10,10,120,30) Btn1.Caption = "Nur Text" Btn1.onClick = @btn1_Click Btn1.Border = TRUE Btn1.BorderColor = &HAAAAAA Btn2.Create(form1.Handle,140,10,68,100) Btn2.LoadBmp("bild1.bmp") Btn2.Caption = "Bild.bmp" Btn2.Border = TRUE Btn2.BorderColor = &HAAAAAA Btn3.Create(form1.Handle,218,10,68,100) Btn3.Image("txt64.jpg") Btn3.Caption = "Bild.jpg" Btn3.Color = &HFFFFFF Btn3.Border = TRUE Btn3.BorderColor = &HAAAAAA Btn4.Create(form1.Handle,140,140,110,40) Btn4.Image("166.jpg") btn4.TextPos = 0 Btn4.Caption = "Bild.jpg" Btn4.Color = &HEEFFBF Btn4.Border = TRUE Btn4.BorderColor = &HAAAAAA Btn5.Create(form1.Handle,10,78,40,40) Btn5.Image("166.jpg") Btn5.Color = &HEEFFBF '------ Show entält MessageLoop - muss immer am Ende sein ------------ form1.Show ExitProcess(0) End |
So siet es aus :
![]() |