vb第9章控件的使用作業(yè)流動字幕程序.doc

*第9章作業(yè)【流動字幕編程作業(yè)】9.vbp-form22】1.【9-5Ly-zdtzm.vbp】從右向左移例：在窗體上有一個標(biāo)簽控件Label1、時鐘控件Timer1，在程序運行的時候，可通過每隔30ms讓Label1標(biāo)簽從右向左移100緹，從而產(chǎn)生文字移動的動畫效果。 要求： 程序運行時，標(biāo)簽應(yīng)從窗體右側(cè)進(jìn)入，當(dāng)移出窗體左側(cè)時，再從窗體右側(cè)界進(jìn)入。 說明：標(biāo)簽控件和時鐘控件的屬性值默認(rèn)。enabled=true;interval=0從右向左移Private Sub Form_Load() Label1.Left = Form1.Width 窗體一經(jīng)裝載，標(biāo)簽便定位在窗體的右側(cè) Timer1.Interval = 30 Timer1每隔30ms觸發(fā)一次Timer事件，讓Label1標(biāo)簽從右向左移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】從左向右移例：在窗體上有一個標(biāo)簽控件Label1、時鐘控件Timer1，在程序運行的時候，可通過每隔30ms讓Label1標(biāo)簽從左向右移100緹，從而產(chǎn)生文字移動的動畫效果。 要求： 程序運行時，標(biāo)簽應(yīng)從窗體左側(cè)進(jìn)入，當(dāng)移出窗體右側(cè)時，再從窗體左側(cè)界進(jìn)入。 說明：標(biāo)簽控件和時鐘控件的屬性值默認(rèn)。Private Sub Form_Load() Label1.Left = -Form1.Width 窗體一經(jīng)裝載，標(biāo)簽便定位在窗體的左側(cè) Timer1.Interval = 30 Timer1每隔30ms讓Label1標(biāo)簽從左向右移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】從上向下移例：在窗體上有一個標(biāo)簽控件Label1、時鐘控件Timer1，在程序運行的時候，可通過每隔30ms讓Label1標(biāo)簽從上向下移100緹，從而產(chǎn)生文字移動的動畫效果。 要求： 程序運行時，標(biāo)簽應(yīng)從窗體上側(cè)外部進(jìn)入，當(dāng)移出窗體下側(cè)時，再從窗體上側(cè)外進(jìn)入。 說明：標(biāo)簽控件和時鐘控件的屬性值默認(rèn)。圖1 設(shè)計時界面圖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】從窗體上側(cè)進(jìn)入移動到下側(cè)例：在窗體上有一個標(biāo)簽控件Label1、時鐘控件Timer1，在程序運行的時候，可通過每隔30ms讓Label1標(biāo)簽從上向下移100緹，從而產(chǎn)生文字移動的動畫效果。 要求： 程序運行時，標(biāo)簽應(yīng)從窗體上邊界進(jìn)入。當(dāng)移出窗體下邊界時再從窗體上邊界進(jìn)入移動。 說明：標(biāo)簽控件和時鐘控件的屬性值默認(rèn)。 Private Sub Form_Load() Label1.Top = -Form1.Height 窗體一經(jīng)裝載，標(biāo)簽便定位在窗體的上邊界外Timer1.Interval = 30 Timer1每隔30ms觸發(fā)一次Timer事件，讓Label1標(biāo)簽從上向下移100緹End SubPrivate Sub Timer1_Timer()If Label1.Top + Label1.Height Form1.Height Then Label1.Top = Label1.Top + 100Timer1每隔30ms讓Label1標(biāo)簽從上向下移100緹Else Label1.Top = -Form1.HeightEnd If6.新建FORM1窗體，在其中添加一個標(biāo)簽控件和時鐘控件，調(diào)整標(biāo)簽的大小并設(shè)置caption屬性，在標(biāo)簽中輸出文字“左右動態(tài)字母示例”；設(shè)置時鐘控件的Enabled屬性為.T.，Interval屬性為100。編寫時鐘事件的代碼，使程序運行時標(biāo)簽?zāi)茉诖绑w上左右往返不斷移動（標(biāo)簽向左移動碰到窗體左邊沿時，移動方向變?yōu)橄蛴遥幌蛴乙苿优龅酱绑w右邊沿時，移動方向變?yōu)橄蜃蟆＜僭O(shè)每次時鐘事件移動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窗體，在其中添加一個標(biāo)簽控件和時鐘控件，調(diào)整標(biāo)簽的大小并設(shè)置caption屬性，在標(biāo)簽中輸出文字“上下碰動態(tài)字母示例”；設(shè)置時鐘控件的Enabled屬性為.T.，Interval屬性為100。編寫時鐘事件的代碼，使程序運行時標(biāo)簽?zāi)茉诖绑w上上下往返不斷移動（標(biāo)簽向上移動碰到窗體上邊沿時，移動方向變?yōu)橄蛳?；向下移動碰到窗體下邊沿時，移動方向變?yōu)橄蛏稀＜僭O(shè)每次時鐘事件移動100緹（單位）。界面如下圖所示：程序代碼如下：dim z as integer