Visual-Basic第6章菜單設(shè)計(jì)課件

1、第6章 菜單設(shè)計(jì)菜單是Windows系統(tǒng)下應(yīng)用程序界面中非常重要的交互元素。在應(yīng)用程序中使用菜單能夠使應(yīng)用程序界面更加直觀，為應(yīng)用程序與用戶提供更方便快捷的交互方式。6.1 下拉式菜單下拉菜單是一種典型的窗口式菜單1.菜單編輯器菜單編輯器用于在界面設(shè)計(jì)階段創(chuàng)建新的菜單和菜單欄4種方法可以打開(kāi)“菜單編輯器”窗口。方法1：?jiǎn)螕簟肮ぞ摺薄安藛尉庉嬈鳌辈藛蚊?；方?：?jiǎn)螕艄ぞ邫谏系摹安藛尉庉嬈鳌眻D標(biāo)；方法3：直接使用快捷鍵；方法4：在要建立菜單的窗體上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中單擊“菜單編輯器”命令。6.1 下拉式菜單6.1 下拉式菜單屬性區(qū)編輯區(qū)列表框6.1 下拉式菜單2建立下拉式菜單在菜單

2、設(shè)計(jì)和運(yùn)行時(shí)，可以通過(guò)對(duì)菜單的Caption屬性、Enabled屬性及Visual屬性進(jìn)行設(shè)置。在Visual Basic 6.0程序設(shè)計(jì)中，用菜單編輯器來(lái)完成菜單的創(chuàng)建。6.1 下拉式菜單實(shí)訓(xùn)項(xiàng)目仿照IE瀏覽器創(chuàng)建菜單。菜單包含一級(jí)菜單文件、編輯。文件菜單項(xiàng)中包含子菜單項(xiàng)新建、打開(kāi)、保存和退出，其中新建子菜單包含二級(jí)子菜單文件和文件夾；編輯菜單中包含剪切、復(fù)制和粘貼菜單項(xiàng)。6.2 彈出式菜單彈出式菜單又稱為快捷菜單，只有在單擊鼠標(biāo)右鍵的時(shí)候會(huì)顯示出來(lái)。和下拉式菜單一樣，彈出式菜單也是用“菜單編輯器”設(shè)計(jì)出來(lái)的。6.2 彈出式菜單1. 彈出式菜單的建立與現(xiàn)實(shí) 彈出式菜單的創(chuàng)建方法與下拉式菜單的

3、創(chuàng)建方法基本一致，只是彈出式菜單在窗體中通過(guò)右鍵單擊來(lái)激活。因此，在創(chuàng)建彈出式菜單時(shí)，需要將菜單的可見(jiàn)性設(shè)置為不可見(jiàn)。顯示彈出式菜單，應(yīng)該在代碼中調(diào)用PopupMenu方法，其語(yǔ)法格式如下：object.PopupMenu menuname ,flags ,x ,y ,boldcommand6.2 彈出式菜單Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then 是否是鼠標(biāo)右鍵 PopupMenu mnuHelp

4、End IfEnd Sub6.2 彈出式菜單2.使用彈出式菜單要注意的問(wèn)題把頂級(jí)菜單控件的Visible屬性設(shè)置為false并不是設(shè)計(jì)彈出式菜單的一個(gè)必要條件。6.3 菜單項(xiàng)的控制在菜單的下拉選項(xiàng)中，登陸菜單項(xiàng)為灰色，即為不可操作項(xiàng)。6.3 菜單項(xiàng)的控制1.有效性控制Private Sub Form_load()MenuFileNewFold.Enabled = FalseEnd SubPrivate Sub Form_load()MenuFileNewFold.Enabled = TrueEnd Sub6.3 菜單項(xiàng)的控制2.菜單項(xiàng)標(biāo)記Private Sub Form_load() Menu

5、FileOpen.Chceked = TrueEnd Sub6.3 菜單項(xiàng)的控制3. 菜單項(xiàng)的增減菜單項(xiàng)的增減是通過(guò)控件數(shù)組來(lái)實(shí)現(xiàn)的。一個(gè)控件數(shù)組還有若干個(gè)控件，這些控件的名稱相同，所使用的事件過(guò)程相同，但其中的每個(gè)元素可以有自己的屬性。和普通數(shù)組一樣，可以通過(guò)下標(biāo)(Index)訪問(wèn)空間數(shù)組中的元素。控件數(shù)組可以在設(shè)計(jì)階段建立，也可以在運(yùn)行時(shí)建立。6.3 菜單項(xiàng)的控制Dim I As IntegerPrivate Sub Form_Click()If I = 0 Then N(I).Caption = 全選 N(I).Visible = True I = I + 1 N(I).Caption

6、= 查找 N(I).Visible = True End IfEnd SubPrivate Sub Form_DblClick()If I = 1 Then N(I).Caption = 查找 N(I).Visible = False I = I - 1 N(I).Caption = 全選 N(I).Visible = False End IfEnd Sub6.4 綜合實(shí)訓(xùn)菜單是應(yīng)用程序窗口基本的組成元素之一，菜單使用菜單編輯器來(lái)創(chuàng)建，菜單的唯一事件是Click事件。彈出式菜單的創(chuàng)建也是使用菜單編輯器，使用PopupMenu方法顯示彈出式菜單。Private Sub mnuInputEmp_Click()單擊輸入人員信息菜單 Form1.ShowEnd SubPrivate Sub mnuInputSa_Click()單擊輸入人員工資菜單 Form2.ShowEnd SubPrivate Sub mnuInputExit_Click()單擊退出菜單 EndEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integ