[此贴子已经被作者于2006-4-25 15:16:22编辑过]
Private Sub Form_Load() HScroll1.LargeChange = 1 HScroll1.SmallChange = 1 HScroll1.Min = 75 HScroll1.Max = 5End Sub
Private Sub HScroll1_Change() Text1.Text = Format(HScroll1.Value / 100, "0.00")End Sub
不好意思这两天在研究汇编没来看vb,所以一直没有回帖~~~谢谢xinfresh的热心也谢谢大家的帮助在这个题目里LargeChange和SmallChange设置的一样和不一样都没什么关系设置的一样主要是为了不论是单击滚动条两端的箭头还是单击滚动条的空白位置看到的数值的变化都是0.01。