【正文】 列表框lstDept_Click()、 單擊選項按鈕 Option1_Click()、Option2_Click()和單擊顯示按鈕。在 For 循環(huán)中執(zhí)行 6次 Do While循環(huán)體，分別使 payroll(0) ～payroll(6)獲得值，并顯示在 6個標簽中。如果不指定這兩個值，系統(tǒng)給出的隱含位置在屏幕中心線向下約 1/3 用戶在輸入對話框中的文本區(qū)輸入基本工資（如450），然后單擊 “ 確定 ” 按鈕，如圖 ，此時輸入的內(nèi)容 450就送到 temp$中（請注意，文本區(qū)中的數(shù)據(jù)一律作為字符串處理）。 屬性設(shè)置如表 （見書 158頁）所示。除此之外， Visual Basic還提供了一種“ 輸入對話框 ” ，用戶可以在其中輸入信息。 程序運行時，在單擊 “ 輸入密碼 ” 按鈕并輸入密碼后，屏幕上會出現(xiàn)如圖 ，讓用戶選擇按鈕。 圖 當值為 0時，第 1個按鈕為默認的活動按鈕，即運行開始時第 1個按鈕是激活的，或稱為 “ 焦點在第 1個按鈕處 ” 。第 2個參數(shù)（現(xiàn)為 65）決定消息框內(nèi)的按鈕和圖標的種類、數(shù)目。 屬性設(shè)置如表 （見書 153頁）所示。圖 令按鈕，用戶可以單擊 “ 確定 ” 或 “ 取消 ” 按鈕。作為函數(shù)， MsgBox可以有返回值。 圖 程序代碼如下： Private Sub cmdClear_Click() = ″″ End Sub 程序開始運行，用戶若單擊 “ 輸入密碼 ” 命令按鈕，則先使文本框清空，并將光標設(shè)于文本框左端。該參數(shù)是 3個數(shù)值相加之和。圖 ，可以看到，“ 確定 ” 按鈕四周有一虛線框，表示它是 “ 活動的 ” 。無論用戶單擊哪一個按鈕，消息框都自動消失，用戶可根據(jù)函數(shù)的返回值決定后續(xù)操作。靈活地利用輸入對話框，可以使用戶界面直觀、形象， 可以用 InputBox函數(shù)產(chǎn)生輸入對話框。 圖 下面編寫單擊 “ 運行 ” 命令按鈕時的事件過程： Dim temp As String Dim payroll(5) As String Private Sub cmdInput_Click() Dim payroll(5) As String Dim sum As Single For i = 0 To 6 ′ Label2(i).Caption = ″″ Next i ch$ = Chr(13) + Chr(10) title$ = ″工資輸入框 ″ For i = 0 To 5 massage$ = ch$ + ch$ + ch$ + 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)。 （ 2） 判斷文本區(qū)是否有數(shù)據(jù)輸入（不是空串）。在For… Next循環(huán)結(jié)束后，將 6項工資的總和顯示在最下面的標簽中（ sum是數(shù)值型的，故先用 str$函數(shù)將它轉(zhuǎn)換成字符串，然后 ,后面加上 “ 元 ” ），如圖 ?，F(xiàn)分述各過程的功能， cmdExit_Click() Form_Load()程序如下： Private Sub Form_Load() = Date$ = True AddDept1 End Sub 在程序開始運行時，即將當前日期放到標簽 2中（ Date$函數(shù)的值為當前日期，以 yyyy:mm:dd形式表示）。在使用 Windows應(yīng)用程序時，用戶往往可以看到 “ 打開 ”（ Open）、 “ 保存 ” (Save As)、 “ 打印 ” (Print)、 “ 顏色 ” (Color)、 “ 字體 ” (Font)等對話框，用戶使用起來很方便。對話框的類型不是在設(shè)計階段設(shè)置，而是在程序運行時設(shè)置。 圖 （ 4）從圖中可以看出， “ 屬性頁 ” 窗口中有 5個選項卡，分別是 “ 打開 /另存為 ” 、 “ 顏色 ” 、 “ 字體 ” 、 “ 打印 ” 和 “ 幫助 ” ，供用戶選擇。 ⑥ 默認擴展名：用來顯示在對話框的默認擴展名。 用戶在 “ 打開 ” 對話框中所選擇的文件名就是 。窗體設(shè)計如圖 。為了方便 Windows應(yīng)用程序的設(shè)計， Visual Basic也允許用戶根據(jù)需要設(shè)計 “ 字體 ”對話框。用戶如果確認此值就直接單擊 “ 確定 ” 按鈕。 指定 “ 打開打印對話框 ” 命令按鈕的 Name屬性值為 cmdPrint，對話框的 Name屬性值為PrintDialog，編寫如下程序： “ 打印 ” （ Print）對話框 圖 圖 Private Sub cmdPrint_Click() = 5 End Sub 運行開始后，用戶單擊 “ 打開打印對話框 ” 命令按鈕，屏幕上出現(xiàn)一個 “ 打印 ” 對話框（如圖 示）。窗體上有兩個命令按鈕： “ 輸入 ” 和 “ 退出 ” 按鈕。 圖 圖 84 設(shè)計一個程序，能夠改變標簽中文本的顏色、字體。單擊 “ 結(jié)束 ” 按鈕時，先保存文本框中的內(nèi)容，再結(jié)束程序的運行。 圖 87 在窗體上畫一個文本框。 圖 圖 ① 位圖（ bitmap），文件后綴為 .bmp ② 圖標（ icon），文件后綴為 .ico ③ Windows元文件（ metafile） ,文件后綴為 .wmf。在設(shè)計階段將圖形裝入的另一種方法是，使用剪貼板把在各種圖形軟件下制作的圖形粘貼到圖片框中。 按題目要求在單擊命令按鈕時執(zhí)行加載圖片的工作，編寫如下過程代碼： Private Sub cmdLoad_Click() = LoadPicture(″d:\Tan\Program\″) End Sub 圖 LoadPicture函數(shù)的作用是把圖形文件調(diào)入內(nèi)存。如果移動圖片框，則命令按鈕隨之一起移動（命令按鈕成為圖片框的一個組成部分）。如果其 AutoSize為 False時，圖片框不能改變大小，而只有當圖形文件為 .wmf類型（ Windows元文件）時，圖形會自動調(diào)整大小以填滿圖片框。 圖 (2) 單擊 “ 改變高和寬 ” 命令按鈕所觸發(fā)的事件過程如下： Private Sub cmdChangeHW_Click() = / 2 = * 2 = * 2 End Sub 運行這段程序使圖像框的高和寬都增大 1倍（ Height屬性就是圖像框的高度），獎杯圖形也隨之調(diào)整了大小，見圖 。Form_Load事件過程裝載兩幅圖片，并將地名添加到組合框中。 屬性設(shè)置見表 （見書 194頁）。定義數(shù)組 a的方法：進入代碼窗口，單擊左側(cè)對像框的下拉箭頭，從下拉框中選擇 “ 通用 ” 。單擊“ 停止 ” 按鈕，計時停止。 單擊 “ 開始 ” 按鈕，計時器控件開始計時。 圖 單擊 “ 停止 ” 按鈕，計時器控件暫停工作。窗體設(shè)計如圖 。 p(x,y)實際上是圖像框左上角坐標。 Counter是計數(shù)器，每顯示一個圖片， Counter加 1。每點擊一次滾動條右邊或左邊的按鈕時，圖片框增加或縮小的尺寸為 30twip。 圖 圖 96 使用控件數(shù)組實現(xiàn)題 95 97 在窗體上畫一個圖片框，加載一個圖片。在設(shè)計菜單的時候，需要在主窗口的菜單欄中選擇 “ 工具 ” 菜單項，從其下拉菜單中選擇 “ 菜單編輯器 ” 命令，或單擊工具欄中的菜單編輯器按鈕，這時屏幕上彈出一個 “ 菜單編輯器 ”窗口，如圖 。窗體中包含兩個文本框。以下分別討論如何建立菜單以及怎樣編寫相應(yīng)的應(yīng)用程序。打開 “ 菜單編輯器 ” 的方法是，從主窗口的菜單條上選擇 “ 工具 ” 菜單項，打開下拉菜單，從中選擇 “ 菜單編輯器 ” 命令，此時會彈出如圖 。其中的“ 編輯（ E） ” 提供 Windows中常用的 “ 剪切 ” 、“ 復(fù)制 ” 和 “ 粘貼 ” 功能。 概述 圖 使用 “ 菜單編輯器 ” 能夠建立一個應(yīng)用程序的菜單系統(tǒng)。單擊某個方向按鈕，圖片框?qū)⒃谠摲较蛏弦苿右欢尉嚯x（自己確定移動距離）。窗口如圖 。當 Counter=9，即完成了月亮由缺到圓、再由圓到缺的變化周期， Counter重新置1，開始新的周期。 圖 【 例 】 設(shè)計一個程序，要求：在淡藍色背景的窗體上，有一個由缺到圓、再由圓到缺的自左向右 月亮的移動可通過移動月亮所在圖像框的位置來實現(xiàn)，而月亮的圓缺則通過輪流顯示 8個不同狀態(tài)月亮的圖片來實現(xiàn)。 圖 在程序開始運行裝入窗體時，執(zhí)行 Form_Load事件過程，把圖像框 ImgSun放到窗體中心位置。 不論用何種方法，都可以用計時器定時觸發(fā)有關(guān)動畫的事件過程，用計時器的 Interval屬性控制圖像 Move 對象名 .MoveLeft， Top[， Width， Length] 利用圖片框和計時器設(shè)計簡單動畫 【 例 】 以藍天白云為背景，顯示地球圍繞太陽 設(shè)計此動畫的思路如下：建立一個圖片框，它的大小與窗體相同，裝入藍天白云圖形作為背景。按照 Interval屬性的設(shè)置，每隔一秒鐘執(zhí)行一次 Timer1_Timer過程。窗體外觀如圖 屬性設(shè)置見表 （見書 197 圖 程序中定義了三個全局變量，分別用于時、分、秒的計數(shù)，這幾個變量是： Dim hourVar As Integer Dim minuteVar As Integer Dim secondVar As Integer 運行程序，執(zhí)行 Form_Load事件過程。然后輸入下面一行語句： Dim a(10) As String a是在過程之外定義的數(shù)組，它的作用范圍是整個窗體，稱為 “ 窗體級 ” 的變量。標簽在圖像框的上部，準備用來顯示書的目錄。如果需要顯示具體的時間，應(yīng)該把時間顯示在某個控件中，如標簽或文本框。 (4) 單擊 “ 退出 ” 按鈕所觸發(fā)的事件過程如下： Private Sub cmdExit1_Click() End End Sub Visual Basic提供了一種 “ 計時器 ” 的控件。當它為 False時，圖像框會自動改變大小以適應(yīng)圖形的大小，使圖形充滿圖像框。也就是說，圖片框可以作為一個 “ 容器 ” 使用。 運行這個程序，單擊 “裝載 ”命令按鈕， 圖形文件所對應(yīng)的圖形被裝入圖片框中，運行結(jié)果如圖 。具體做法如 （ 1） 用 W