6.1.2 消息框

　　MsgBox函數(shù)用來(lái)產(chǎn)生一個(gè)消息框。消息框用來(lái)顯示簡(jiǎn)短的消息，并要求用戶(hù)作出一定的響應(yīng)。例如，報(bào)告操作錯(cuò)誤或向用戶(hù)提示信息。看完這些消息以后，可選取一個(gè)按鈕來(lái)關(guān)閉該對(duì)話(huà)框。

　　創(chuàng)建該消息框的代碼如下：

　　Msg=MsgBox(您沒(méi)有在文本框中輸入任何內(nèi)容“48”提示)。

　　這里我們通過(guò)編寫(xiě)一個(gè)程序，來(lái)講解如何在程序中使用MsgBox函數(shù)創(chuàng)建消息框。

　　實(shí)例6.2使用消息框

　　這個(gè)程序包含一個(gè)文本框和一個(gè)按鈕，在文本框中輸入內(nèi)容后單擊按鈕，則所輸入的內(nèi)容就顯示在窗體中;如果在文本框中沒(méi)有輸入任何內(nèi)容，則單擊按鈕后會(huì)彈出一個(gè)提示框，告訴用戶(hù)沒(méi)有在文本框中輸入任何內(nèi)容，如圖6.4所示。下面是編制這個(gè)小程序的具體過(guò)程。

　　首先，在窗體中放置一個(gè)文本框控件，設(shè)置它的Text屬性的值為空，再放置一個(gè)按鈕控件，設(shè)置它的Caption屬性的值為“確定”.文本框與按鈕的名稱(chēng)均使用系統(tǒng)默認(rèn)的名稱(chēng)。雙擊按鈕控件，打開(kāi)代碼窗口，為按鈕的Click事件編寫(xiě)如下代碼：

　　Private Sub Commandl_Click()

　　If Text1.Text=“Then

　　Msg = MsgBox(“您沒(méi)有在文本框中輸入任何內(nèi)容”，48，“提示”)

　　Else

　　Print Textl.Text

　　End If

　　End Sub

　　在上面的程序段中，使用了一個(gè)分支結(jié)構(gòu)來(lái)判斷文本框中是否輸入了內(nèi)容。運(yùn)行該程序，直接單擊【確定】按鈕，則彈出如圖5.4所示的消息樞。再次運(yùn)行程序，在文本框中輸入內(nèi)容后，單擊【確定】按鈕，則不會(huì)出現(xiàn)消息框，且在窗體中顯示用戶(hù)輸入的內(nèi)容。

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢(xún)時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

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

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總