vb菜單與工具欄

1、 10/10vb菜單與工具欄 第6章菜單與工具欄 6.1 學(xué)習(xí)要點(diǎn)與必備知識(shí) 【學(xué)習(xí)要點(diǎn)】 ?用戶(hù)菜單、彈出式菜單的設(shè)計(jì)。 ?工具欄、狀態(tài)欄的設(shè)計(jì)（選學(xué)內(nèi)容）。 ?MDI窗體的基本構(gòu)成與設(shè)計(jì)。 【必備知識(shí)】 1菜單 菜單系統(tǒng)組成、菜單控件屬性(Name、Caption、Checked、Enabled、Visible)?？旖萱I及訪(fǎng)問(wèn)鍵的設(shè)置、菜單項(xiàng)間的分隔線(xiàn)設(shè)置、菜單控件的事件(Click事件)、利用控件數(shù)組動(dòng)態(tài)創(chuàng)建菜單(菜單項(xiàng)用Load語(yǔ)句創(chuàng)建，用UnLoad清除)。 2彈出式菜單 彈出式菜單特點(diǎn)、設(shè)計(jì)方法、彈出式菜單的顯示(PopupMenu方法的使用)。 3工具欄和狀態(tài)欄(選學(xué)內(nèi)容) 圖像

2、列表控件ImageList的功能和使用，工具欄ToolBar屬性的設(shè)置，工具欄按鈕單擊事件及代碼設(shè)計(jì)、狀態(tài)欄StatusBar控件上的窗格(Panel對(duì)象)屬性(樣式Style、Text、對(duì)齊Align、圖片Picture等)。 4多文檔界面MDI 標(biāo)準(zhǔn)窗體、MDI父窗體和MDI子窗體的概念、常用的屬性(ActiveForm、ActiveControl、AutoShowChildren、MdiChild)、常用的方法(Arrange方法)、常用的事件(QueryUnload事件)及應(yīng)用。 6.2 習(xí)題精選 6.2.1 題目 一、選擇題 1在菜單中放置分隔欄的方法是將該菜單項(xiàng)的Caption設(shè)為

3、( ) A連字符(-) B下劃線(xiàn)(_) C連接符(&) D兩個(gè)連續(xù)的下劃線(xiàn)(_ _) 2以下陳述中正確的是( )(多選) A分隔欄可以出現(xiàn)在頂級(jí)菜單項(xiàng)中 B頂級(jí)菜單項(xiàng)的Checked屬性不能為T(mén)rue C對(duì)同一個(gè)菜單項(xiàng)，為其指定訪(fǎng)問(wèn)鍵后，就不能再為其指定快捷鍵 D菜單項(xiàng)的Enabled屬性設(shè)為False后，它會(huì)被灰化顯示 3菜單項(xiàng)數(shù)組必須滿(mǎn)足( )(多選) AName屬性值可以不同B有相同的行首縮進(jìn) C所有元素在菜單中可以不連續(xù)D各元素必有惟一索引值 4為了響應(yīng)工具欄上的多個(gè)按鈕的單擊事件，可以通過(guò)按鈕的( )屬性識(shí)別是由哪個(gè)按鈕引發(fā)。 AButton BKey CIndex DB 和C均可5

4、在使用菜單編輯器創(chuàng)建菜單時(shí)，可在菜單名稱(chēng)中某字母前插入( )符號(hào)，那么在運(yùn)行程序時(shí)按Alt鍵和該字母鍵就可以打開(kāi)該命令菜單。 A下劃線(xiàn)B& C$ D 6如果要在兩個(gè)菜單命令項(xiàng)之間加一條分隔線(xiàn)，可在標(biāo)題文本框中鍵入( )。 AB+ C& D# 7在用菜單編輯器設(shè)計(jì)菜單時(shí)，必須輸入的項(xiàng)是( )。 A快捷鍵B標(biāo)題C索引D名稱(chēng)8菜單控件僅支持以下( )事件。 AClick BMouseDown CKeyPress DLoad 9在使用彈出菜單時(shí)，下面說(shuō)法不正確的情況是( )。 A只能同時(shí)顯示一個(gè)彈出菜單 B使用PopupMenu 方法來(lái)顯示彈出菜單 C在設(shè)計(jì)時(shí)，應(yīng)該將彈出菜單的頂層菜單項(xiàng)的Visibl

5、e屬性設(shè)為False D在顯示彈出菜單以后，將執(zhí)行以后的代碼 10下列不能打開(kāi)菜單編輯器的操作是( )。 A按Ctrl+E B單擊工具欄中的“菜單編輯器”按鈕 C執(zhí)行“工具”菜單中的“菜單編輯器”命令 D按Shift + Alt + M 11假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰)，應(yīng)使用的語(yǔ)句為( )。 AMenuItem. Enabled=False BMenuItem. Enabled=True CMenuItem. Visible=True DMenultem. Visible=False 12以下關(guān)于菜單編輯器中“索引”項(xiàng)的敘述中，錯(cuò)誤的是( )。

6、A“索引”確定了菜單項(xiàng)顯示的順序 B“索引”是控件數(shù)組的下標(biāo) C使用“索引”時(shí),可有一組菜單項(xiàng)具有相同的“名字” D使用“索引”后,在單擊菜單項(xiàng)的事件過(guò)程中可以通過(guò)“索引”引用菜單項(xiàng)13用戶(hù)通過(guò)設(shè)置菜單項(xiàng)的( )屬性值為False來(lái)使該菜單項(xiàng)不可見(jiàn)。 AHide BChecked CVisible DEnabled 14下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是( )。 A每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有其屬性和事件 B除了Click事件之外，菜單項(xiàng)不可以響應(yīng)其他事件 C菜單項(xiàng)的索引號(hào)可以不連續(xù) D菜單項(xiàng)的索引號(hào)必須從1開(kāi)始 15通常一個(gè)Windows 應(yīng)用程序的功能都能夠通過(guò)菜單交互方式來(lái)進(jìn)行

7、。下列關(guān)于菜單交互方式的選項(xiàng)中錯(cuò)誤的是( )。 A用戶(hù)在一組多個(gè)可能的對(duì)象中進(jìn)行選擇 B各種可能的選擇以菜單項(xiàng)的形式分列顯示 C菜單項(xiàng)的分組設(shè)置一般不分類(lèi) D每個(gè)菜單項(xiàng)被選取都會(huì)導(dǎo)致執(zhí)行某一種操作 16在下列程序中，( )不論使用鼠標(biāo)右鍵還是左鍵彈出的菜單中的菜單項(xiàng)都響應(yīng)鼠標(biāo)單擊。 APrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Menu_test, 2 End If End Sub BPrivate S

8、ub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu Menu_test, 0 End Sub CPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu Menu_test End Sub DPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As

9、 Single, Y As Single) If (Button = vbLeftButton) Or (Button = vbRightButton) Then PopupMenu Menu_test End If End Sub 17以下有關(guān)由多個(gè)窗體和標(biāo)準(zhǔn)模塊組成的應(yīng)用程序設(shè)計(jì)方法的敘述中，錯(cuò)誤的是( )。 A在缺省情況下，設(shè)計(jì)時(shí)的第一個(gè)窗體被指定為啟動(dòng)窗體 B通過(guò)人為設(shè)置，可指定任一窗體為啟動(dòng)窗體 C通過(guò)人為設(shè)置，可指定標(biāo)準(zhǔn)模塊中的Main()過(guò)程為啟動(dòng)過(guò)程 D通過(guò)人為設(shè)置，可指定窗體模塊中的Main()過(guò)程為啟動(dòng)過(guò)程 18以下陳述中正確的是( )。(多選) A一個(gè)應(yīng)用程序中只能有一個(gè)

10、MDI父窗體 BMDI父窗體上可以放置任意控件 C可以用Print方法在MDI父窗體上顯示信息 D一個(gè)MDI子窗體最小化后，其圖標(biāo)顯示在MDI父窗體中 19要在工程中創(chuàng)建一個(gè)MDI父窗體只要( )。(多選) A在菜單中選擇工程添加MDI窗體 B在工具欄的添加按鈕的下拉菜單中選擇MDI窗體 C新建一個(gè)窗體，其將MDIChild屬性設(shè)為T(mén)rue D新建一個(gè)窗體，其將MDIChild屬性設(shè)為False 20要使MDI子窗體在加載時(shí)就自動(dòng)顯示出來(lái)，應(yīng)( )。 A將Scrollbars屬性設(shè)為T(mén)rue B將Scrollbars屬性設(shè)為False C將AutoShowChildren屬性設(shè)為T(mén)rue D將

11、AutoShowChildren屬性設(shè)為False 21使用MDI窗體時(shí)，對(duì)于下面的說(shuō)法選擇正確的選項(xiàng)( )。 A能在MDI窗體中打開(kāi)多個(gè)文檔界面 B子窗體是模式窗口 C子窗體的和父窗體能夠同時(shí)顯示自己的菜單 D如果子窗體的BorderStyle屬性為vbFixedToolWindow,其大小將不能改變22多窗體程序由多個(gè)窗體組成。在缺省情況下，VB在執(zhí)行應(yīng)用程序時(shí)，總是把( )指定為啟動(dòng)窗口。 A不包含任何控件的窗口B設(shè)計(jì)時(shí)的第一個(gè)窗體 C命名為Frm1的窗體D包含控件最多的窗體 23要使自定義的對(duì)話(huà)框Form1退出，可以在該對(duì)話(huà)框的“退出”按鈕的Click事件過(guò)程中使用以下( )中的一個(gè)語(yǔ)

12、句。(多選) AForm1.Unload BUnload Form1 CForm1.Hide DUnload Me 24MDI窗體的QueryUnload事件將在( )時(shí)候被觸發(fā)。(多選) A在代碼中使用Unload語(yǔ)句 B當(dāng)前Windows操作結(jié)束 C利用Windows任務(wù)管理器關(guān)閉應(yīng)用程序 DMDI窗體正在關(guān)閉 E窗體的所有者正在關(guān)閉 F雙擊窗體圖標(biāo)或選擇控制菜單中的“關(guān)閉”命令 二、填空題 1菜單編輯器的“標(biāo)題”選項(xiàng)對(duì)應(yīng)于菜單控件的_屬性。 菜單編輯器的“名稱(chēng)”選項(xiàng)對(duì)應(yīng)于菜單控件的_屬性。 菜單編輯器的“可見(jiàn)”選項(xiàng)對(duì)應(yīng)于菜單控件的_屬性。 菜單編輯器的“索引”選項(xiàng)對(duì)應(yīng)于菜單控件的_屬性。

13、 菜單編輯器的“復(fù)選”選項(xiàng)對(duì)應(yīng)于菜單控件的_屬性。 菜單編輯器的“有效”選項(xiàng)對(duì)應(yīng)于菜單控件的_屬性。 2菜單分為_(kāi)菜單和_菜單，菜單總與_相關(guān)聯(lián)，設(shè)計(jì)菜單需要在_中設(shè)計(jì)。 3不可以給_級(jí)菜單設(shè)置快捷鍵。 4菜單中的分隔條是一種菜單控件，但不響應(yīng)_事件，也不能被選中。 5為顯示彈出式菜單，可以使用_方法。 6如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“&”符號(hào)，那么該字母就成了熱鍵字母；如果在建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“_”，那么顯示時(shí)形成一個(gè)分隔符。 7如果把菜單項(xiàng)的_屬性設(shè)置為T(mén)rue，則該菜單項(xiàng)成為一個(gè)選項(xiàng)。 8不管是在窗口頂部菜單條上顯示的菜單，還是隱藏的菜單，都可以用_方法把它們作為菜單在

14、程序運(yùn)行期間顯示出來(lái)。 9菜單設(shè)計(jì)中每一個(gè)菜單項(xiàng)是一個(gè)控件，這些控件都只有一個(gè)_事件。 10為了能夠通過(guò)鍵盤(pán)訪(fǎng)問(wèn)主菜單項(xiàng)，可在菜單編輯器的“標(biāo)題”選項(xiàng)中的某字母前插入_符號(hào)。運(yùn)行時(shí)，該字母會(huì)帶有下劃線(xiàn)，按Alt鍵和該字母就可以訪(fǎng)問(wèn)相應(yīng)的主菜單項(xiàng)。 11彈出式菜單在_中設(shè)計(jì)，且一定要使其_級(jí)菜單不可見(jiàn)。 12要使用工具欄控件設(shè)計(jì)工具欄，應(yīng)先在“部件”對(duì)話(huà)框中選擇_，然后從工具箱中選_控件。 13設(shè)置工具欄控件的_屬性可以改變工具欄在窗體上的位置。 14要給工具欄按鈕添加圖像，應(yīng)首先在_控件中添加所需要的圖像，然后在工具欄的屬性頁(yè)中選擇與該控件相關(guān)聯(lián)。 15運(yùn)行時(shí)，要使工具欄ToolBar1中索引

15、值為5的按鈕無(wú)效，應(yīng)使用語(yǔ)句：_。 16要使工具欄控件的某按鈕呈菜單的式樣，可以在其屬性頁(yè)中設(shè)置其_選項(xiàng)為5-tbrDropDown。 17要使用狀態(tài)欄控件設(shè)計(jì)狀態(tài)欄，應(yīng)首先在“部件”對(duì)話(huà)框中選擇_，然后從工具箱中選擇_控件。 18狀態(tài)欄由多個(gè)“窗格”對(duì)象組成，“窗格”對(duì)象的特征是通過(guò)狀態(tài)欄的_屬性決定的。 19要在運(yùn)行時(shí)給狀態(tài)StstusBar1的第二個(gè)窗格添加一幅圖片，該圖片由文件“c:windowsglass.ico”指定，應(yīng)使用語(yǔ)句：_。 20SDI指_界面，MDI指_界面。 21要將某窗體定義為一個(gè)MDI子窗體，需要將其_屬性設(shè)置為T(mén)rue 22在一個(gè)MDI應(yīng)用程序中，可以含有_、_

16、、_這3類(lèi)窗體。 23一個(gè)應(yīng)用程序最多可以有_個(gè)MDI父窗體。 24在運(yùn)行時(shí)，MDI父窗體中的子窗體最小化時(shí)，其圖標(biāo)將顯示在_中。 6.2.2 答案與分析 一、選擇題(打“*”答案有分析) 【答案】 1A 2BD 3BD* 4D 5B 6A 7D 8A* 9D* 10A 11A 12B 13C 14D 15C 16A* 17C 18AD 19AB 20C 21A 22B23DB 24ABCDEF 【分析】 3菜單數(shù)組中各元素名稱(chēng)必須相同，且在同一級(jí)菜單下，菜單項(xiàng)必須連續(xù)(相鄰)，各元素的索引要惟一，索引值可從任一數(shù)開(kāi)始。 8在菜單中，菜單項(xiàng)只支持Click事件。 9在顯示彈出菜單后，執(zhí)行的代碼

17、是用戶(hù)選擇菜單項(xiàng)對(duì)應(yīng)的Click事件過(guò)程。 16PopupMenu 方法的語(yǔ)法為： object.PopupMenu menuname，flags 通過(guò)flags指定響應(yīng)鼠標(biāo)的方式：0 缺省值，僅當(dāng)使用鼠標(biāo)左按鈕時(shí)，彈出式菜單中的項(xiàng)目才響應(yīng)鼠標(biāo)單擊；2不論使用鼠標(biāo)右按鈕還是左按鈕，彈出式菜單中的項(xiàng)目都響應(yīng)鼠標(biāo)單擊。 二、填空題 【答案】 1Caption Name Visible Index Checked Enabled 2下拉式彈出式窗體菜單編輯器 3頂 4Click 5PopupMenu 6 7Checked 8PopupMenu 9Click 10& 11菜單編輯器頂 12Micros

18、oft Windows Common Controls 6.0 ToolBar 13Align 14ImageList 15ToolBar1.Buttons(5).Enabled=False 16Style(式樣) 17Microsoft Windows Common Controls 6.0 StatusBar 18Style(式樣) 19StatusBar1.Panels(2).Picture=LoadPicture(c:windowsglass.ico) 20單文檔多文檔 21MDIChild 22普通窗體MDI父窗體MDI子窗體 23一 24MDI父窗體 6.3 上機(jī)實(shí)習(xí) 6.3.1

19、題目 一、編程 1設(shè)計(jì)兩個(gè)窗體fstForm和sndForm，以fstForm為啟動(dòng)窗體，程序運(yùn)行后，單擊窗體fstForm，則卸載fstForm，然后顯示窗體sndForm；若用戶(hù)單擊sndForm窗體，則顯示fstForm,然后卸除sndForm。 2設(shè)計(jì)一個(gè)圖6-1所示的應(yīng)用程序界面。 編程要求： (1) 按表6-1要求設(shè)計(jì)菜單和快捷按鈕； 表6-1 (2)工具欄上的快捷按鈕與相應(yīng)的菜單項(xiàng)的事件代碼一致； (3)當(dāng)用戶(hù)選中某菜單項(xiàng)或快捷按鈕時(shí)進(jìn)行操作時(shí)，將該操作的狀態(tài)顯示在狀態(tài)欄左側(cè)的窗格上。 3設(shè)計(jì)一個(gè)圖6-2所示的由一個(gè)MDI窗體和3個(gè)MDI子窗體組成的MDI應(yīng)用程序界面。 圖6-1

20、 圖6-2 編程要求： (1) 執(zhí)行“層疊”、“平鋪”、“排列圖標(biāo)”子菜單項(xiàng)時(shí)，3個(gè)MDI子窗體分別按要求排列； (2) 單擊分隔條下方的某MDI子窗體名稱(chēng)時(shí)，該窗體名前出現(xiàn)“”，同時(shí)該窗體被激活； (3) 單擊某MDI子窗體的任意位置時(shí)，該窗體被激活，同時(shí)菜單中該窗體名前出現(xiàn)“”。(要求只有一個(gè)菜單中MDI子窗體名稱(chēng)前出現(xiàn)的”) 4試設(shè)計(jì)一個(gè)窗體，其上有兩個(gè)多行文本框和一個(gè)結(jié)束按鈕，并為兩個(gè)文本框設(shè)計(jì)彈出式菜單，以完成在兩個(gè)文本框之間完成剪切、復(fù)制和粘貼。 5設(shè)計(jì)一個(gè)程序?qū)崿F(xiàn)Windows系統(tǒng)的記事本的功能。 編程要求： (1) 程序中含有必要菜單； (2) 利用Windows的剪貼板對(duì)象C

21、lipboard實(shí)現(xiàn)對(duì)Windows剪貼板的操作。 6修改上題程序。 要求： (1) 增加工具欄、狀態(tài)欄，并為工具欄中的按鈕編寫(xiě)事件代碼； (2) 可同時(shí)編輯多個(gè)文件； (3) 可以改變窗口編輯框中的字體、顏色，可以排列窗口。 二、改錯(cuò)或填充 1在一個(gè)含有文本編輯框的編輯界面上，要求當(dāng)用戶(hù)在文本框上右擊鼠標(biāo)時(shí)彈出圖6-3所示的快捷菜單。完成該程序。 Private Sub Text1_ _(Button As Integer, Shift As Integer, X As Single, Y As Single) If _ Then _ mnuEdit End If End Sub 2在一個(gè)“

22、編輯”菜單，其中的“剪切”、“復(fù)制”菜單對(duì)象 名分別為submnuCut和submnuCopy，而文本框?qū)ο竺麨門(mén)ext1， 以下程序用來(lái)對(duì)“剪切”和“復(fù)制”菜單項(xiàng)的有效性進(jìn)行控制。試圖6-3 填充完成。 Private Sub Text1_ _(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Text1.SelLength _ Then submnuCut.Enabled = True submnuCopy.Enabled = True Else _ _ End If End Sub 3圖6-4是一個(gè)演示

23、MDI界面的程序。MDI父窗體中含一個(gè)菜單：菜單ChildForms(含有Open Childs和Close Childs菜單項(xiàng))和Window。執(zhí)行Open Childs將打開(kāi)所有(10個(gè))子窗體，且以不同的顏色顯示其窗口背景，執(zhí)行Close Childs則關(guān)閉所有打開(kāi)的子窗體；執(zhí)行Window菜單下的菜單項(xiàng)時(shí)，按要求排列圖標(biāo)；當(dāng)某一子窗體被激活時(shí)，該子窗體的標(biāo)題顯示“Ive been activated!”。完成此程序，改正其中的錯(cuò)誤。 圖6-4 父窗體的相關(guān)代碼 Dim DocumentForms(10) As New ChildForm Private Sub FormsClose_C

24、lick() Dim i As Integer For i = 0 To 9 Unload DocumentForms(i) Next End Sub Private Sub FormOpen_Click() Dim i As Integer For i = 0 To 9 DocumentForms.Show DocumentForms.ForeColor = QBColor(Rnd * 14 + 1) QBColor顏色函數(shù) DocumentForms.Caption = Document & Format(i) DocumentForms.Tag = i 控件的Tag屬性可用來(lái)存放運(yùn)行時(shí)所

25、需的數(shù)據(jù)Next End Sub Private Sub WindowArrange_Click() MDIForm1.Arrange vbArrangeIcons End Sub Private Sub WindowCascade_Click() MDIForm1.Arrange vbCascade End Sub Private Sub WindowTileH_Click() MDIForm1.Arrange vbTileHorizontal End Sub Private Sub WindowTileV_Click() MDIForm1.Arrange vbTileV ertical E

26、nd Sub 子窗體的相關(guān)代碼 Private Sub Form_Load() Me.Caption = Ive been activated! End Sub Private Sub Form_LostFocus() Me.Caption = Document & Format(i) End Sub 4. 在名稱(chēng)為Form1的窗體上畫(huà)兩個(gè)文本框，名稱(chēng)分別為T(mén)ext1和Text2，均無(wú)初始內(nèi)容；再建立一個(gè)下拉菜單，菜單標(biāo)題為“操作”，名稱(chēng)為M1，此菜單下含有兩個(gè)菜單項(xiàng)，名稱(chēng)分別為Copy和Clear，標(biāo)題分別為“復(fù)制”、“清除”，請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊“復(fù)制”菜單項(xiàng)，則把Te

27、xt1中的內(nèi)容復(fù)制到Text2中，單擊“清除”菜單項(xiàng)，則清除Text2中的內(nèi)容（即在Text2中填入空字符串）。運(yùn)行時(shí)的窗體如圖6-5所示。要求在程序中不得使用任何變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。 Private Sub clear_Click() _ End Sub Private Sub copy_Click() _ End Sub 6.3.2 編程提示 一、編程 1參考代碼： Private Sub Form_Click() Load sndForm sndForm.Show Unload Me End Sub 2編程要點(diǎn)： (1) 將用戶(hù)選擇操作顯示在窗格上，可用以下形式： Sta

28、tusBar1.Panels(1).Text = mnuOpen.Caption (2) 利用工具欄按鈕的Index 屬性，將按鈕的單擊事件共享菜單的單擊事件代碼。如： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib Button) Select Case Button.Index Case 1 mnuOpen_Click 3窗體的排列可利用MDI 父窗體的Arrange 方法，在進(jìn)行菜單設(shè)計(jì)時(shí)，選中“窗口”菜單項(xiàng)的WindowList 屬性。 4通過(guò)菜單設(shè)計(jì)器，設(shè)計(jì)兩個(gè)一級(jí)菜單分別用于兩個(gè)文本框的彈出式菜單，它們的Enabled 設(shè)為False 。在文本框的MouseDown 或MouseUp 事件中，調(diào)用PopupMenu 方法顯