



免費預(yù)覽已結(jié)束,剩余1頁可下載查看
下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)
文檔簡介
*第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è)進入,當(dāng)移出窗體左側(cè)時,再從窗體右側(cè)界進入。 說明:標(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è)進入,當(dāng)移出窗體右側(cè)時,再從窗體左側(cè)界進入。 說明:標(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è)外部進入,當(dāng)移出窗體下側(cè)時,再從窗體上側(cè)外進入。 說明:標(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è)進入移動到下側(cè)例:在窗體上有一個標(biāo)簽控件Label1、時鐘控件Timer1,在程序運行的時候,可通過每隔30ms讓Label1標(biāo)簽從上向下移100緹,從而產(chǎn)生文字移動的動畫效果。 要求: 程序運行時,標(biāo)簽應(yīng)從窗體上邊界進入。當(dāng)移出窗體下邊界時再從窗體上邊界進入移動。 說明:標(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)橄蛴?;向右移動碰到窗體右邊沿時,移動方向變?yōu)橄蜃?。假設(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)橄蛳拢幌蛳乱苿优龅酱绑w下邊沿時,移動方向變?yōu)橄蛏稀<僭O(shè)每次時鐘事件移動100緹(單位)。界面如下圖所示:程序代碼如下:dim z as integer
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 高效證明教育記錄可追溯性與合規(guī)性研究
- 多模態(tài)生物技術(shù)與行業(yè)深度融合展望
- 廣告制作過程中的團隊協(xié)作與項目管理技巧的分享
- 2025至2030中國脂肪酸乙氧基化物行業(yè)市場占有率及投資前景評估規(guī)劃報告
- 新時代藥物制劑技術(shù)的發(fā)展與應(yīng)用研究
- 2025至2030中國育亨賓行業(yè)產(chǎn)業(yè)運行態(tài)勢及投資規(guī)劃深度研究報告
- 2025至2030中國美藤果油行業(yè)產(chǎn)業(yè)運行態(tài)勢及投資規(guī)劃深度研究報告
- 2025至2030中國細胞培養(yǎng)基行業(yè)產(chǎn)業(yè)運行態(tài)勢及投資規(guī)劃深度研究報告
- 2025至2030中國線路板行業(yè)市場深度調(diào)研及發(fā)展前景與投資報告
- 人工智能在能源管理中的應(yīng)用
- 2023中國專利獎申報實務(wù)
- 常見骨關(guān)節(jié)疾病的評定技術(shù)-肩關(guān)節(jié)周圍炎的評定技術(shù)(康復(fù)評定技術(shù)課件)
- 益海嘉里(盤錦)糧油工業(yè)有限公司稻殼鍋爐可研報告
- JGJ106-2014 建筑基樁檢測技術(shù)規(guī)范
- 2023年中國石化河北石家莊石油分公司社會招聘20人筆試模擬試題及答案解析
- 太陽能熱水系統(tǒng)設(shè)計
- 醫(yī)務(wù)科崗前培訓(xùn)
- 共青團團課主題班會課件PPT模板PPT
- GB/T 8685-2008紡織品維護標(biāo)簽規(guī)范符號法
- 合成氨行業(yè)發(fā)展現(xiàn)狀及趨勢分析
- 2022年徐聞縣(中小學(xué)、幼兒園)教師招聘筆試試題及答案解析
評論
0/150
提交評論