6.1.2 消息框
MsgBox函數(shù)用來產(chǎn)生一個(gè)消息框。消息框用來顯示簡短的消息,并要求用戶作出一定的響應(yīng)。例如,報(bào)告操作錯(cuò)誤或向用戶提示信息?赐赀@些消息以后,可選取一個(gè)按鈕來關(guān)閉該對(duì)話框。
創(chuàng)建該消息框的代碼如下:
Msg=MsgBox(您沒有在文本框中輸入任何內(nèi)容“48”提示)。
這里我們通過編寫一個(gè)程序,來講解如何在程序中使用MsgBox函數(shù)創(chuàng)建消息框。
實(shí)例6.2使用消息框
這個(gè)程序包含一個(gè)文本框和一個(gè)按鈕,在文本框中輸入內(nèi)容后單擊按鈕,則所輸入的內(nèi)容就顯示在窗體中;如果在文本框中沒有輸入任何內(nèi)容,則單擊按鈕后會(huì)彈出一個(gè)提示框,告訴用戶沒有在文本框中輸入任何內(nèi)容,如圖6.4所示。下面是編制這個(gè)小程序的具體過程。
首先,在窗體中放置一個(gè)文本框控件,設(shè)置它的Text屬性的值為空,再放置一個(gè)按鈕控件,設(shè)置它的Caption屬性的值為“確定”.文本框與按鈕的名稱均使用系統(tǒng)默認(rèn)的名稱。雙擊按鈕控件,打開代碼窗口,為按鈕的Click事件編寫如下代碼:
Private Sub Commandl_Click()
If Text1.Text=“Then
Msg = MsgBox(“您沒有在文本框中輸入任何內(nèi)容”,48,“提示”)
Else
Print Textl.Text
End If
End Sub
在上面的程序段中,使用了一個(gè)分支結(jié)構(gòu)來判斷文本框中是否輸入了內(nèi)容。運(yùn)行該程序,直接單擊【確定】按鈕,則彈出如圖5.4所示的消息樞。再次運(yùn)行程序,在文本框中輸入內(nèi)容后,單擊【確定】按鈕,則不會(huì)出現(xiàn)消息框,且在窗體中顯示用戶輸入的內(nèi)容。
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |