请问有没有办法通过代码来控制滚动条控件上“滚动框”的位置？

Question

谢谢！！

Answer 1

一个例子:'add the following codes to a blank formPrivate WithEvents vscrollbar1 As VScrollBar
Private WithEvents timer1 As Timer
Private Sub Form_Load()
Set vscrollbar1 = Controls.Add("vb.vscrollbar", "vscrollbar1", Me)
Set timer1 = Controls.Add("vb.timer", "tiomer1", Me)
With vscrollbar1
.Visible = True
.Move 0, 0, 500, Me.Height - 500
.Min = 1
.Max = 60
End With
timer1.Enabled = True
timer1.Interval = 1000
End SubPrivate Sub timer1_Timer()
vscrollbar1.Value = Second(Now) + 1
Me.Caption = vscrollbar1.Value
End Sub