问题
单项选择题
在窗体上有一个计时器控件Timer1和一个标签控件Labe11,在程序运行的时候,可通过每隔30ms让Labe11左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动,如图20-9所示。空格处应填( )。
Private Sub Form_Load()
Labell.Left=Form1.Width
Timer1.Interval=30
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Labell.Left=Labell.Left-100
If Labell.Left<100 Then
_____________
End If
End Sub
答案
参考答案:A
解析: 本题在Form Load事件中通过给Labell的Left属性赋值,使它显示在窗体右边框之外,通过给Timer1.Interval属性赋值,使定时器的Timer事件可隔30ms发生一次,并给Timer1.Enabled赋值为True,启动定时器工作。在每发生一次Timer1.Timer事件时,将使标签控件的Left属性值减去100,从而产生标签中显示的文字逐渐左移的动画效果。当标签移到窗体的左边界附近时,要使标签不再移动,只需把时钟控件的Enabled属性变为False即可。