Question

VB中的字幕移动？

如何用VB制作字幕在窗体中左右移动,我知道如此去写那个程序了，但是我不能理解，所以我要的是中文的解释哦！程序如下：
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > 0 Then -------其中这句我是没法理解的？？？？
Label1.Left = Label1.Left - 150
Else
Label1.Left = Form1.Width
End If
End Sub
我希望高人能解释清楚哦，谢谢！

Answer 1

If Label1.Left + Label1.Width > 0 Then
当Label1控件向左移.移出窗体外时,他的Left属性是负的.
这句就是通过左边的Left和他的宽度加起来,来判断控件是不是完成移出了窗体. 没有就继续移动.否刚 把Left设置为窗体宽度.
就是设置他在窗体的右边外面.

很简单啊.
你明白那些属性,再把实际的数据 试试.想想就明白 了.

Answer 2

Private Sub Timer1_Timer() '定时器事件
If Label1.Left + Label1.Width > 0 Then '当字幕未超出窗体左边界
Label1.Left = Label1.Left - 150'向左移 150 缇
Else'否则,当字幕已经完全进入窗体左边界外
Label1.Left = Form1.Width'字幕移至在窗体右侧边界
End If
End Sub