Question

求救，VB标签移动！！！！！！

求救，VB标签移动！！！！！！
我刚学VB，大侠们别笑小弟笨哦！
在窗体上建立一个标签label1，和一个命令按钮command1，适当布置一下控件。
每单击命令按钮一次，标签向左移动一定距离，单击10次，则移动到最左边（label1.left=0)。
不要加什么timer控件，就用那些比较简单的move或者简单的循环就好！
谢谢啦！！！！！！

Answer 1

单击一下command1按钮，加一个代码：label1.left或label1.top的值加上一个需要移动的步长即可。单击10次，则移动到最左边（label1.left=0)，可通过原始label1.left/10算出步长。

Answer 2

'创建标签label1，按钮command1
'无论标签放在什么位置都可以，然后复制代码就去即可

Dim a

Private Sub Command1_Click()
Label1.Left = Label1.Left - a / 10
End Sub

Private Sub Form_Load()
a = Label1.Left
End Sub

Answer 3

Dim Oldleft
Private Sub Command1_Click()
If Label1.Left > 0 Then '如果label1的left值为大于零 那么
Label1.Left = Label1.Left - Oldleft / 10
Else
MsgBox "标签已经在最左边.label1.left=0"
Label1.Left = 0
End If
End Sub

Private Sub Form_Load()
Oldleft = Label1.Left
End Sub

Answer 4

Dim b as integer

Private Sub Form_Load()
b =me.width/2
Label1.Left = b
End Sub

Private Sub Command_Click()
Label1.Left = b/10
End Sub

Answer 5

Dim j As Integer

Private Sub Form_Load()
j = Label1.Left / 10
End Sub

Private Sub Command_Click()
Label1.Left = Label1.Left - j
End Sub