Question

VB label控件移动问题

要求label控件在框体中上移移到边界处停下 下左右亦然。。 求大神指教。。。

Answer 1

移动控件，其基本思路就是改变控件的：
Left、Top属性：
1，如果每间隔一段时间增加Left属性，看到的效果就是向右移动。
2，如果每间隔一段时间减少Left属性，看到的效果就是向左移动。
3，如果每间隔一段时间增加Top属性，看到的效果就是向下移动。
4，如果每间隔一段时间减少Top属性，看到的效果就是向上移动。

要产生每间隔一段时间，去移动控件，通常用Timer控件，设置一定的时间间隔即Interval 属性
在它的Timer1_Timer()事件里，编写上述增加或减少的代码。

要达到到达窗体的某边界就停止，仍然在Timer1_Timer()事件里，加判断的代码：
比如达到上边界（也就是该控件的Top属性 小于或等于0），就停止Timer控件（设置Enabled 属性为False ）

Answer 2

要添加2个时钟控件（Timer)、1个标签控件（label），然后将下面代码复制到代码区就行了。
注意复制的时候不能全选复制，要一行一行的复制，复制后的格式要与下面代码格式一致。

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

Private Sub Timer1_Timer()
If (Label1.Left < Form1.Width - Label1.Width) Then
Label1.Left = Label1.Left + 15
End If
If (Label1.Left = Form1.Width - Label1.Width) Then
Timer1.Interval = 0
Timer2.Interval = 5
End If
End Sub

Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 15
If (Label1.Left = 0) Then
Timer2.Interval = 0
Timer1.Interval = 5
End If
End Sub

Answer 3

Private sub form_load()
timer1.Enable =true
timer1.Interval =100 '你自己可以设定
End Sub

Private Sub timer1_Timer()
label1.top =label1.top - 1000
if label1.top >= me.height then
label1.top =label1,top +1000
end if
if label1.top >= me.top then
label1.top =me.top
label1.left =label1.left - 1000
end if
if label1.left <=.me.left then
label1.left =label1,left +1000
end if
if label1.left>=me.left then
timer1.endble =false
end if
end sub