Scrollen = Schieberegler                                   Zurück

Mit dem Schieberegler lassen sich nicht nur Textfelder besser darstellen, sondern man kann auch sehr schön kontinuierliche Zahlenwerte eingeben.

Den horizontalen Schieberegler holt man sich aus der Werkzeugkiste. Er steht unter folgendem Befehlsfeld:

Beim Laden der Form werden schon die Eigenschaften des Schiebereglers festgelegt und zwar mit folgendem Code :

Sub Form_Load ()

• Bezeichnung1.Caption = "0" ' Bezeichnungstitel.
• hbildlauf1.Min = .1
  • Rem Minimalwert der Bildlaufleiste setzen.
• hbildlauf1.Max = 150
  • Rem Maximalwert einstellen

End Sub

Das Bezeichnungsfeld 1 wird am Anfang auf 0 gesetzt .

Später wird durch die Betätigung des Schiebereglers die Ausgabe im Bezeichnungsfeld immer wieder geändert.

Hinter dem Schieberegler steht folgender Befehlscode :

Sub HBildlauf1_Change ()

• Bezeichnung1.Caption = hbildlauf1.Value / 10
• Rem Meldung im Bezeichnungsfeld nach Änderung anzeigen.

End Sub

Unter dem Begriff Caption wird der Text des Bezeichnungsfeldes verstanden.  Mit Value holt man sich den aktuellen Wert der Bildlaufleiste .

Da der Wert zu groß war , wurde er noch durch 10 geteilt :  / 10

Dies hätte man natürlich auch durch eine andere Festlegung der Minimal und Maximalwerte erreichen können.

Das Bezeichnungsfeld als Zahlenausgabe hätte genauso gut auch ein Textfeld sein können. Im Textfeld gibt es allerdings keine Caption Eigenschaft sondern nur die Eigenschaft Text.