VB程序設(shè)計教案(01)

1、My E-mail: 1Basic語言顯示的是字符界面舉例“VB”是“可視化Basic” 。例：編制自己的控件例：編制自己的控件- -燈泡型按鈕燈泡型按鈕Win32API函數(shù)PlaySound： PlaySound動態(tài)鏈接庫，提供對系統(tǒng)多媒體功能的訪問真正的API函數(shù)名，ANSI版本。單獨安裝包括4張光盤,其中2張MSDN(微軟的開發(fā)商網(wǎng)絡(luò))。SDI窗體：單文檔界面MDI窗體：多文檔界面標(biāo)題欄：反映工作狀態(tài)分“設(shè)計階段”、“運(yùn)行階段”或“中斷階段”菜單欄熱鍵熱鍵快捷鍵快捷鍵區(qū)別：快區(qū)別：快捷鍵可直捷鍵可直接使用接使用(不不激活菜單激活菜單)VCR應(yīng)用程序設(shè)計建立在盒式錄像機(jī)和電視機(jī)組成的對象基

2、礎(chǔ)上。它包含2個窗體模塊、1個標(biāo)準(zhǔn)模塊和2個類模塊。通過“對象瀏覽器”可檢查VCR工程的結(jié)構(gòu)。燈泡型按鈕燈泡型按鈕- -工程資源工程資源管理器窗口管理器窗口VCRVCR應(yīng)用程序應(yīng)用程序- -工程資工程資源管理器窗口源管理器窗口工程文件和工程組文件每一個工程對應(yīng)一個工程文件。當(dāng)一個程序包括兩個以上的工程時構(gòu)成一個工程組。建立新的工程：文件新建工程窗體文件每個窗體對應(yīng)一個窗體文件。它存放窗體及其控件的屬性和其他信息(包括代碼)。添加新的窗體：工程添加窗體VCR應(yīng)用程序窗體模塊介紹主窗體frmVCR是VCR與電視錄像機(jī)組合的可視圖像。它包括如下對象:一組命令按鈕(cmdPlay,cmdRecord等

3、)模仿VCR的按鈕,兩個時鐘(trm1,trm2)1個控制錄像時間,1個控制顯示時間,頻道指示器(lblChannel),功能指示器(shpPlay,shpRecord等),顯象管(picTV)及所有這些對象的事件過程。輔助窗體frmSetTime用于設(shè)置定時錄像時間和錄像頻道。標(biāo)準(zhǔn)模塊文件標(biāo)準(zhǔn)模塊(.BAS)主要用來聲明全局變量和定義通用過程,可被其他模塊調(diào)用。l保存文件。保存文件。如果只有一個窗體，保存到如果只有一個窗體，保存到frm文件就可以了。如果多個窗體，除了文件就可以了。如果多個窗體，除了保存多個窗體文件外，還要保存保存多個窗體文件外，還要保存.vbp文件。文件。 l打開文件。打開

4、文件。如果只有一個窗體直接打開一如果只有一個窗體直接打開一個個frm文件就可以了，如果有多個窗體，文件就可以了，如果有多個窗體，直接打開一個直接打開一個.vbp文件就可以了。文件就可以了。在很多情況中都存在著多個對象共享的重復(fù)過程。例如,按下“放像”,“倒帶”,“錄像”按鈕時都要求“暫?！焙汀巴Ｖ埂卑粹o有效。最好創(chuàng)建一個共享的子過程,所有按鈕都可調(diào)用它,而不是在每個按鈕的Click事件過程中重復(fù)這些代碼。此外修改也方便。標(biāo)準(zhǔn)模塊建立步驟： VCR.bas添加標(biāo)準(zhǔn)模塊：工程添加模塊輸入共享代碼 類的建立步驟：建立類添加類模塊：工程添加類模塊在類模塊窗口輸入代碼，定義類的屬性和方法。使用類為了使用

5、一個類,必須先建立的一個對象,通過對象來引用類中的屬性和方法.類的對象用關(guān)鍵字New建立。格式如下：Dim 變量名 As New 類名 clsRecordr模塊包含啟動“錄像”進(jìn)程的代碼。 clsTape 模塊包含控制“磁帶”方向和速度的代碼。w工程資源管理器頂部的3個按鈕“查看代碼”、“查看對象”和“切換文件夾”。w應(yīng)用程序設(shè)計：先設(shè)計窗體再編寫程序(可雙擊窗體的任何部位切換到代碼窗口)對象框?qū)ο罂驅(qū)傩燥@示方式屬性顯示方式屬性列表屬性列表屬性解釋屬性解釋My E-mail: 34Option ExplicitPublic Recorder As New clsRecorder 初始化reco

6、rder類Sub ButtonManager(Button As Control) Dim vntControl As Variant 控件的值 以下代碼確定按下了哪個功能按鈕并更新所有的按鈕和Recorder類 Select Case Button 按鈕管理器 Case frmVCR.cmdPlay, frmVCR.cmdForward, frmVCR.cmdRewind frmVCR.cmdPause.Enabled = True frmVCR.cmdStop.Enabled = True frmVCR.cmdRec.Enabled = False frmVCR.cmdDown.Enabl

7、ed = False frmVCR.cmdUp.Enabled = False Recorder.Enabled = False使用對象屬性 Case frmVCR.cmdRec frmVCR.cmdPause.Enabled = True frmVCR.cmdStop.Enabled = True frmVCR.cmdPlay.Enabled = False frmVCR.cmdForward.Enabled = False frmVCR.cmdRewind.Enabled = False frmVCR.cmdDown.Enabled = False frmVCR.cmdUp.Enabled

8、 = False Recorder.Enabled = False Option ExplicitPublic Channel As Integer 錄像的頻道Public StartRecording As Variant 開始時間Public StopRecording As Variant 結(jié)束時間Public Enabled As Boolean 錄像模式Private Sub Class_Initialize() 初始化類屬性 Enabled = True Channel = 3 StartRecording = Empty StopRecording = EmptyEnd Sub在recorder.cls文件中初始化類的屬性在標(biāo)準(zhǔn)模塊vcr.bas文件中定義類的1個對象。Option ExplicitPublic Left As Integer 最后的位置Public Forward As Boolean 磁帶方向Public Speed As Integer 磁帶速度Public Sub Animate(Width As Integer) If Forward = True Then 向前走-增加當(dāng)前的left值,直到到達(dá)右邊界 If Left 0 Then Left = Left - 50 Else Left = Width - 50 End