Question

vb 循环移动控件

让command在窗体上像屏保那样移动 碰到边缘就反弹回来 怎么做？
最好能把代码大概发一下 谢谢

Answer 1

首先要用时钟控件，让其不断运动；用command的left，top属性控制是否到屏幕边了

Answer 2

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Static bMoveLeft As Boolean

If Command1.Left <= 0 Then
bMoveLeft = False
ElseIf Command1.Left + Command1.Width >= Me.ScaleWidth Then
bMoveLeft = True
End If

Command1.Left = Command1.Left + IIf(bMoveLeft, -1, 1) * 30
End Sub