visual basic應(yīng)用教程28843-00vb課件第6章

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

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

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

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

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

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

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

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

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

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