滚动条控件,在线等

[maskdata]

我现在有一个frame,和一个滚动条
希望frame能按滚动条的移动改变top属性,要怎么做
最好说详细点,谢谢

[laviewpbt]

是这个意思吗？？
Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = Form1.Height
VScroll1.SmallChange = 10
End Sub

Private Sub VScroll1_Change()
Frame1.Top = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
Frame1.Top = VScroll1.Value
End Sub

[韧恒]

设置vsdcroll1的最大和最小值在frmae控件在移动的范围内:

Private Sub VScroll1_Change()
frame1.Move frmae1.Left, VScroll1.Value
End Sub

[wwqna]

把这个frmae和滚动条都放在另一个frame中去

[tztz520]

Private Sub Form_Load()
VScroll1.Max = 10000'这里是控制最大能移动多少
End Sub

Private Sub VScroll1_Change()
Frame1.Top = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
Frame1.Top = VScroll1.Value
End Sub