FHScrollBar (horizontal) FVScrollBar (vertikal)

Horizontale und vertikale Scrollbar haben die gleichen Property und Sub

PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist hellgrau
HandleHWND (R) Handle des Control(nur lesen !)
CtHandleHWND (R) Handle des Containers , ein unsichtbares Elternfenster (nur lesen !)
positionInteger (R/W) Liest oder setzt die Position
Sub/FunctionArgumenteHinweise
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 SUBArgumenteHinweis
onChange(ByVal nPos As Integer ) Bei Änderung die Position der Scrollbar abhängig von Range
Beispiel :
    #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