在該段程序中,首先使用If語(yǔ)句判斷用戶是否輸入了姓名,如果沒(méi)有,則彈出消息框提示用戶。用戶確定后,接著執(zhí)行下面的代碼--Exit Sub語(yǔ)句,退出事件過(guò)程,返回到對(duì)話框,用戶可以重新輸入姓名。如果沒(méi)有該語(yǔ)句,則會(huì)接著執(zhí)行該If語(yǔ)句塊之外的其他語(yǔ)句,一直會(huì)執(zhí)行到Unload Dialog語(yǔ)句關(guān)閉對(duì)話框。
在判斷用戶愛(ài)好的程序段中,也使用了If語(yǔ)句,如果用戶選中了某愛(ài)好(復(fù)選框的Va1ue屬性為1),則在主窗口的相應(yīng)標(biāo)簽中顯示該愛(ài)好;如果沒(méi)有選中某愛(ài)好(復(fù)選框的Value屬性為0),則在主窗口的相應(yīng)標(biāo)簽中顯示“//”符號(hào)。
在程序的最后,使用Unload Dialog(對(duì)話框窗體的名稱為Dialog)語(yǔ)句關(guān)閉對(duì)話框,返回到主窗體。如果直接單擊對(duì)話框中的【取消】按鈕,也應(yīng)該關(guān)閉對(duì)話框,而不影響到主窗體。因此,將Unload Dialog語(yǔ)句也添加到Cancelbutton_Click事件過(guò)程中:
Private Sub Cancebutton_Click()
Unload Dialog
End Sub
通過(guò)工程的【屬性】對(duì)話框?qū)?dòng)對(duì)象設(shè)置為MainForm,運(yùn)行該程序,則主窗體顯示在屏幕上,單擊【填寫資料】按鈕,則彈出自定義對(duì)話框。
填寫完整各選項(xiàng)后,單擊【確定】按鈕,則對(duì)話框被關(guān)閉,用戶輸入的個(gè)人資料顯示在土窗體中。如果用戶輸入的姓名為“郝云”,性別為“男”,年齡為“23”,愛(ài)好為“書法”、“攝影”和“旅游”,單擊【確定】按鈕后,顯示個(gè)人資料的主窗體。
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |