Question

求助VB。。。。。。。。。。。。。。。。。。。。。。

大家好啊，我最近遇到一个关于VB的题，但是我就是不能理解，请大家帮我解释一下，跪谢啦！！！设计一个程序，从右到左滚动显示标签中的文字。这就是题了，在窗体上九添加一个标签和一个计时器，程序代码是这样的：Private Sub Timer1_Timer()
If Label1.Left > -Label1.Width Then（谁能告诉我，这里为什么用负号，这是什么意思？这句代码怎么理解，我不胜受恩感激！！）
Label1.Left = Label1.Left - 10
Else
Label1.Left = Width
End If

End Sub
最好能给我一个详细的解释，谢谢大家啦！！在下没有金币，没有财富，但是相信大家还是本着为人名服务的！！！谢谢啦！！
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。由于说提问过短，我只好这样了，不要介意啊大家~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Answer 1

If Label1.Left > -Label1.Width Then

Label1.Left表示Label1在窗体中的水平坐标,当Label1向左移动时,Left就慢慢减小.

由于窗体的坐标最左边是0,最上边也是0,所以当Label1.Left < 0时,就表示Label1左边一部分在窗体左边外边,如果Label1.Left < -Lable1.Width,就表示Label1的整个都在窗体左边外边,就看不到label1了. 那反过来就是Label1.Left > -Lable1.Width,就是说Label1在窗体上还看得见时候.

另外Label1.Left = -Lable1.Width就表示Label1的右边与窗体左边对齐

你的程序这里的判断就是说, 当Label1还看得见时,继续向左移,否则就Label1.Left = Width
表示,Label1放在窗体的最右边这里的Width就是窗体的宽度,也就是Label1的左边与窗体的右边对齐.

Answer 2

If Label1.Left > -Label1.Width Then
'相当于只要label的左边负距离比他的宽度还要小的话,它就一直走下去,效果就是你看到这标签到了窗体边缘它还会继续往左走,直到它整个标签完全出了窗体为止
Label1.Left = Label1.Left - 10
Else
Label1.Left = Width
End If

Answer 3

负号就是把值取负的意思，也就是说：如果Label1.Width=10那么-Label1.Width就等于-10了，就这么简单。