1、實訓一 熟悉Visual Basic6.0編程環境實訓目的： 掌握Visual Basic的啟動與退出方法。 掌握建立、編輯和運行一個簡單的Visual Basic應用程序的步驟和過程。實訓內容：【實訓1.1】 創建一個新工程。建立的用戶界面如圖1-1-1所示。程序運行時，單擊窗體可以改變標簽中的文字顏色。然后以mypro_1.frm和mypro_1.vbp文件名將編寫的程序保存在磁盤上。圖1-1-1 實訓1.1的應用程序界面實訓步驟： 啟動Visual Basic 6.0。啟動Visual Basic 6.0的方法有多種，通常可以雙擊桌面上的快捷圖標進行啟動。 啟動Visual Basic

2、6.0后，在系統彈出的“新建工程”對話框中，詢問要創建的工程類別，系統默認的類別是創建一個“標準EXE”應用程序。在此，直接單擊“打開”按鈕，進入編寫程序的狀態。 現在就可以改變系統提供的窗體Form1的屬性。注意，此時窗體Form1的四周有8個小方框，表示窗體對象處于被選中狀態。8個小方框中有3個是實心藍色的，將光標移動到這些實心小方框上，按住鼠標移動，就可以改變窗體的大小。改變窗體的大小其實就是改變窗體的Height和Width屬性。因此，也可以直接在屬性窗口中對這兩個屬性進行修改，例如可以把窗體的Height值設為3000，Width值設為5000，還可以把窗體的Caption 屬性值設

3、為“練習1”。 向窗體Form1中增加一個標簽控件（Label1），并用鼠標將其選中（選中時，周邊有8個藍色小方塊）。在屬性窗口中將Label1的BorderStyle屬性值設為1，BackColor屬性設為白色，Caption屬性設為“我的Visual Basic程序”。在屬性窗口中找到Font屬性，單擊其右側的按鈕，在彈出的“字體”對話框中可以對標簽的字體、字號進行設置。在此，可以選擇“宋體”、三號字，再單擊“確定”按鈕，關閉“字體”對話框。 為了在程序運行過程中讓文字改變顏色，可以對窗體編寫一段單擊事件過程，具體方法是：雙擊窗體，打開代碼編輯窗口（見圖1-1-2），在過程框中選擇單擊事件

4、Click，代碼窗口中出現相應的Form_Click( )過程框架：Private Sub Form_Click()End Sub在上述兩行代碼之間添加如下代碼： Label1.ForeColor = QBColor(Int(Rnd * 16)這條語句的作用是，標簽上的文本顏色屬性由一個隨機數來確定，這樣每次單擊窗體時，文字的顏色就會不同。語句中使用了幾個內部函數，有關的介紹可參考其他教材。圖1-1-2 代碼編輯窗口 單擊工具欄中的啟動按鈕或按F5鍵運行程序。如果程序編寫正確，屏幕上就會出現相對于圖1-1-1所示的窗體運行界面，單擊窗體，標簽上的文字就會改變顏色。如果程序編寫有錯誤，系統會給出

5、錯誤信息，可以按照提示修改程序，然后再運行。若要結束程序的運行，可以單擊工具欄上的終止運行按鈕。 程序能正確運行后，應及時保存。注意，一個Visual Basic工程至少包含兩個磁盤文件，應分別進行保存。選擇“文件”下拉菜單中的“保存工程”命令，系統彈出如圖1-1-3所示的“文件另存為”對話框，用于保存窗體文件。此時，可以選擇文件的存放位置和文件名。建議不使用系統提供的默認文件名，而是輸入自己指定的文件名。這里，在“文件名(N)”文本框中輸入mypro_1，然后單擊“保存”按鈕。保存窗體文件后，系統又彈出“工程另存為”對話框，用于保存工程文件。同樣，在“文件名(N)”文本框中輸入mypro_1

6、，然后單擊“保存”按鈕。這樣就完成了保存該工程文件的任務。以后要在Visual Basic環境中打開該工程時，直接打開工程文件mypro_1.vbp即可。 前面保存的工程文件只能在Visual Basic編程環境中運行。如果想脫離編程環境直接運行該程序，就需要將其生成可執行文件。選擇“文件”菜單中的“生成mypro_1.exe”命令，系統彈出“生成工程”對話框，確認要生成的應用程序文件名為mypro_1.exe以及該文件的存放位置后，單擊“確定“按鈕，系統就會按照指定的文件名和路徑生成可獨立運行的EXE文件。圖1-1-3 “文件另存為”對話框 退出Visual Basic系統。退出的方法有多種

7、，可以在“文件”菜單中選擇“退出”命令進行退出。一般情況下，系統在退出前會提示是否保存工程文件，此時根據需要進行選擇即可。注意事項： L的小寫字母“l”和數字“1”的形狀幾乎相同，在輸入程序代碼時要注意，千萬不能混淆。實訓步驟中輸入的代碼“Label1.ForeColor = QBColor(Int(Rnd * 16)”中的Label1，第5個字符是英文字母“L”的小寫，第6個字符是數字“1”。 雙擊窗體打開代碼編輯窗口時，系統提供的是窗體裝載過程框架： Private Sub Form_Load()End Sub 注意：不要把代碼直接加入該框架，而是選擇單擊事件過程框架。【實訓1.2】 編程

8、實現：程序開始運行時，窗體上的文本框顯示：“歡迎使用我的VB程序”；當用戶單擊（Click）窗體Form1時，文本框顯示“你單擊了窗體”；用戶雙擊（DblClick）窗體Form1時，文本框顯示“你雙擊了窗體”，如圖1-1-4所示。提示：本實訓的目的是理解窗體的裝載（Form_Load）、單擊（Click）和雙擊（DlbClick）事件。實訓步驟： 建立一個新工程，在窗體上添加一個文本框控件Text1，并將其Height屬性設為700，Width屬性設為3300，然后通過Font屬性把字體設為宋體、三號字。 編寫窗體的Form_Load事件過程代碼：Private Sub Form_Load(

9、) Text1.Text = "歡迎使用我的VB程序"End Sub 編寫窗體的Click事件過程代碼：Private Sub Form_Click() Text1.Text = "你單擊了窗體"End Sub 編寫窗體的DblClick事件過程代碼：Private Sub Form_DblClick() Text1.Text = "你雙擊了窗體"End Sub 調試、運行程序。 圖1-1-4 實訓1.2的程序運行界面【實訓1.3】 建立一個新工程，練習標簽、文本框和命令按鈕的使用。實訓步驟： 在窗體上添加一個標簽（Label1）、一

10、個文本框（Text1）和兩個命令按鈕（Command1、Command2）。將文本框的Font屬性設置為“隸書、四號”，Text屬性設置為“歡迎您學習VB”；將兩個命令按鈕的Caption屬性分別設為“前景色”和“背景色”，如圖1-1-5所示。 圖1-1-5 實訓1.3的窗體設計界面 圖1-1-6 實訓1.3的窗體運行界面 雙擊命令按鈕Command1，進入代碼編輯窗口。編寫命令按鈕Command1的Click事件（前景色）過程代碼：Private Sub Command1_Click() Label1.Caption = "文本框的前景色為紅色" Text1.ForeColor = vbRedEnd Su