【正文】 + ch$ + ch$ + Label3(i).Caption flag = 1 title$ = Label3(i).Caption + ″輸入框 ″ Do While flag = 1 ′ temp$ = InputBox$(massage$, title$, , 100, 4500) If temp$ ″″ Then ′輸入不為 “ 空 ” flag = 0 info = MsgBox(″數(shù)據(jù)正確嗎？ ″, 36, ″數(shù)據(jù)核對框 ″) If info = 7 Then ′選擇 No info1 = MsgBox(″你想重新輸入這個數(shù)據(jù)嗎？ ″, 36) If info1 = 6 Then flag = 1 ′選擇 Yes End If Else Exit For ′輸入 “ 空串 ” 時結(jié)束 End If payroll(i) = temp$ Loop Label2(i).Caption = payroll(i) + ″元 ″ ′將正確數(shù)據(jù)顯示在 sum = sum + Val(payroll(i)) ′ Next i Label2(6).Caption = Str$(sum) + ″元 ″ End Sub 下面執(zhí)行第二個 For循環(huán)。用戶界面設(shè)計由 8個標(biāo)簽和 1個命令按鈕組成，要求在運行開始時出現(xiàn)一個輸入對話框，以便用戶從中輸入數(shù)據(jù)，如圖 。 【 例 】 設(shè)計一個程序，求一個職工的工資總和。 輸入對話框 圖 InputBox InputBox（提示 [，標(biāo)題 ][，默認值 ][， xpos][，ypos] 對照前面的例句，可很容易地理解 InputBox函數(shù)中各個參數(shù)的作用。靈活地利用輸入對話框，可以使用戶界面直觀、形象， 可以用 InputBox函數(shù)產(chǎn)生輸入對話框。 從前面幾章的敘述中已經(jīng)知道 ,用戶可以向文本框輸入信息。但 MsgBox語句與 MsgBox函數(shù)不同，MsgBox語句沒有返回值，常用于比較簡單的信息 消息框有一特點，它始終等待用戶的選擇，用戶必須單擊消息框中的一個按鈕（或按 Enter鍵），程序才能繼續(xù)執(zhí)行下去。 本程序用 MsgBox函數(shù)產(chǎn)生消息框，在 Visual Basic中還允許將 MsgBox函數(shù)寫成語句形式，例如： MsgBox″數(shù)據(jù)正確嗎 ″ 圖 這就是 MsgBox語句形式。無論用戶單擊哪一個按鈕，消息框都自動消失，用戶可根據(jù)函數(shù)的返回值決定后續(xù)操作。 圖 事件過程 cmdCheck_Click中，將 MsgBox函數(shù)的值賦給變量 answer， MsgBox函數(shù)的返回值視用戶單擊哪個按鈕而定，見表 （見書 156 當(dāng)用戶單擊 “ 確定 ” 按鈕時， MsgBox函數(shù)值為 1；若單擊 “ 取消 ” 按鈕，則 MsgBox函數(shù)值是 2； ……程序中處理如下： 若 answer=2（表示單擊 “ 取消 ”按鈕），則使程序結(jié)束，否則不結(jié)束。 如果在程序運行時用戶輸入的密碼不對，根據(jù)程序中的 If語句，執(zhí)行事件過程中第 2個 MsgBox函數(shù)，如下所示： answer = MsgBox (Info2$， 277， Title$) 在消息框中顯示 “ 你輸入的密碼不正確 ” ，消息框的標(biāo)題為 “ 密碼核對框 ” 。例如，65=1+64+0（即第一個表中的值為 1，第 2個表中的值為 64，第 3個表中的值為 0）。圖 ，可以看到，“ 確定 ” 按鈕四周有一虛線框，表示它是 “ 活動的 ” 。 表 “ 活動按鈕 ” 。當(dāng)值為 0時，消息框中只包含一個 “ 確定 ” 按鈕；當(dāng)值為 1時，消息框中有 “ 確定 ” 和 “ 取消 ” 兩個按鈕，如圖 表 。表 ~（見書 154頁）分別列出這 3個數(shù)值的含義。該參數(shù)是 3個數(shù)值相加之和?，F(xiàn)在， Title$值是 “ 密碼核對框 ” ，它出現(xiàn)在消息框的頂部?，F(xiàn)在，函數(shù)中的第 1個參數(shù) Info1$的值是 “ 你輸入了正確的密碼 ” ，可以看到這段文字出現(xiàn)在消息框的中間位置上。假如用戶輸入的密碼（即文本框 txtPW的Text屬性值）等于 “ MyProgram”(即 pw$)，則執(zhí)行： answer = MsgBox (Info1$， 65， Title$) 屏幕上顯示的消息框如圖 。 圖 程序代碼如下： Private Sub cmdClear_Click() = ″″ End Sub 程序開始運行，用戶若單擊 “ 輸入密碼 ” 命令按鈕，則先使文本框清空，并將光標(biāo)設(shè)于文本框左端。單擊 “ 結(jié)束 ” 按鈕，也能結(jié)束程序的運行。程序開始運行后，用戶在文本框中輸入一個密碼，用這個密碼與程序中事先給出的密碼進行比較，如果兩個密碼不相同，系統(tǒng)就會顯示一個消息框，提示用戶輸入的密碼不正確；如果兩個密碼相同，也顯示一個消息框，告訴用戶輸入的密碼正確。在上面的語句中，將函數(shù)的返回值賦給變量 intResult，可以根據(jù)返回值來判斷用戶選擇了消息框上的哪個按鈕。作為函數(shù)， MsgBox可以有返回值。 消息框 圖 從圖 ，消息框由標(biāo)題欄信息（如“ Message Box Example”）、消息框中的提示信息（如 “ 數(shù)據(jù)正確嗎？ ” ）、一個圖標(biāo)以及一個或多個命令按鈕構(gòu)成。 Visual Basic程序設(shè)計 (第二版下 ) 高等院校計算機應(yīng)用技術(shù)規(guī)劃教材 譚浩強 主編 第 8章 對話框 消息框 輸入對話框 自定義對話框 通用對話框 習(xí)題 Visual Basic提供 MsgBox函數(shù)。在執(zhí)行此函數(shù)時，屏幕上會出現(xiàn)一個消息框，例如，在程序中有如下語句： intResult = MsgBox(″數(shù)據(jù)正確嗎？ ″, 65, ″Message Box Example″) 程序執(zhí)行這條語句的結(jié)果如圖 。圖 令按鈕，用戶可以單擊 “ 確定 ” 或 “ 取消 ” 按鈕。函數(shù)的返回值與用戶選擇哪個命令按鈕有關(guān)。 【 例 】 設(shè)計一個程序，在窗體上放置一個標(biāo)簽、一個文本框和三個命令按鈕，如圖 。如果用戶選擇了消息框上的 “ 取消 ” 按鈕，則結(jié)束程序運行。 屬性設(shè)置如表 （見書 153頁）所示。然后用戶從鍵盤向文本框輸入密碼，再單擊“ 核對密碼 ” 命令按鈕，執(zhí)行以下過程： Private Sub cmdCheck_Click() pw$ = ″MyProgram″ ′ Title$ = ″密碼核對框 ″ Info1$ = ″你輸入了正確的密碼 ″ Info2$ = ″你輸入的密碼不正確 ″ If = pw$Then answer = MsgBox(Info1$, 65, Title$) ′1+64+0=65 Else answer = MsgBox(Info2$, 277, Title$) ′16+5+256=277 End If If answer = 2 Then End ′選擇了 “ 取消 ” 按鈕 If answer = 1 Then ′選擇了 “ 確定 ” = False = False = False = ″繼續(xù)運行程序 !″ End If End Sub 程序中事先設(shè)置了一個字符串 “ MyProgram”作為密碼。 圖 MsgBox函數(shù)的第 1個參數(shù)是消息框中的提示文字。函數(shù)的第 3個參數(shù)用來指定消息框的標(biāo)題。第 2個參數(shù)（現(xiàn)為 65）決定消息框內(nèi)的按鈕和圖標(biāo)的種類、數(shù)目。這 3個數(shù)值分別代表按鈕的類型、顯示圖標(biāo)的種類和哪一個按鈕是默認的 “ 活動按鈕 ” 。 表 。 當(dāng)值為 16時，顯示出如圖 (a)所示的圖標(biāo)，當(dāng)值為 64時，顯示出如圖 (d)所示的圖標(biāo)，圖 息框中就顯示了這種圖標(biāo)。 圖 當(dāng)值為 0時，第 1個按鈕為默認的活動按鈕，即運行開始時第 1個按鈕是激活的，或稱為 “ 焦點在第 1個按鈕處 ” ?？梢杂冒?Enter鍵來代替單擊活動按鈕的操 MsgBox函數(shù)中第 2個參數(shù)是從上面 3個表中各取一個數(shù)相加而得（只能從每一個表中取一數(shù)）。因此，根據(jù)表～ ，消息框的特性如下：（ 1）有“ 確定 ” 和 “ 取消 ” 兩個按鈕；（ 2）圖標(biāo)如圖(d)所示； （ 3）第 1個按鈕為默認的活動按鈕。第 2個參數(shù)為277=5+16+256，從表 ，消息框中有 “ 重試 ” 和 “ 取消 ” 兩個按鈕，消息框左上部有一個如圖 (a)所示的圖標(biāo)，第 2個按鈕為活動按鈕，如圖 。 程序運行時，在單擊 “ 輸入密碼 ” 按鈕并輸入密碼后，屏幕上會出現(xiàn)如圖 ，讓用戶選擇按鈕。在本例中，如果用戶輸入密碼正確，然后再單擊 “ 確定 ” 按鈕，則 answer的值為 1，程序使窗體中 3個控件成為 “ 不可見 ” ，并在標(biāo)簽中顯示出“ 繼續(xù)運行程序 ” 的信息，如圖 。執(zhí)行此 MsgBox 語句也產(chǎn)生一個消息框，在框中顯示文字 “ 數(shù)據(jù)正確嗎？ ” 。讀者可能在 Windows中看到過這種對話窗口，也就是說，用戶不能無視它或跳過它去執(zhí)行其他操作。除此之外， Visual Basic還提供了一種“ 輸入對話框 ” ，用戶可以在其中輸入信息。例如： filename$ = InputBox(″請輸入文件名 ″， ″對話輸入框 ″，″File1″) 將顯示出如圖 。需要補充說明的是， xpos指定了輸入框的左邊與屏幕左邊的水平距離； ypos指定了輸入框的上邊與屏幕上邊的距離，也就是說，設(shè)計時可以指定輸入框在屏幕上的位置。要求從輸入對話框輸入各種收入，然后在屏幕上顯示出來。 屬性設(shè)置如表 （見書 158頁）所示。當(dāng)循環(huán)變量 i=0時，massage$的主要內(nèi)容是 Label3(0). Caption，即 “ 基本工資 ” ；前面 5個 ch$的作用是空 5行，目的是將上面這段文字向下移 5行，以靠近文本區(qū)（讀者可以試一下取消這 5個 ch$的效果）。下面的 “ title$ = Label3(i).Caption + ″輸入框 ″”的作用是使 title$的內(nèi)容變?yōu)?“ 基本工資輸入框 ” ，它將作為圖 。 圖 （ 1） InputBox$ 函數(shù)產(chǎn)生一個輸入對話框，框內(nèi)顯示 massage$（即 “ 基本工資 ” ），對話框的標(biāo)題為 title$（即 “ 基本工資輸入框 ” ）。如果不指定這兩個值，系統(tǒng)給出的隱含位置在屏幕中心線向下約 1/3 用戶在輸入對話框中的文本區(qū)輸入基本工資（如450），然后單擊 “ 確定 ” 按鈕，如圖 ，此時輸入的內(nèi)容 450就送到 temp$中（請注意，文本區(qū)中的數(shù)據(jù)一律作為字符串處理）。如果有數(shù)據(jù)輸入，則 Flag變量的值變?yōu)?0；若用戶不輸入任何內(nèi)容就單擊 “ 確定 ” 按鈕，則讀入空串，表示此職工已無其他收入，此時結(jié)束循環(huán)，輸出該 （ 3） 通過消息框提示用戶檢查數(shù)據(jù)是否正確。 （ 4） 如果用戶單擊 “ 否 ” 按鈕，則 MsgBox的函數(shù)值為 7，表明用戶發(fā)現(xiàn)輸入數(shù)據(jù)有錯誤。如果用戶單擊“ 否 ” 按鈕，則 flag仍是 0，不再執(zhí)行 Do While循 （ 6） 把輸入的數(shù)據(jù) 450保存到 payroll(0)，即保留 （ 7） Loop后面的賦值語句將輸入的數(shù)據(jù)payroll(0) 圖 （ 8） 將 payroll(0)的值通過 Val函數(shù)轉(zhuǎn)換成數(shù)值累加到 sum中。在 For 循環(huán)中執(zhí)行 6次 Do While循環(huán)體，分別使 payroll(0) ～payroll(6)獲得值，并顯示在 6個標(biāo)簽中。 圖 Visual Basic有 3 (1) 預(yù)定義對話框（或稱預(yù)制對話框），前面介紹 (2) 自定義對話框（或稱定制對話框） ,由用戶根據(jù) (3) 通用對話框，它是 Visual Basic提供的一種控件，利用這種控件可以設(shè)計出比較復(fù)雜的對話框（如 “ 打開 ” 對話框 ﹑ “保存 ” 對話框 ﹑ “顏色 ” 對話框等）。在一個窗體內(nèi)安排若干個控件（例如文本框﹑ 列表框 ﹑ 組合框 ﹑ 命令按鈕等），構(gòu)成用戶與系 通過下面的例子，可以大致了解什么是自定義對話 【 例 】 某大學(xué)有若干個系，分屬兩個學(xué)院，下面設(shè)計一個對話框