Slider Control
11.10.2017 21:28:12
Joe
Ich würde gerne in einem Formular die Möglichkeit nutzen eine Range einstellen zu lassen. Bsp. 2019-2024
Habe jetzt folgenden Code, der mir allerdings nur ne debugger-nachricht ausschmeißt.
Private Sub Trinkhorizont_Slider_Click()
Call SelectSingleValue
End Sub
Private Sub Trinkhorizont_Slider_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
bln_SelectionFlag = True
lng_SelStart = Trinkhorizont_Slider.Value
Range("mySliderRangeStart").Value = lng_SelStart
DefineRange lng_SelStart, lng_SelStart
End Sub
Private Sub Trinkhorizont_Slider_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If bln_SelectionFlag Then DefineRange lng_SelStart, Trinkhorizont_Slider.Value
Range("mySliderRangeStart").Value = Trinkhorizont_Slider.SelStart
Range("mySliderRangeEnd").Value = Trinkhorizont_Slider.SelStart + Trinkhorizont_Slider. _
SelLength
End Sub
Private Sub Trinkhorizont_Slider_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal _
_
x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
bln_SelectionFlag = False
End Sub
Private Sub Trinkhorizont_Slider_Scroll()
Call SelectSingleValue
End Sub
Private Sub ScrollBar1_Change()
End Sub
Private Sub ScrollBar2_Change()
End Sub
Kann jemand helfen? Ich danke herzlichst im Voraus!
Cheers, j