Question

vb中shape移动程序

shape左右移动，由3个按钮控制。一个左移一个右移一个停止。
不动啊

Answer 1

下面就是你想要的程序~~测试通过~~
Dim distance As Integer
Private Sub Command1_Click()
distance = 10 '正数代表右移 数字代表移动的距离
End Sub

Private Sub Command2_Click()
distance = -10 '负数代表左移
End Sub

Private Sub Command3_Click()
distance = 0 '不移
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 500 '每隔0.5秒移动一下
Shape1.Left = Shape1.Left + distance
End Sub

你要加一个shape控件，三个时间按钮控件，一个timer控件并命名~
Email：fightiger25@163.com索要源代码