Question

VB程序设计，，每单击命令按钮一次，标签框向坐移动一定距离，单击10次，则移动到最左侧，

请问代码怎么编写，，，，请老手赐教，，我刚学，

Answer 1

Private Sub Command1_Click()
Static a As Integer
If a <> 10 Then
Label1.Left = Label1.Left - 100 '其中一百两百改成你想要的数字
If a = 8 Then
a = 10
Else
a = a + 1
End If
Else
Label1.Left = 0 '移到最左侧
End If
End Sub

Answer 2

Dim move As Double
Private Sub Command1_Click()
move = Me.Label1.Left
Label1.Left = Label1.Left - move / 10
End Sub

Answer 3

dim intCount as integer
intCount=1'定义一个全局变量。用来获取目前的次数

''单击事件
if(intCount=10)then'如果等於10次了，就为最左侧
label1.left=0
else if(intCount<10)then
label1.left=label1.left-需要移动的距离
intCount=intCount+1
end if
如有疑问，欢迎提出，愿解答

Answer 4

你就建个标签和按钮 把代码复制进去就行了 然后在慢慢看
Dim J As Integer
Private Sub Command1_Click()
If Label1.Left < Form1.Width - Label1.Width Then
Label1.Left = Label1.Left + (Form1.Width - J - Label1.Width) / 10 '(Form1.Width - J - Label1.Width) / 10 =（窗体的宽度 - 标签开始行坐标值 - 标签控件的宽度）/10 意思就是把控件现位置到窗体右边的距离分平均分成十段
Command1.Caption = Val(Command1.Caption) + 1
End If
End Sub
Private Sub Form_Load()
J = Label1.Left '记录label原来的行坐标值
Command1.Caption = 0
End Sub

'昨天看错了 我写的是靠右 你把 Label1.Left = Label1.Left + (Form1…… 的"+"改成“-”
'If Label1.Left >0 then 把判断语句在改下

Answer 5

Dim distance As Double
Private Sub Form_Load()
distance = Me.Label1.Left
End Sub
Private Sub Command1_Click()
Me.Label1.Left = Me.Label1.Left - distance / 10
End Sub

追问

那你面的ME是什么意思啊？？？
真滴不好意思，，，，，，我搞不清楚，麻烦了。。。。。