2011年度計算機(jī)等級考試二級VB復(fù)習(xí)指導(dǎo)(55)

　　在該段程序中，首先使用If語句判斷用戶是否輸入了姓名，如果沒有，則彈出消息框提示用戶。用戶確定后，接著執(zhí)行下面的代碼--Exit Sub語句，退出事件過程，返回到對話框，用戶可以重新輸入姓名。如果沒有該語句，則會接著執(zhí)行該If語句塊之外的其他語句，一直會執(zhí)行到Unload Dialog語句關(guān)閉對話框。

　　在判斷用戶愛好的程序段中，也使用了If語句，如果用戶選中了某愛好(復(fù)選框的Va1ue屬性為1)，則在主窗口的相應(yīng)標(biāo)簽中顯示該愛好;如果沒有選中某愛好(復(fù)選框的Value屬性為0)，則在主窗口的相應(yīng)標(biāo)簽中顯示“//”符號。

　　在程序的最后，使用Unload Dialog(對話框窗體的名稱為Dialog)語句關(guān)閉對話框，返回到主窗體。如果直接單擊對話框中的【取消】按鈕，也應(yīng)該關(guān)閉對話框，而不影響到主窗體。因此，將Unload Dialog語句也添加到Cancelbutton_Click事件過程中：

　　Private Sub Cancebutton_Click()

　　　Unload Dialog

　　End Sub

　　通過工程的【屬性】對話框?qū)�啟動對象設(shè)置為MainForm，運(yùn)行該程序，則主窗體顯示在屏幕上，單擊【填寫資料】按鈕，則彈出自定義對話框。

　　填寫完整各選項后，單擊【確定】按鈕，則對話框被關(guān)閉，用戶輸入的個人資料顯示在土窗體中。如果用戶輸入的姓名為“郝云”，性別為“男”，年齡為“23”，愛好為“書法”、“攝影”和“旅游”，單擊【確定】按鈕后，顯示個人資料的主窗體。