【正文】 菜單時執(zhí)行以下語句 ? Dim MyNewForm As New Form1 ? ? End Sub ? Private Sub m2_Click() ? 39。 –假設程序中允許用戶在 MDI父窗體上最多同時打開 3個窗體，那么設計時只要添加 3個子窗體，在 MDI父窗體中通過 Show命令顯示。 – 無論如何拖拉子窗體，也無法使它們擺脫父窗體的束縛。 ? MDI 父窗體有兩個非常重要的屬性ActiveForm和 ActiveControl， 其中： – ActiveForm屬性：返回具有焦點或最后被激活的子窗體 。 – （ 3）按單窗體設計方法設計每個窗體。 – （ 6）界面元素應盡可能一致性。 – （ 2） 如果要設計多色彩的窗體界面 ， 那么應當盡量采用同一色系的顏色 ，比如蘭 、 淡蘭等 。窗體就是應用程序的對外接口，是其他控件的載體和容器。 – 控件間的聯(lián)系比較緊密 ， 比如數(shù)字區(qū)按鈕的 Click事件 ， 會影響txtFirst和 txtSecond文本框的 Text屬性值；而 txtFirst控件的 Text屬性值的變化會進而影響 txtResult。 End Sub 7．“清空”命令按鈕的 Click事件 如果四則運算完成，希望繼續(xù)進行另一個表達式的四則運算 工作，則點擊此按鈕，完成以下工作： = = = 8．“幫助”菜單的調(diào)用 事先通過 VB集成開發(fā)環(huán)境“工程－添加窗體”菜單， 使用“關于”對話框模板創(chuàng)建一個“關于”窗體 （缺省名為 frmAbout）。當 “除”時 MyResult = Val() / Val() End Select = 39。以 Case 加 39。 39。 3． txtFirst文本框的 Change事件 Private Sub txtFirst_Change() ?每當 txtFirst的內(nèi)容發(fā)生變化時， ‘將變化結(jié)果隨時映射到 txtResult。每點擊一下該按鈕，就在文本框的尾部加字符“ 0”。Visual Basic 程序設計 北京電大 第三講 應用程序接口設計 及代碼編寫 [內(nèi)容簡介 ] ? – 圍繞 VB應用程序界面設計和代碼設計 – 較系統(tǒng)地分析可視化編程的步驟 – 可視化界面設計方法 – 菜單設計及窗體設計的原則 – 各種常用控件的用法 – 工程化思想和 VB結(jié)構(gòu)化程序設計知識。 該程序?qū)嶋H上是對第一章“加法”程序的功能拓展， 它能完成簡單的加、減、乘、除四則運算 運行主界面 幫助：關于窗體 界面布局 命令按鈕控件 文本框： 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。否則表示輸入的是第 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事件代碼， 請同學們自己完成。否則表示當前正在輸入的是第 2個數(shù)字。 Select Case 39。當 “乘”時 MyResult = Val() * Val() Case 除 39。將計算結(jié)果做為第 1個數(shù)字，以便繼續(xù)運算。 ? ? 程序演示及分析 ? 與 “ 加法 ” 程序相比 ， 本程序的特點是： – 在界面設計方面 ， 用到的控件種類 、 數(shù)量均增加了許多 ， 窗體的設計精細了許多 ， 應用程序具有兩個窗體 。 由于用戶是通過界面與應用程序進行對話的，而程序代碼相對于用戶又是隱藏的，從用戶角度看，界面就是應用程序 ? 窗體對象 （ Form）。 ? 美觀的窗體界面還是有些基本原則 – （ 1） 不要使窗體上的顏色過多 ， 否則不易讀 。 – （ 5） 使用適當?shù)念伾?、 圖片來保持窗體的趣味性是必須 ， 但要適度 。 – （ 2） 設置起始窗體 ， 以及多窗體間的調(diào)用關系 。 – （ 3）這時就會出現(xiàn)一個默認名稱為 MDIForm1的新窗體。 – 在設計時，子窗體和一般窗體看起來沒有什么兩樣，但運行時就會發(fā)現(xiàn)，子窗體已被包含在 MDI父窗體中了。 ? （ 1） 靜態(tài)顯示方法 – 靜態(tài)顯示方法是通過在設計應用程序時添加多個窗體來完成的。 ? Dim MyNewForm As New Form1 ? MDI窗體示例 MDI窗體示例 ? Private Sub m1_Click() ? 39。 ? ToolWindow窗體與 SetWindowPos函數(shù)一同使用，可以實現(xiàn) VB“工具箱”窗口顯示效果，請同學動手試一式。它與其他菜單項的主要區(qū)別是，標題（ Caption）屬性為減號，即“ ” ? 4．設置訪問鍵和快捷鍵的方法 – 訪問鍵： 一般在標題中，通過“ amp。 ? 5．彈出式菜單的創(chuàng)建方法 – 首先利用菜單編輯器建立菜單 ， 方法與前面介紹的下拉式菜單創(chuàng)建方法一樣 。N) MnuNew 子菜單項 打開 (amp。 ? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? 39。上例中， 為 7。如果與圖標列表控件（ ImageList）一同使用，我們的界面會更加出色。狀態(tài)欄的第二個窗格的值用 Panels(2).Text表示 ? (2).Text = 你剛才點擊的按鈕是 [ + + ] ?End Sub 通用對話框控件（ CommonDialog） – 在 Windows應用程序中，我們經(jīng)?？梢砸姷酱蜷_（ Open）、保存（ Save）、顏色（ Color）、字體（ Font）、打?。?Print）等對話框 – VB利用本控件完成上述功能 – 在部件對話框中選擇“ Microsoft Common Dialog Control ”復選框，將通用對話框控件添加到工具箱中。設置文件過濾器 = 所有文件 |*.*|文本文件 |*.txt 39。設置對話框的標題 = 打開文件 39。顯示剛才輸入的文件名（全路徑名） MsgBox 你剛才輸入的文件名是： + End Sub 3．“顏色”對話框 Private Sub Command1_Click() ?設置顏色窗體的形狀，有 8等四個常用， ‘ 請同學們自己試一試 = 1 39。但是由此也會帶來內(nèi)存空間消耗量的增大，也容易出現(xiàn)數(shù)據(jù)運算問題。聲明一個變長的字符型變量 Dim MyString As String*10 39。聲明一個類型為文本框的變量 Set MyText = Text1 39。將 Form1的 Text1控件賦給對象變量 ? = 你好！ 39。它規(guī)定了變量在應用程序中的使用范圍，即在什么范圍內(nèi)是可見的 (Visible)、有效的（ Enabled）。為了增加可讀性，建議使用 Private關鍵字聲明 ? 3．全局變量 – 全局變量在整個應用程序中有效，一般在模塊代碼編輯器的頂部使用 Public聲明 變量的生命周期 –所謂變量的生命周期，是指能夠保存變量值的時間。 – 直到下一次調(diào)用該過程時，才重新給該變量分配一個儲存空間，重新賦值，開始一個新的生命周期 – 但當使用 Static關鍵字來聲明局部變量時 ， 則該變量的生命周期是應用程序的整個運行期 ， 即在該過程執(zhí)行結(jié)束時 ， 系統(tǒng)并不釋放該變量的內(nèi)存空間 ， 繼續(xù)保留其值 。 ? （ 3） 乘法 *、 除法 / ? （ 4） 整除： \ ? （ 5） 取模 （ 取余 ） ： Mod ? （ 6） 加 +、 減 2．關系運算符 ? VB中有 6種關系運算符 – 大于（ ）、小于（ ）、等于（ =）、不等于（ 或 ）、大于等于（ =）、小于等于（ =）。 ? （ 3） Left(x,n)返回字符串 x從左邊算起 n個長度的字符序列 。 這個函數(shù)的返回值總會在前頭保留一個空格 ， 因此多數(shù)情況下與 Trim函數(shù)結(jié)合使用 ， 去掉首部空格 。 – （ 9） Asc(x)返回字符串 x首字符的 Ascii碼值 。 4．格式化函數(shù) – ?以系統(tǒng)設置的長時間格式返回當前系統(tǒng)時間。 – MyStr = Format(MyTime, hh:mm:ss AMPM) 39。 – MyStr = Format(, “,0。 00”) ‘ 返回 “ ” 。 返回 hello。 －－劉世峰 本章習題 一、單項選擇題 1．與 Loa