求救，VB标签移动！！！！！！
求救，VB标签移动！！！！！！
我刚学VB，大侠们别笑小弟笨哦！
在窗体上建立一个标签label1，和一个命令按钮command1，适当布置一下控件。
每单击命令按钮一次，标签向左移动一定距离，单击10次，则移动到最左边（label1.left=0)。
不要加什么timer控件，就用那些比较简单的move或者简单的循环就好！
谢谢啦！！！！！！
第1个回答 2008-10-11
单击一下command1按钮，加一个代码：label1.left或label1.top的值加上一个需要移动的步长即可。单击10次，则移动到最左边（label1.left=0)，可通过原始label1.left/10算出步长。
第2个回答 2008-10-11
'创建标签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
'无论标签放在什么位置都可以，然后复制代码就去即可
Dim a
Private Sub Command1_Click()
Label1.Left = Label1.Left - a / 10
End Sub
Private Sub Form_Load()
a = Label1.Left
End Sub
第3个回答 2008-10-11
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本回答被网友采纳
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本回答被网友采纳
第4个回答 2008-10-11
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
Private Sub Form_Load()
b =me.width/2
Label1.Left = b
End Sub
Private Sub Command_Click()
Label1.Left = b/10
End Sub
第5个回答 2008-10-11
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
Private Sub Form_Load()
j = Label1.Left / 10
End Sub
Private Sub Command_Click()
Label1.Left = Label1.Left - j
End Sub
相似回答
