visual basic應用教程28843-00vb課件第6章

1、VB程序設計與數(shù)據(jù)庫應用1第 6 章 應用程序界面與菜單設計 6.1 窗體設計 6.2 菜單設計 6.3 多文檔界面設計 6.4 綜合應用實例 VB程序設計與數(shù)據(jù)庫應用26.1 窗體設計 窗體是控件界面的基本構造模塊，控件都包容在窗體中。窗體是一種對象，由屬性定義其外觀，由事件定義與用戶的交互。通過設置窗體的屬性并編寫響應事件的代碼，能夠編寫出滿足用戶要求的各種程序界面，完成各種不同的任務。 VB程序設計與數(shù)據(jù)庫應用3窗體設計6.1.1 常用屬性 1一般屬性 包括 Name 屬性 、Icon 屬性 、Enabled 屬性 、MaxButton 和 MinButton 屬性 及WindowSta

2、te 屬性 等 2外觀屬性 主要有 Appearance 屬性、Caption 屬性、Picture 屬性等。VB程序設計與數(shù)據(jù)庫應用4 3位置屬性 主要是 Left，top 和 Height，Width 屬性及 Moveable 屬性 。 6.1.2 常用事件、方法和語句 1事件 窗體作為對象主要對以下事件做出響應。 Resize 、Activate 、DeActivate 、Initialize 、Load 、UnLoad 、Click 和 DbClick 事件 窗體設計VB程序設計與數(shù)據(jù)庫應用52方法（1）Show 方法 語法為： 對象.Show（2）Hide 方法 語法為： 對象. H

3、ide窗體設計VB程序設計與數(shù)據(jù)庫應用6窗體設計（3）Print 方法 語法為： 對象.Print 輸出表列 （4）Cls 方法（清除） 語法為: 對象.Cls （5）Refresh 方法 VB程序設計與數(shù)據(jù)庫應用7 3裝載、卸載和結(jié)束語句（1）裝載窗體語句 語法為： Load 對象（2）卸載窗體語句 語法為： Unload 對象（3）End 語句窗體設計VB程序設計與數(shù)據(jù)庫應用8窗體設計6.1.3 設置焦點和Tab鍵的順序1設置焦點語法為：對象 .SetFocus2Tab 鍵的順序 語法為：對象 .TabIndex =Index VB程序設計與數(shù)據(jù)庫應用9窗體設計 6.1.4 應用舉例 【例

4、 6-1】 設計步驟：設計窗體界面及控件屬性。在文本框的 KeyPress 事件過程中，應用SetFocus 方法實現(xiàn)在各文本框之間切換焦點，并通過 Show 方法顯示 Form2 窗體內(nèi)容。VB程序設計與數(shù)據(jù)庫應用106.2 菜單設計 6.2.1 Visual Basic 中的菜單示例6.2.2 建立菜單 使用 VB 提供的菜單編輯器，可以創(chuàng)建或者修改菜單。 6.2.3 編寫代碼 6.2.4 菜單項的控制 1有效性控制 VB程序設計與數(shù)據(jù)庫應用11菜單設計 2菜單項標記 3鍵盤選擇 4菜單項的增減 6.2.5 彈出式菜單 彈出式菜單是獨立于菜單欄而顯示在窗體上的浮動菜單，它可以在窗體的某個指

5、定區(qū)域顯示出來，對程序事件做出響應。 VB程序設計與數(shù)據(jù)庫應用12菜單設計建立彈出式菜單通常分為兩步進行： 用菜單編輯器建立菜單。 使用 PopupMenu 方法顯示彈出式菜單。其語法格式為：對象.PopupMenu 菜單名 , Flags ,X , Y , mand VB程序設計與數(shù)據(jù)庫應用13菜單設計6.2.6 工具欄的設計 工具欄（也稱控制欄）包含一組圖形按鈕，用工具欄可以快速訪問應用程序中使用較頻繁的菜單命令。 在 VB 程序設計中，為窗體添加工具欄應使用工具條（ToolBar）控件和圖像列表（ImageList）控件 VB程序設計與數(shù)據(jù)庫應用146.3 多文檔界面設計 用戶界面樣式主

6、要有兩種：單文檔界面（SDI）和多文檔界面（MDI）。使用 SDI 程序運行時只有一個窗體出現(xiàn)，程序所有的任務將在一個窗體中完成。 MDI 窗體是一個包含多個子窗體的容器，是應用程序的背景窗體，一個 MDI 應用程序可以含有三類窗體:即標準窗體、MDI 父窗體（簡稱 MDI 窗體）和 MDI 子窗體（簡稱子窗體）。 VB程序設計與數(shù)據(jù)庫應用15多文檔界面設計6.3.1 建立多文檔界面 1建立多文檔界面的步驟 （1）建立 MDI 窗體 （2）創(chuàng)建 MDI 子窗體 （3）加載 MDI 窗體及子窗體 （4）編寫程序代碼 2設置子窗體的大小和位置 3Dim 語句和 WindowState 屬性 4多文

7、檔窗體示例 VB程序設計與數(shù)據(jù)庫應用166.3.2 MDI的屬性、事件和方法 1MdiChild 屬性 2ScrollBars 屬性 3Arrange方法 4QueryUnload 事件 多文檔界面設計VB程序設計與數(shù)據(jù)庫應用17多文檔界面設計6.3.3 多文檔界面的幾點說明 1在程序運行時，MDI 窗體及其子窗體的一些特性 。 2MDI 應用程序中菜單的使用。 3指定活動子窗體或控件 。VB程序設計與數(shù)據(jù)庫應用18多文檔界面設計6.4 綜合應用實例 設計步驟：建立封面窗體 建立 MDI 窗體 建立 MDI子窗體 程序代碼 VB程序設計與數(shù)據(jù)庫應用19習題 6-11 注釋 按題意要求，首先建立

8、一個 MDI 窗體和一個 MDI 子窗體，并用菜單編輯器在 MDI 窗體中建立菜單項。 將 MDI 窗體設置為啟動窗體，以便于用戶通過菜單項進行選擇。 Option Explicit Dim NewfrmChild(0) As New frmChild 上述代碼以 frmChild 子窗體為模板增加一子窗體。VB程序設計與數(shù)據(jù)庫應用20Option ExplicitDim NewfrmChild(0) As New frmChild 當選擇菜單中的“數(shù)學”選項時激活以下過程，并設置 MDI 子窗體的初始值。Private Sub AA_Click() NewfrmChild(0).Window

9、State = 2 NewfrmChild(0).Label1.Caption = 數(shù)學試題 NewfrmChild(0).Frame1.Caption = 0 是空集 NewfrmChild(0).Frame2.Caption =空集沒有子集 NewfrmChild(0).Show mnuClass.Enabled = FalseEnd SubVB程序設計與數(shù)據(jù)庫應用21 當選擇菜單中的“化學”選項時激活以下過程，并設置 MDI 子窗體的初始值。Private Sub BB_Click() NewfrmChild(0).WindowState = 2 NewfrmChild(0).Label

10、1.Caption = 化學試題 NewfrmChild(0).Frame1.Caption = 硅是非金屬 NewfrmChild(0).Frame2.Caption=氯是鹵族元素 NewfrmChild(0).Show mnuClass.Enabled = FalseEnd SubVB程序設計與數(shù)據(jù)庫應用22 當選擇菜單中的“評分”選項時激活以下過程，并判斷 MDI 子窗體中用戶所選的單選按鈕值是否正確。Private Sub SS_Click() Dim S As Integer If NewfrmChild(0).Label1.Caption=化學試題 Then If NewfrmChild(0).Option1 = True Then S = S + 50 End If If NewfrmChild(0).Option3 = True Then S = S + 50 End If ElseVB程