【正文】 Visual Basic 程序設計 北京電大 第三講 應用程序接口設計 及代碼編寫 [內(nèi)容簡介 ] ? – 圍繞 VB應用程序界面設計和代碼設計 – 較系統(tǒng)地分析可視化編程的步驟 – 可視化界面設計方法 – 菜單設計及窗體設計的原則 – 各種常用控件的用法 – 工程化思想和 VB結(jié)構(gòu)化程序設計知識。 ? – 你將系統(tǒng)地掌握 VB編程的一般方法及相關(guān)知識。 [學習目標 ] 1． 掌握可視化界面設計的方法 2． 掌握變量和常量的概念及用法 3． 掌握運算符及流程控制語句的用法 4． 理解工程化思想和編程風格 5． 理解常用函數(shù)的使用方法 6． 了解窗體設計的基本原則 7． 了解 “ 簡單計算器 ” 程序設計過程 “簡單的計算器”應用程序任務 任務概述 Windows操作系統(tǒng)自帶了一個計算器程序，現(xiàn)在我們 來模仿它創(chuàng)建一個簡單的但卻屬于我們自己的計算器 應用程序。 該程序?qū)嶋H上是對第一章“加法”程序的功能拓展， 它能完成簡單的加、減、乘、除四則運算 運行主界面 幫助：關(guān)于窗體 界面布局 命令按鈕控件 文本框： txtResult 框架 Frame控件 文本框： txtFirst 文本框： txtSecond 文本框： txtLabel 標題及圖標 不允許最大化 界面設計 – 0 ．新創(chuàng)建一個“標準 EXE”工程 – 1．設置窗體屬性 – 2．放置框架控件 – 3．放置命令按鈕控件 – 4．放置文本框控件 – 5．設計菜單 代碼設計 1．窗體的 Load事件 Private Sub Form_Load() = = = End Sub 2．數(shù)字區(qū)的命令按鈕的 Click事件 （ 1）數(shù)字“ 0”按鈕 Private Sub Command1_Click() 39。每點擊一下該按鈕，就在文本框的尾部加字符“ 0”。 39。如果 txtLabel為空，則說明現(xiàn)在正在輸入的是第 1個數(shù)字； 39。否則表示輸入的是第 2個數(shù)字； If = Then = + 0 Else = + 0 End If End Sub （ 2）數(shù)字“ 1”按鈕 Private Sub Command3_Click() If = Then = + 1 Else = + 1 End If End Sub 依此可編寫數(shù)字 2至 9命令按鈕的 Click事件代碼， 請同學們自己完成。 3． txtFirst文本框的 Change事件 Private Sub txtFirst_Change() ?每當 txtFirst的內(nèi)容發(fā)生變化時， ‘將變化結(jié)果隨時映射到 txtResult。 = End Sub TxtSecond文本框的 Change事件代碼同上。 4．正負號（ +/）命令按鈕的 Click事件 Private Sub Command2_Click() ?如果 txtLabel為空，則說明現(xiàn)在正在輸入的是第 1個數(shù)字； 39。否則表示當前正在輸入的是第 2個數(shù)字。 39。首先用 Val函數(shù)將 ，然后再乘以 1； If = Then = 1 * Val() Else = 1 * Val() End If End Sub 5．加、減、乘、除命令按鈕的 Click事件 以“加、減”命令按鈕為例，其他請同學們自己完成 Private Sub Command15_Click() = 加 End Sub Private Sub Command16_Click() = 減 End Sub 6．“計算結(jié)果”命令按鈕的 Click事件 Private Sub Command17_Click() Dim MyResult As Double 39。定義一個 Double類型的變量。 Select Case 39。以 Case 加 39。當 “加”時 MyResult = Val() + Val() Case 減 39。當 “減”時 MyResult = Val() Val() Case 乘 39。當 “乘”時 MyResult = Val() * Val() Case 除 39。當 “除”時 MyResult = Val() / Val() End Select = 39。將 txtLabel、 txtSecond清空 = = MyResult 39。將計算結(jié)果顯示 = 39。將計算結(jié)果做為第 1個數(shù)字，以便繼續(xù)運算。 End Sub 7．“清空”命令按鈕的 Click事件 如果四則運算完成，希望繼續(xù)進行另一個表達式的四則運算 工作，則點擊此按鈕，完成以下工作： = = = 8．“幫助”菜單的調(diào)用 事先通過 VB集成開發(fā)環(huán)境“工程－添加窗體”菜單， 使用“關(guān)于”對話框模板創(chuàng)建一個“關(guān)于”窗體 （缺省名為 frmAbout）。然后在計算器應用程序的 “幫助－關(guān)于 …” 子菜單的 Click事件中加入以下代碼： 1 ?在 Show命令后加參數(shù) 1， 表示以模態(tài)方式顯示 frmAbout窗體。 9．“退出”命令按鈕的 Click事件 通過 Unload Me命令結(jié)束應用程序。 ? ? 程序演示及分析 ? 與 “ 加法 ” 程序相比 ， 本程序的特點是： – 在界面設計方面 ， 用到的控件種類 、 數(shù)量均增加了許多 ， 窗體的設計精細了許多 ， 應用程序具有兩個窗體 。 – 控件間的聯(lián)系比較緊密 ， 比如數(shù)字區(qū)按鈕的 Click事件 ， 會影響txtFirst和 txtSecond文本框的 Text屬性值；而 txtFirst控件的 Text屬性值的變化會進而影響 txtResult。 – 程序代碼的結(jié)構(gòu)開始有點復雜，比如用到了 IF…THEN 之類的條件判斷結(jié)構(gòu)。 可視化界面設計概述 ?VB可視化程序設計包括兩部分內(nèi)容： – 一是進行用戶界面的設計； – 二是編寫程序代碼。 由于用戶是通過界面與應用程序進行對話的，而程序代碼相對于用戶又是隱藏的，從用戶角度看，界面就是應用程序 ? 窗體對象 （ Form）。窗體就是應用程序的對外接口，是其他控件的載體和容器。 – （ 1） 單窗體：一個應用程序中只包含一個窗體 。 – （ 2） 多窗體：一個應用程序中包含多個窗體 – （ 3） MDI窗體：是一種特殊的多窗體界面，有一個父窗體和眾多的子窗體組成。 ? 美觀的窗體界面還是有些基本原則 – （ 1） 不要使窗體上的顏色過多 ， 否則不易讀 。 – （ 2） 如果要設計多色彩的窗體界面 ， 那么應當盡量采用同一色系的顏色 ，比如蘭 、 淡蘭等 。 – （ 3） 不要試圖在一個窗體上放置過多的信息 。 – （ 4） 盡可能以清晰簡明的方式設計窗體 。 – （ 5） 使用適當?shù)念伾?、 圖片來保持窗體的趣味性是必須 ， 但要適度 。 – （ 6）界面元素應盡可能一致性。 VB提供了眾多的控件，但在設計時應當拋棄使用所有控件的想法，只選擇最適合特定應用程序的控件。 “簡潔、整齊、明確” 多窗體設計 ? 1．添加窗體 ? 2．設置啟動窗體 :Main子過程 ? 3．窗體的裝載和卸載 – （ 1） Load語句 ? 當使用窗體 Show方法時， VB程序會自動裝載窗體 ? Load Form2等效于 =False – （ 2） Unload語句 ? Unload Me ? 4．多窗體應用程序設計的一般步驟 – （ 1） 添加應用程序所需的所有的窗體 、 模塊 。 – （ 2） 設置起始窗體 ， 以及多窗體間的調(diào)用關(guān)系 。 – （ 3）按單窗體設計方法設計每個窗體。 MDI多文檔窗體的設計 ? 1． MDI父窗體 ? 一個 VB工程中只能有一個 MDI父窗體 ， 創(chuàng)建的方法是： – （ 1） 打開或新建一個工程 ， 單擊 “ 工程 ” 菜單中的“ 添加 MDI窗體 ” 命令 。 – （ 2） 在彈出的 “ 添加 MDI窗體 ” 對話框中雙擊 “ MDI”窗體圖標 。 – （ 3）這時就會出現(xiàn)一個默認名稱為 MDIForm1的新窗體。 ? MDI 父窗體有兩個非常重要的屬性ActiveForm和 ActiveControl， 其中： – ActiveForm屬性：返回具有焦點或最后被激活的子窗體 。 – ActiveControl屬性：返回活動子窗體上擁有焦點的控件。 ? 2． MDI子窗體 – 父窗體創(chuàng)建完成后，我們可以通過“工程”菜單添加若干標準窗體，然后將這些標準窗體的 MDIChild屬性值設置為 True，該窗體便成為工程中的 MDI子窗體了。 – 在設計時，子窗體和一般窗體看起來沒有什么兩樣，但運行時就會發(fā)現(xiàn)，子窗體已被包含在 MDI父窗體中了。 – 無論如何拖拉子窗體，也無法使它們擺脫父窗體的束縛。這說明，MDI父窗體是全有子窗體的容器。 ? 3． MDI子窗體的顯示方法 – VB提供了兩種同時顯示多個 MDI子窗體的方法：靜