在窗体上有一个计时器控件Timer1和一个标签控件Labe11,在程序运行的时候,可通过每隔30ms让Labe11左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动,如图20-9所示。 空格处应填( )。

admin2009-02-13  30

问题 在窗体上有一个计时器控件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、Timer1.Enabled=False
B、Timer1.Interval=30
C、Labell.Enabled=True
D、Labell.Left=0

答案1

解析 本题在Form Load事件中通过给Labell的Left属性赋值,使它显示在窗体右边框之外,通过给Timer1.Interval属性赋值,使定时器的Timer事件可隔30ms发生一次,并给Timer1.Enabled赋值为True,启动定时器工作。在每发生一次Timer1.Timer事件时,将使标签控件的Left属性值减去100,从而产生标签中显示的文字逐渐左移的动画效果。当标签移到窗体的左边界附近时,要使标签不再移动,只需把时钟控件的Enabled属性变为False即可。
转载请注明原文地址:https://jikaoti.com/ti/Ubq0FFFM
0

最新回复(0)