vb第9章控件的使用作业流动字幕程序..docVIP

*第9章作业【流动字幕编程作业】9.vbp-form22】 1.【9-5Ly-zdtzm.vbp】从右向左移例：在窗体上有一个标签控件Label1、时钟控件Timer1，在程序运行的时候，可通过每隔30ms让Label1标签从右向左移100缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体右侧进入，当移出窗体左侧时，再从窗体右侧界进入。 说明：标签控件和时钟控件的属性值默认。enabled=true;interval=0 从右向左移 Private Sub Form_Load()? Label1.Left = Form1.Width 窗体一经装载，标签便定位在窗体的右侧 Timer1.Interval = 30 Timer1每隔30ms触发一次Timer事件，让Label1标签从右向左移100缇End Sub ? Private Sub Timer1_Timer()Label1.Left = Label1.Left - 20If Label1.Left + Label1.Width 0 Then?? Label1.Left = Label1.Left - 100Else? Label1.Left = Form1.WidthEnd IfEnd Sub 2.【9-5Lz-ydtzm.vbp】从左向右移例：在窗体上有一个标签控件Label