FAQ 0099: Wie kann ich die Scrollbars eines Steuerelements zur Laufzeit ein- und ausblenden?

Beispiel  

Die Eigenschaft ScrollBars der meisten Steuerelemente ist zur Laufzeit zwar schreibgeschützt, doch mit dem Aufruf der Funktion ShowScrollBar der Windows-API kann man dieses Problem lösen.

Das nachfolgende Beispiel funktioniert mit Textboxen und RichTextBoxen:

Private Declare Function APIShowScrollBar Lib "user32.dll" _
                Alias "ShowScrollBar" ( _
                ByVal hwnd As Long, _
                ByVal wBar As Long, _
                ByVal bShow As Long) As Long

Enum Scrollbars
    SB_HORZ = 0
    SB_VERT = 1
End Enum

Sub ShowScrollBar(Box As Control, Bar As Scrollbars, State As Boolean)
    APIShowScrollBar Box.hwnd, Bar, State
End Sub

Listing 1: Deklarationen

ShowScrollBar Text1, SB_VERT, True
ShowScrollBar RichTextBox1, SB_HORZ, True

Listing 2: Beispiel eines Aufrufs

Ihre Meinung  

Falls Sie Fragen zu dieser FAQ haben, Ihre Erfahrung mit anderen Nutzern austauschen möchten oder auf eine Ergänzung hinweisen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.