Basic60編程環(huán)境

1、實(shí)訓(xùn)一熟悉Visual Basic6.0編程環(huán)境實(shí)訓(xùn)目的: 掌握Visual Basic的啟動與退出方法。 掌握建立、編輯和運(yùn)行一個(gè)簡單的Visual Basic應(yīng)用程序的步驟和過程。實(shí)訓(xùn)內(nèi)容:【實(shí)訓(xùn)1.1】 創(chuàng)建一個(gè)新工程。建立的用戶界面如圖 1-1-1所示。程序運(yùn)行時(shí)，單擊窗 體可以改變標(biāo)簽中的文字顏色。 然后以mypro_1.frm和mypro_1.vbp文件名將編寫的程序保 存在磁盤上。-inixi:我的Visual Basic程序二圖1-1-1實(shí)訓(xùn)1.1的應(yīng)用程序界面實(shí)訓(xùn)步驟: 啟動Visual Basic 6.0。啟動Visual Basic 6.0的方法有多種，通?？梢噪p擊桌面上

2、的 快捷圖標(biāo)進(jìn)行啟動。EXE ”應(yīng)用程序。在此，直接單擊“打開”按鈕,Form1的屬性。注意，此時(shí)窗體Form1的四周有88個(gè)小方框中有3個(gè)是實(shí)心藍(lán)色的，將光標(biāo)移動 改變窗體的大小其實(shí)就是改 啟動Visual Basic 6.0后，在系統(tǒng)彈出的“新建工程”對話框中，詢問要創(chuàng)建的工程 類別，系統(tǒng)默認(rèn)的類別是創(chuàng)建一個(gè)“標(biāo)準(zhǔn) 進(jìn)入編寫程序的狀態(tài)。 現(xiàn)在就可以改變系統(tǒng)提供的窗體 個(gè)小方框，表示窗體對象處于被選中狀態(tài)。到這些實(shí)心小方框上，按住鼠標(biāo)移動，就可以改變窗體的大小。 變窗體的Height和Width屬性。因此，也可以直接在屬性窗口中對這兩個(gè)屬性進(jìn)行修改，例如可以把窗體的Height值設(shè)為3000

3、，Width值設(shè)為5000,還可以把窗體的 Caption屬性值設(shè)為“練習(xí)1 ”。 向窗體Form1中增加一個(gè)標(biāo)簽控件（Label1），并用鼠標(biāo)將其選中（選中時(shí)，周邊有8個(gè)藍(lán)色小方塊）。在屬性窗口中將 Label1的BorderStyle屬性值設(shè)為1，BackColor屬性設(shè) 為白色，Caption屬性設(shè)為“我的 Visual Basic程序”。在屬性窗口中找到 Font屬性，單擊其 右側(cè)的二I按鈕，在彈出的“字體”對話框中可以對標(biāo)簽的字體、字號進(jìn)行設(shè)置。在此，可 以選擇“宋體”、三號字，再單擊“確定”按鈕，關(guān)閉“字體”對話框。 為了在程序運(yùn)行過程中讓文字改變顏色，可以對窗體編寫一段單擊事件過

4、程，具體 方法是：雙擊窗體，打開代碼編輯窗口（見圖 1-1-2），在過程框中選擇單擊事件Click，代碼窗口中出現(xiàn)相應(yīng)的 Form_Click（）過程框架：Private Sub Form_Click（）End Sub在上述兩行代碼之間添加如下代碼:Label1.ForeColor = QBColor(l nt(R nd * 16)這條語句的作用是，標(biāo)簽上的文本顏色屬性由一個(gè)隨機(jī)數(shù)來確定，這樣每次單擊窗體時(shí),文字的顏色就會不同。語句中使用了幾個(gè)內(nèi)部函數(shù)，有關(guān)的介紹可參考其他教材。n 工程 1Ful (Code)ClickrTIckDz*4 禎rDF(rftUoiUa Initi blix Ki

5、yDq啊 KfryFrES EtyUp LixJdZLnsd-LinkfirrorPrivate Sub FaTn_Clics()LabclL. FotrcCoIor = QBCola(r(Int Cj?nd * IE) End Sub圖1-1-2代碼編輯窗口 單擊工具欄中的啟動按鈕或按F5鍵運(yùn)行程序。如果程序編寫正確，屏幕上就會 出現(xiàn)相對于圖1-1-1所示的窗體運(yùn)行界面，單擊窗體，標(biāo)簽上的文字就會改變顏色。如果程 序編寫有錯誤，系統(tǒng)會給出錯誤信息，可以按照提示修改程序，然后再運(yùn)行。若要結(jié)束程序 的運(yùn)行，可以單擊工具欄上的終止運(yùn)行按鈕 程序能正確運(yùn)行后，應(yīng)及時(shí)保存。注意，一個(gè)Visual Ba

6、sic工程至少包含兩個(gè)磁盤文件，應(yīng)分別進(jìn)行保存。選擇“文件”下拉菜單中的“保存工程”命令，系統(tǒng)彈出如圖1-1-3所示的“文件另存為”對話框，用于保存窗體文件。此時(shí)，可以選擇文件的存放位置和文件名。建議不使用系統(tǒng)提供的默認(rèn)文件名，而是輸入自己指定的文件名。這里，在“文件名(N) ”文本框中輸入my pro_1，然后單擊“保存”按鈕。保存窗體文件后，系統(tǒng)又彈出“工程另存 為”對話框，用于保存工程文件。同樣，在“文件名(N) ”文本框中輸入 mypro_1，然后單擊“保存”按鈕。這樣就完成了保存該工程文件的任務(wù)。以后要在Visual Basic環(huán)境中打開該工程時(shí)，直接打開工程文件mypro_1.vb

7、p即可。 前面保存的工程文件只能在Visual Basic編程環(huán)境中運(yùn)行。如果想脫離編程環(huán)境直接運(yùn)行該程序，就需要將其生成可執(zhí)行文件。選擇“文件”菜單中的“生成myp ro_1.exe ”命令，系統(tǒng)彈出“生成工程”對話框，確認(rèn)要生成的應(yīng)用程序文件名為mypro_1.exe以及該文件的存放位置后，單擊“確定“按鈕，系統(tǒng)就會按照指定的文件名和路徑生成可獨(dú)立運(yùn)行的EXE文件。玄件另存為保存在(X): I 口0 s. frm 耳 yil. frm d yd2. frm3 yds. frm已 TE5. frm文件名:保存類型(1):圖1-1-3“文件另存為”對話框 退出Visual Basic系統(tǒng)。退出

8、的方法有多種，可以在“文件”菜單中選擇“退出”命 令進(jìn)行退出。一般情況下，系統(tǒng)在退出前會提示是否保存工程文件，此時(shí)根據(jù)需要進(jìn)行選擇即可。注意事項(xiàng)：L的小寫字母“I”和數(shù)字“ 1”的形狀幾乎相同，在輸入程序代碼時(shí)要注意，千萬 不能混淆。實(shí)訓(xùn)步驟中輸入的代碼“Label1.ForeColor = QBColor(l nt(R nd * 16) ”中的Label1，第5個(gè)字符是英文字母“ L”的小寫，第6個(gè)字符是數(shù)字“ 1 ”。 雙擊窗體打開代碼編輯窗口時(shí)，系統(tǒng)提供的是窗體裝載過程框架:Private Sub Form_Load()End Sub注意：不要把代碼直接加入該框架，而是選擇單擊事件過程框

9、架?！皻g迎使用我的 VB；用戶雙擊(DblClick)和雙擊(DIbClick )事【實(shí)訓(xùn)1.2】 編程實(shí)現(xiàn)：程序開始運(yùn)行時(shí)，窗體上的文本框顯示： 程序”；當(dāng)用戶單擊(Click )窗體Form1時(shí)，文本框顯示“你單擊了窗體” 窗體Form1時(shí)，文本框顯示“你雙擊了窗體”，如圖1-1-4所示。提示:本實(shí)訓(xùn)的目的是理解窗體的裝載(Form_Load )、單擊(Click) 件。實(shí)訓(xùn)步驟: 建立一個(gè)新工程，在窗體上添加一個(gè)文本框控件Text1，并將其Height屬性設(shè)為700,Width屬性設(shè)為3300，然后通過Font屬性把字體設(shè)為宋體、三號字。 編寫窗體的Form_Load事件過程代碼：Pri

10、vate Sub Form_Load() Text1.Text =歡迎使用我的 VB程序”End Sub編寫窗體的Click事件過程代碼:Private Sub Form_Click()Text1.Text =你單擊了窗體”End Sub編寫窗體的DblClick事件過程代碼:Private Sub Form_DblClick()Text1.Text =你雙擊了窗體”End Sub 調(diào)試、運(yùn)行程序。冠 Fvral歡迎使用我的VB程序N ForalOBE你單擊了窗體你雙擊了窗體,Text屬性設(shè)置為“歡迎您學(xué)習(xí)Caption屬性分別設(shè)為“前景色”和“背景色”，如圖1-1-5所示。前員色I(xiàn)背昌色I(xiàn)文

11、本框的背昌色為藍(lán)色前員色I(xiàn)Wggj|圖1-1-5實(shí)訓(xùn)1.3的窗體設(shè)計(jì)界面圖1-1-6實(shí)訓(xùn)1.3的窗體運(yùn)行界面圖1-1-4實(shí)訓(xùn)1.2的程序運(yùn)行界面【實(shí)訓(xùn)1.3】建立一個(gè)新工程，練習(xí)標(biāo)簽、文本框和命令按鈕的使用。實(shí)訓(xùn)步驟: 在窗體上添加一個(gè)標(biāo)簽 （Label1）、一個(gè)文本框（Text1）和兩個(gè)命令按鈕（Command1、 Command2）。將文本框的 Font屬性設(shè)置為“隸書、四號” VB ”；將兩個(gè)命令按鈕的 雙擊命令按鈕 Command1,進(jìn)入代碼編輯窗口。編寫命令按鈕Command1的Click事件（前景色）過程代碼：Private Sub Comma nd1_Click（）Label1.Caption =文本框的前景色為紅色 ”Text