Question

vb label移动的问题

我要做一个计时器，如下：

剩余时间：120.0 秒
剩余时间：99.9 秒
剩余时间：9.9 秒
看到这个秒字在变2位数的时候往前移动一格，到个位数的时候又往前移动了一格。这要怎么做啊。因为我要改变数字的颜色（比如到30秒的时候变成红字），所以这个“秒”字是单独的LABEL，请问具体要怎么实现？？
我就是不会判断时间变化啊，怎么做呢~~~~~~
移动我知道用label.left=label.left -100
但是如果把这个放个TIMER里的话，就一直往前移了啊。

Answer 1

在Timer.time事件中
判断时间达到要求时（比如等于99.9s,等于9.9S），label2.left=label2.left-n（假设label2为秒的label，n为一个数字的宽度，根据你的字体大小自己试下多少合适），要重新计时时就还原

开始没考虑一直移动，把时间的判断条件改成等于99.9s,等于9.9S，不用小于了

Answer 2

在变化Label1.Caption的时候，加上下面的代码，
Label1.AutoSize = True
Label2.Top = Label1.Top
Label2.Left = Label1.Left + Label1.Width + 10 '最后的常数，可以自己调整

Answer 3

label.forcecolour=vbred'红色

dim lsstr as string

lsstr="120.0 秒"
label.caption=lsstr