Einzeiliges Edit - Control
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 |
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 !) |
CtHandle | HWND (R) | Handle des Containers , ein unsichtbares Elternfenster (nur lesen !) |
Border | Integer (W) |
0 = ohne 1 = sunken 2 = Umrandung |
TextLen | Integer (R) | Länge des Textes |
Text | String (R/W) | Text des Control |
Number | Integer (W) |
TRUE = es können nur Zahlen eingegeben werden; FALSE = Normal |
Password | Integer (W) |
TRUE = Eingaben erscheinen als '*'; FALSE = normaler Text |
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 Invalidate | keine | Veranlasst das senden einer WM_PAINT Botschaft |
Sub Repaint | keine | Wie Invalidate aber mit Nicht-Clientbereich |
Sub 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 |
onChange | keine | Inhalt wird geändert |
onUpdate | keine | Inhalt wurde geändert |
OnKeyDown | (nKey AS Integer, lKeyStatus As Integer) |
gedrückte Taste kann VK_SHIFT,VK_CONTROL oder VK_MENU sein |
OnSetFocus | (ByVal hWnd As HWND) | Control hat den Focus bekommen |
#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 FEdit edit1 form1.Create("Testform",0,0,870,720) edit1.Create(form1.Handle,10,10,200,20) edit1.Password = TRUE form1.Show End