Re: UserForm Scroll-Bar
15.11.2002 15:13:21
Jörg
Hier ein Beispiel aus der VBA-Hilfe :Dim ScrollSaved As Integer 'Vorherige Einstellung für Bildlaufleiste
Private Sub UserForm_Initialize()
ScrollBar1.Min = -225
ScrollBar1.Max = 289
ScrollBar1.Value = 0
Label1.Caption = "-225 -----Einheiten----- 289"
Label1.AutoSize = True
Label2.Caption = ""
End Sub
Private Sub ScrollBar1_Change()
Label2.Caption = " Aktueller Wert " & (ScrollSaved - ScrollBar1.Value)
End Sub
Private Sub ScrollBar1_Exit(ByVal Cancel as MSForms.ReturnBoolean)
Label2.Caption = " Aktueller Wert " & (ScrollSaved - ScrollBar1.Value)
ScrollSaved = ScrollBar1.Value
End Sub
Private Sub ScrollBar1_Scroll()
Label2.Caption = (ScrollSaved - ScrollBar1.Value) & " Wertänderung durch Bildlauf "
End Sub
Gruss Jörg