Horizontale und vertikale Scrollbar haben die gleichen Property und Sub
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 |
Color | UInteger (R/W) | Hintergrundfarbe ; voreingestellt ist hellgrau |
Handle | HWND (R) |
Handle des Control(nur lesen !) |
CtHandle | HWND (R) | Handle des Containers , ein unsichtbares Elternfenster (nur lesen !) |
position | Integer (R/W) | Liest oder setzt die Position |
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 Range | (ByVal min As Integer, ByVal max As Integer) | Min bzw. Max Bereich der Srollbar |
Invalidate | keine | Veranlasst das senden einer WM_PAINT Botschaft |
Repaint | keine | Wie Invalidate aber mit Nicht-Clientbereich |
Event SUB | Argumente | Hinweis |
onChange | (ByVal nPos As Integer ) | Bei Änderung die Position der Scrollbar abhängig von Range |
#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 FHScrollbar HScroll,HScroll1,HScroll2 form1.Create("Testform",0,0,870,720) Form1.Center HScroll.Create(panel2.Handle, 50,450,450 ,26 ) HScroll.Color = &HFF HScroll.Range(0, 255) HScroll1.Create(panel2.Handle, 50,420,450 ,26 ) HScroll1.Color = &HFF00 HScroll1.Range(0, 255) HScroll2.Create(panel2.Handle, 50,390,450 ,26 ) HScroll2.Color = &HFF0000 HScroll2.Range(0, 255) form1.Show End