[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】从左向右移例：在窗体上有一个标签控件Label1、时钟控件Timer1，在程序运行的时候，可通过每隔30ms让Label1标签从左向右移100缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体左侧进入，当移出窗体右侧时，再从窗体左侧界进入。 说明：标签控件和时钟控件的属性值默认。 Private Sub Form_Load()? Label1.Left = -Form1.Width 窗体一经装载，标签便定位在窗体的左侧 Timer1.Interval = 30 Timer1每隔30ms让Label1标签从左向右移100缇End Sub ? Private Sub Timer1_Timer()从左向右移Label1.Left = Label1.Left + 20If Label1.Left Form1.Width Then?? Label1.Left = Label1.Left + 20Else?? Label1.Left = -Form1.WidthEnd IfEnd Sub 3.【L9-5shang-xia.vbp】从上向下移例：在窗体上有一个标签控件Label1、时钟控件Timer1，在程序运行的时候，可通过每隔30ms让Label1标签从上向下移100缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体上侧外部进入，当移出窗体下侧时，再从窗体上侧外进入。 说明：标签控件和时钟控件的属性值默认。 图1 设计时界面图1 图21运行时界面 从上向下移Private Sub Timer1_Timer()If Label1.Top Form1.Height Then?? Label1.Top = Label1.Top + 100Else?? Label1.Top = -Form1.HeightEnd IfEnd Sub 4.【9-5Ly-zdtzmt.vbp】从右侧进入，移动到左侧停例：在窗体上有一个标签控件Label1、时钟控件Timer1，在程序运行的时候，可通过每隔30ms让Label1标签从右向左移100缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体右侧进入。当移动到接近窗体左边界时停止移动。 说明：标签控件和时钟控件的属性值默认。 ? 图1设计时界面 图2 运行时界面 图3 运行时最后界面 Private Sub Form_Load() Label1.Left = Form1.Width? Timer1.Interval = 30 ?End Sub ? Private Sub Timer1_Timer()? If Label1.Left 0 Then? Label1.Left = Label1.Left - 100? Else? Timer1.Enabled = False End If ?End Sub 5.【L9-5shang-xiao.vbp】从窗体上侧进入移动到下侧例：在窗体上有一个标签控件Label1、时钟控件Timer1，在程序运行的时候，可通过每隔30ms让Label1标签从上向下移100缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体上边界进入。当