# Re:一个笨方法

Posted by jerry on February 24, 1998 at 04:01:38:

In Reply to: 请教关于 VSCROLLBAR 控制项 posted by 小余 on February 24, 1998 at 01:43:20:

Dim scro As Integer
Dim flag As Boolean

Private Sub Form_Load()
flag = False
VScroll1.Value = Int((VScroll1.Max - VScroll1.Min) / 2)
scro = VScroll1.Value
flag = True
End Sub

Private Sub VScroll1_Change()
If flag = False Then Exit Sub
flag = False
VScroll1.Value = scro + (scro - VScroll1.Value)
scro = VScroll1.Value
flag = True
End Sub

这个好像可以用说, 但若使用者直接去拉活动方块就会很奇怪了...
请高手指正.........

Follow Ups: