VB让HSCROLL自动动起来?

来源:百度知道 编辑:UC知道 时间:2024/06/04 02:05:33
Private Sub Timer1_Timer()
HScroll1.Value = Val(Rnd * 256)
HScroll2.Value = Val(Rnd * 256)
HScroll3.Value = Val(Rnd * 256)
End Sub

怎么错的

1,你的timer有没有设置interval
就是每隔多长时间运行一次timer

2,你有没有设置hscroll1-3的min和max?
否则如果max特别特别大,就算动了,但是值在0-256之间,你也看不到

debug.print 打出value看看有没有变化

没有错,有反应,只是不那么明显,你可以把3个滚动条的max属性值设为300再看看,就很明显了