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