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