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

*第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 Sub2.【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 Sub3.【L9-5shang-xia.vbp】从上向下移例：在窗体上有一个标签控件Label1、时钟控件Timer1，在程序运行的时候，可通过每隔30ms让Label1标签从上向下移100缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体上侧外部进入，当移出窗体下侧时，再从窗体上侧外进入。 说明：标签控件和时钟控件的属性值默认。图1 设计时界面图1 图21运行时界面从上向下移Private Sub Timer1_Timer()If Label1.Top 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缇，从而产生文字移动的动画效果。 要求： 程序运行时，标签应从窗体上边界进入。当移出窗体下边界时再从窗体上边界进入移动。 说明：标签控件和时钟控件的属性值默认。 Private Sub Form_Load() Label1.Top = -Form1.Height 窗体一经装载，标签便定位在窗体的上边界外Timer1.Interval = 30 Timer1每隔30ms触发一次Timer事件，让Label1标签从上向下移100缇End SubPrivate Sub Timer1_Timer()If Label1.Top + Label1.Height Form1.Height Then Label1.Top = Label1.Top + 100Timer1每隔30ms让Label1标签从上向下移100缇Else Label1.Top = -Form1.HeightEnd If6.新建FORM1窗体，在其中添加一个标签控件和时钟控件，调整标签的大小并设置caption属性，在标签中输出文字“左右动态字母示例”；设置时钟控件的Enabled属性为.T.，Interval属性为100。编写时钟事件的代码，使程序运行时标签能在窗体上左右往返不断移动（标签向左移动碰到窗体左边沿时，移动方向变为向右；向右移动碰到窗体右边沿时，移动方向变为向左。假设每次时钟事件移动100缇（单位）。Timer1的Timer事件代码Dim y As Integer 在通用段 Private Sub Timer1_Timer() If y = 0 Then Picture1.Left = Picture1.Left - 30 If Picture1.Left =Form1.ScaleWidth Then y= 0 End If 7.新建FORM1窗体，在其中添加一个标签控件和时钟控件，调整标签的大小并设置caption属性，在标签中输出文字“上下碰动态字母示例”；设置时钟控件的Enabled属性为.T.，Interval属性为100。编写时钟事件的代码，使程序运行时标签能在窗体上上下往返不断移动（标签向上移动碰到窗体上边沿时，移动方向变为向下；向下移动碰到窗体下边沿时，移动方向变为向上。假设每次时钟事件移动100缇（单位）。界面如下图所示：程序代码如下：dim z as integer