求具体VB代码,.窗体有一个矩形和一个圆,还有一水平滚动条和一垂直滚动条.程序运行时,移动某个滚动条的滑块,可使圆作相应方向的移动.滚动条刻度值的范围是圆可以在矩形中移动的范围.

Question

求具体VB代码,
.窗体有一个矩形和一个圆,还有一水平滚动条和一垂直滚动条.程序运行时,移动某个滚动条的滑块,可使圆作相应方向的移动.滚动条刻度值的范围是圆可以在矩形中移动的范围.

Answer 1

'矩形和圆分别是shape1 和shape2
Private Sub Form_Load()
HScroll1.Min = 1
HScroll1.Max = Shape1.Width - Shape2.Width
VScroll1.Min = 1
VScroll1.Max = Shape1.Height - Shape2.Height
End Sub

Private Sub HScroll1_Change()
Shape2.Left = HScroll1.Value + Shape1.Left
End Sub

Private Sub VScroll1_Change()
Shape2.Top = VScroll1.Value + Shape1.Top
End Sub