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

*第9章作業(yè)【流動(dòng)字幕編程作業(yè)】9.vbp-form22】1.【9-5Ly-zdtzm.vbp】從右向左移例：在窗體上有一個(gè)標(biāo)簽控件Label1、時(shí)鐘控件Timer1，在程序運(yùn)行的時(shí)候，可通過(guò)每隔30ms讓Label1標(biāo)簽從右向左移100緹，從而產(chǎn)生文字移動(dòng)的動(dòng)畫(huà)效果。 要求： 程序運(yùn)行時(shí)，標(biāo)簽應(yīng)從窗體右側(cè)進(jìn)入，當(dāng)移出窗體左側(cè)時(shí)，再?gòu)拇绑w右側(cè)界進(jìn)入。 說(shuō)明：標(biāo)簽控件和時(shí)鐘控件的屬性值默認(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】從左向右移例：在窗體上有一個(gè)標(biāo)簽控件Label1、時(shí)鐘控件Timer1，在程序運(yùn)行的時(shí)候，可通過(guò)每隔30ms讓Label1標(biāo)簽從左向右移100緹，從而產(chǎn)生文字移動(dòng)的動(dòng)畫(huà)效果。 要求： 程序運(yùn)行時(shí)，標(biāo)簽應(yīng)從窗體左側(cè)進(jìn)入，當(dāng)移出窗體右側(cè)時(shí)，再?gòu)拇绑w左側(cè)界進(jìn)入。 說(shuō)明：標(biāo)簽控件和時(shí)鐘控件的屬性值默認(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】從上向下移例：在窗體上有一個(gè)標(biāo)簽控件Label1、時(shí)鐘控件Timer1，在程序運(yùn)行的時(shí)候，可通過(guò)每隔30ms讓Label1標(biāo)簽從上向下移100緹，從而產(chǎn)生文字移動(dòng)的動(dòng)畫(huà)效果。 要求： 程序運(yùn)行時(shí)，標(biāo)簽應(yīng)從窗體上側(cè)外部進(jìn)入，當(dāng)移出窗體下側(cè)時(shí)，再?gòu)拇绑w上側(cè)外進(jìn)入。 說(shuō)明：標(biāo)簽控件和時(shí)鐘控件的屬性值默認(rèn)。圖1 設(shè)計(jì)時(shí)界面圖1 圖21運(yùn)行時(shí)界面從上向下移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)入移動(dòng)到下側(cè)例：在窗體上有一個(gè)標(biāo)簽控件Label1、時(shí)鐘控件Timer1，在程序運(yùn)行的時(shí)候，可通過(guò)每隔30ms讓Label1標(biāo)簽從上向下移100緹，從而產(chǎn)生文字移動(dòng)的動(dòng)畫(huà)效果。 要求： 程序運(yùn)行時(shí)，標(biāo)簽應(yīng)從窗體上邊界進(jìn)入。當(dāng)移出窗體下邊界時(shí)再?gòu)拇绑w上邊界進(jìn)入移動(dòng)。 說(shuō)明：標(biāo)簽控件和時(shí)鐘控件的屬性值默認(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窗體，在其中添加一個(gè)標(biāo)簽控件和時(shí)鐘控件，調(diào)整標(biāo)簽的大小并設(shè)置caption屬性，在標(biāo)簽中輸出文字“左右動(dòng)態(tài)字母示例”；設(shè)置時(shí)鐘控件的Enabled屬性為.T.，Interval屬性為100。編寫(xiě)時(shí)鐘事件的代碼，使程序運(yùn)行時(shí)標(biāo)簽?zāi)茉诖绑w上左右往返不斷移動(dòng)（標(biāo)簽向左移動(dòng)碰到窗體左邊沿時(shí)，移動(dòng)方向變?yōu)橄蛴?；向右移?dòng)碰到窗體右邊沿時(shí)，移動(dòng)方向變?yōu)橄蜃?。假設(shè)每次時(shí)鐘事件移動(dòng)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窗體，在其中添加一個(gè)標(biāo)簽控件和時(shí)鐘控件，調(diào)整標(biāo)簽的大小并設(shè)置caption屬性，在標(biāo)簽中輸出文字“上下碰動(dòng)態(tài)字母示例”；設(shè)置時(shí)鐘控件的Enabled屬性為.T.，Interval屬性為100。編寫(xiě)時(shí)鐘事件的代碼，使程序運(yùn)行時(shí)標(biāo)簽?zāi)茉诖绑w上上下往返不斷移動(dòng)（標(biāo)簽向上移動(dòng)碰到窗體上邊沿時(shí)，移動(dòng)方向變?yōu)橄蛳?；向下移?dòng)碰到窗體下邊沿時(shí)，移動(dòng)方向變?yōu)橄蛏?。假設(shè)每次時(shí)鐘事件移動(dòng)100緹（單位）。界面如下圖所示：程序代碼如下：dim z as integer