Mehrzeiliges 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 weiss |
TextColor | UInteger (R/W) | Textfarbe ; voreingestellt ist schwarz |
Handle | HWND (R) |
Handle des Control(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 |
ReadOnly | Integer (R/W) | TRUE oder FALSE. Voreingestellt ist FALSE |
AutoHScroll | Integer (R/W) | TRUE oder FALSE. Voreingestellt ist FALSE. |
AutoVScroll | Integer (R/W) | TRUE oder FALSE. Voreingestellt ist TRUE |
HScroll | Integer (R/W) | TRUE oder FALSE. Voreingestellt ist TRUE |
VScroll | Integer (R/W) | TRUE oder FALSE. Voreingestellt ist TRUE |
LineCount | Integer (R) | Anzahl der Zeilen. ( Basis 1) |
CurLine | Integer (R/W) | Zeile in der sich das Caret befindet oder gestzt werden soll.( Basis 1) |
LMargin | Integer (R/W) | Linker Rand im Control |
RMargin | Integer (R/W) | Rechter Rand im Control |
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 |
Function GetLineText | (ByVal LineNr As Integer) as String | Gibt den Text einer Zeile zurück ( LineNr Basis 1) |
Sub ReplaceLineText | (ByVal LineNr As Integer, sTxt As String) | Ersetzt den Text einer Zeile ( LineNr Basis 1) |
Sub AddLine | ( sTxt As String) | Hängt eine Zeile an den Text an |
Sub SaveFile | ( sFilename As String) | Speichert den Inhalt in eine Datei |
Sub LoadFile | ( sFilename As String) | Läd den Inhalt einer Datei in das Control |
Sub Copy | keine | Kopiert die aktuelle Auswahl in die Zwischenablage (Clipboard) |
Sub Cut | keine | Kopiert die aktuelle Auswahl in die Zwischenablage (Clipboard) und löscht diese im Control |
Sub Paste | keine | Fügt den Inhalt der Zwischenablage (Clipboard)an der Caret-Position ein |
Sub Clear | keine | Löscht die aktuelle Auswahl |
Sub ClearAll | keine | Löscht den gesamten Text |
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 |
OnKeyUp | (nKey AS Integer, lKeyStatus As Integer) |
Taste auf kann VK_SHIFT,VK_CONTROL oder VK_MENU sein |
OnSetFocus | (ByVal hWnd As HWND) | Control hat den Focus bekommen |
onLButtondown | (ByVal x As Short, ByVal y As Short) | Wenn auf dem Control mit der linker Mousetaste geklickt wird x und y ist dabei die Position des Mousezeigers |
onLButtonUp | (ByVal x As Short, ByVal y As Short) | Wenn auf dem Control mit der linker Mousetaste losgelassen wird x und y ist dabei die Position des Mousezeigers |
onRButtondown | (ByVal x As Short, ByVal y As Short) | Wenn auf dem Control mit der rechter Mousetaste geklickt wird x und y ist dabei die Position des Mousezeigers |
#Include "winFBgui.bi"
Dim Shared As FForm form1
Dim Shared As FMemo memo1
form1.Create("Testform",0,0,870,720)
memo1.Create(form1.Handle,10,10,400,320)
form1.Show
ExitProcess(0)
End