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