textbox 显示当前日期+vscrollbar 天数加减一

Question

textbox 显示当前日期+vscrollbar 天数加减一
谢谢高手指点

Answer 1

Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = 100
VScroll1.LargeChange = 1
Text1 = Date
End Sub
Private Sub VScroll1_Change()
Text1 = ""
Text1 = DateAdd("d", VScroll1.Value, Date)
End Sub

Answer 2

加减一没搞,到底是加还是减?你想搞VScroll1.Value+1,或VScroll1.Value-1代替VScroll1.Value即可

Answer 3

你若是每次加一或减一通过点击VScroll1实现,就不要改了,