vb菜單與工具欄設(shè)計-課件

vb菜單與工具欄設(shè)計主要內(nèi)容:1.菜單設(shè)計2.彈出式菜單設(shè)計3.工具欄設(shè)計4.狀態(tài)欄設(shè)計vb菜單與工具欄設(shè)計ppt課件2021/3/261vb菜單與工具欄設(shè)計主要內(nèi)容:1.菜單設(shè)計2.彈出式菜單設(shè)計vb菜單與工具欄設(shè)計

在Windows中，菜單可以分為兩種基本類型：下拉式菜單和彈出式菜單。下拉式菜單一般通過單擊菜單欄中菜單名稱的方式打開，而彈出式菜單一般通過在某一區(qū)域右擊的方式打開。如圖4-1所示，分別是VB“工程”菜單的下拉式菜單和窗體的彈出式菜單。

vb菜單與工具欄設(shè)計ppt課件2021/3/262vb菜單與工具欄設(shè)計在Windows中，菜單可以vb菜單與工具欄設(shè)計

在VisualBasic中，菜單也是一個圖形對象，即控件。與其他控件一樣，菜單也需要定義它的外觀和屬性。在設(shè)計菜單和運行菜單時可以設(shè)置菜單的Caption屬性、Enable屬性、Visible屬性、Checked屬性及其他屬性。每個菜單項都可以接收Click事件，當(dāng)用鼠標(biāo)或鍵盤選中該菜單項時，將調(diào)用該事件。vb菜單與工具欄設(shè)計ppt課件2021/3/263vb菜單與工具欄設(shè)計在VisualBasicvb菜單與工具欄設(shè)計VisualBasic中，用菜單編輯器設(shè)計菜單和菜單項，或在已有的菜單上添加新菜單項、編輯已有的菜單選項以及修改和刪除已有的菜單和菜單項。進入菜單編輯器的方式有如下幾種：

l

選擇“工具”→“菜單編輯器”命令；

l

單擊常用工具欄中的“菜單編輯器”按鈕；

l

按Ctrl+E組合鍵；

l

在要建立菜單的窗體（此窗體為活動窗體）上右擊，在彈出的快捷菜單中選擇

“菜單編輯器”命令。彈出“菜單編輯器”對話框，如圖4-2所示。

vb菜單與工具欄設(shè)計ppt課件2021/3/264vb菜單與工具欄設(shè)計VisualBasic中，用圖4-2“菜單編輯器”對話框vb菜單與工具欄設(shè)計ppt課件2021/3/265圖4-2“菜單編輯器”對話框vb菜單與工具欄設(shè)計ppt“菜單編輯器”窗口分為3部分：數(shù)據(jù)區(qū)、編輯區(qū)和菜單項顯示區(qū)?，F(xiàn)分別介紹各部分的功能。1．?dāng)?shù)據(jù)區(qū)數(shù)據(jù)區(qū)是菜單控件的屬性區(qū)，用于輸入和修改菜單項、設(shè)置菜單項的屬性。由10個部分組成，各部分的作用如下。

（1）標(biāo)題：此文本框用于輸入所建立菜單的標(biāo)題及菜單中每個菜單項的標(biāo)題（相當(dāng)于菜單控件的Caption屬性），也是顯示在菜單中的字符，可以在標(biāo)題中設(shè)置熱鍵。如果要在菜單中添加一條分隔線，就在此輸入一個減號（-）。

vb菜單與工具欄設(shè)計ppt課件2021/3/266“菜單編輯器”窗口分為3部分：數(shù)據(jù)區(qū)、編輯區(qū)和菜單項顯示

（2）名稱：此文本框用于輸入所建立的菜單和各菜單項的控制名（即菜單控件的Name屬性），此項不在菜單中顯示出來。VisualBasic中的菜單和每個菜單項都是控件，所以都要有一個控制名（其Name屬性）。

（3）索引：此文本框用來為用戶建立的控件數(shù)組設(shè)立下標(biāo)，相當(dāng)于控件數(shù)組的Index屬性。

（4）快捷鍵：此下拉列表框用來設(shè)置與某菜單項等價的快捷鍵。在程序運行時，按下快捷鍵會立刻運行一個菜單項?？旖萱I的賦值包括功能鍵與控制鍵的組合，它們出現(xiàn)在菜單中相應(yīng)菜單項的右邊。

vb菜單與工具欄設(shè)計ppt課件2021/3/267（2）名稱：此文本框用于輸入所建立的菜單和各菜單項的控制名

（5）幫助上下文：此文本框用于輸入在幫助文件（用HelpFile屬性設(shè)置）中查找相應(yīng)的幫助主題的數(shù)值。

（6）協(xié)調(diào)位置：此下拉列表框用于確定相應(yīng)的菜單或菜單項的顯示位置。該下拉列表框中有4個選項，其作用如下：

l

0-None——菜單項不顯示；

l

1-Left——菜單項靠左顯示；

l

2-Middle——菜單項居中顯示；

l

3-Right——菜單項靠右顯示。vb菜單與工具欄設(shè)計ppt課件2021/3/268（5）幫助上下文：此文本框用于輸入在幫助文件（用HelpF

（7）復(fù)選：此復(fù)選框用于設(shè)置該菜單項標(biāo)記（即菜單項的Checked屬性），此選項通常是動態(tài)地加上或取消的，一般應(yīng)當(dāng)在程序代碼中，根據(jù)執(zhí)行情況設(shè)置。當(dāng)“復(fù)選”屬性設(shè)置為True時，可在相應(yīng)的菜單項旁加上標(biāo)記√，表明該菜單項當(dāng)前處于活動狀態(tài)。

（8）有效：該復(fù)選框用于設(shè)置菜單項的操作狀態(tài)（即Enable屬性）。默認(rèn)情況下，該屬性為True，表示該選項為有效，可以對用戶事件做出響應(yīng)。若設(shè)置該選項為False，則相應(yīng)的菜單項不響應(yīng)用戶事件。vb菜單與工具欄設(shè)計ppt課件2021/3/269（7）復(fù)選：此復(fù)選框用于設(shè)置該菜單項標(biāo)記（即菜單項的Che

（9）可見：該復(fù)選框用于確定相應(yīng)的菜單項是否可見（即Visible屬性）。若菜單項是可以執(zhí)行的，則其可見屬性為True，否則相應(yīng)的菜單項不能執(zhí)行，即其可見屬性為False。此時可以把它的“可見”屬性設(shè)置為True，那么該菜單項將重新出現(xiàn)在菜單中。

（10）顯示窗口列表：該復(fù)選框被選中（即框內(nèi)為√）時，將顯示當(dāng)前打開的一系列子窗口。該選項用于多文檔應(yīng)用程序。vb菜單與工具欄設(shè)計ppt課件2021/3/2610（9）可見：該復(fù)選框用于確定相應(yīng)的菜單項是否可見（即Vis2．編輯區(qū)編輯區(qū)有7個按鈕，用于對輸入的菜單項進行簡單編輯。菜單在數(shù)據(jù)區(qū)輸入，在菜單項顯示區(qū)顯示。這7個按鈕的作用如下:

（1）左、右箭頭：用來產(chǎn)生和取消內(nèi)縮符號。單擊一次右箭頭可以產(chǎn)生一個內(nèi)縮符號（4個點“....”），其作用是使當(dāng)前菜單項的層次下降一層；單擊一次左箭頭，可以刪除一個內(nèi)縮符號，其作用是使當(dāng)前菜單項的層次上升一層。vb菜單與工具欄設(shè)計ppt課件2021/3/26112．編輯區(qū)（1）左、右箭頭：用來產(chǎn)生和取消內(nèi)縮符號。單擊一

（2）上、下箭頭：用來在菜單項顯示區(qū)內(nèi)移動菜單項的位置。把條形光標(biāo)移動到某個菜單項上，單擊上箭頭將使該菜單項上移，單擊下箭頭將使該菜單項下移。

（3）下一個：新建一個菜單項（與按【Enter】鍵作用相同）。

（4）插入：在當(dāng)前菜單項之前插入一個新的菜單項。

（5）刪除：刪除當(dāng)前菜單項。vb菜單與工具欄設(shè)計ppt課件2021/3/2612（2）上、下箭頭：用來在菜單項顯示區(qū)內(nèi)移動菜單項的位置。把3．菜單項顯示區(qū)菜單項顯示區(qū)在菜單設(shè)計窗口的下面，輸入的菜單項在此區(qū)域顯示，不同菜單項的層次通過內(nèi)縮符號來表示。條形光標(biāo)所在的菜單項為“當(dāng)前菜單項”。

vb菜單與工具欄設(shè)計ppt課件2021/3/26133．菜單項顯示區(qū)vb菜單與工具欄設(shè)計ppt課件2021/3vb菜單與工具欄設(shè)計【例4-1】設(shè)計一個具有輸入、輸出和顯示功能的菜單，該菜單可以把輸入的一串字符顯示出來。分析：根據(jù)題意，可以分為兩個主菜單項，分別為“輸入信息”和“顯示信息”，它們各包括兩個子菜單項。

l

“輸入信息”包括“輸入”和“退出”。

l

“顯示信息”包括“顯示”和“清除”。建立菜單的具體操作步驟如下：

vb菜單與工具欄設(shè)計ppt課件2021/3/2614vb菜單與工具欄設(shè)計【例4-1】設(shè)計一個具有輸入、輸出和顯示（1）建立控件本例中需要輸入和輸出數(shù)據(jù)，因此需要建立一個文本框用以輸入數(shù)據(jù)，建立一個標(biāo)簽用以輸出數(shù)據(jù)，另外建立兩個標(biāo)簽作為提示，各控件的屬性設(shè)置如表4-1所示，窗體界面如圖4-3所示。此外，還要設(shè)置標(biāo)簽output的背景色及Label1和Label2的顯示方式，如圖4-4所示。

vb菜單與工具欄設(shè)計ppt課件2021/3/2615（1）建立控件vb菜單與工具欄設(shè)計ppt課件2021/3/圖4-3菜單控件設(shè)計

vb菜單與工具欄設(shè)計ppt課件2021/3/2616圖4-3菜單控件設(shè)計vb菜單與工具欄設(shè)計ppt課件2

圖4-4菜單項設(shè)計

vb菜單與工具欄設(shè)計ppt課件2021/3/2617圖4-4菜單項設(shè)計vb菜單與工具欄設(shè)計ppt課件2

（2）設(shè)計菜單

下面利用菜單編輯器來設(shè)計各個菜單項，在設(shè)計菜單控件時應(yīng)提供3種屬性：標(biāo)題、名稱和內(nèi)縮符號，一個內(nèi)縮符號表示一層子菜單，沒有內(nèi)縮符號表示主菜單項。本例中有兩個主菜單項，每個主菜單項有兩個子菜單。其屬性設(shè)置如表4-2所示。具體操作步驟如下：

①選擇“工具”→“菜單編輯器”命令，彈出“菜單編輯器”對話框。②在“標(biāo)題”文本框中輸入“輸入信息”（主菜單1），在菜單項顯示區(qū)中出現(xiàn)同樣的標(biāo)題名稱。vb菜單與工具欄設(shè)計ppt課件2021/3/2618（2）設(shè)計菜單①選擇“工具”→“菜單編輯器”命③按【Tab】鍵（或用鼠標(biāo)）把輸入光標(biāo)移到“名稱”文本框。④在“名稱”文本框中輸入“Input”，此時菜單項顯示區(qū)中沒有變化。⑤將此菜單項的Enable（有效）和Visible（可見）屬性都設(shè)置為True（本例中所有菜單項的此二屬性皆如此）。⑥單擊編輯區(qū)中的“下一個”按鈕，菜單項顯示區(qū)中的條形光標(biāo)下移，同時數(shù)據(jù)區(qū)的“標(biāo)題”文本框和“名稱”文本框被清空，光標(biāo)回到“標(biāo)題”文本框。⑦在“標(biāo)題”文本框中輸入“輸入”，該信息同時在菜單項顯示區(qū)中顯示出來。vb菜單與工具欄設(shè)計ppt課件2021/3/2619③按【Tab】鍵（或用鼠標(biāo)）把輸入光標(biāo)移到“名稱”文本⑨單擊編輯區(qū)的右箭頭，菜單顯示區(qū)中的“輸入”右移，同時其左側(cè)出現(xiàn)一個內(nèi)縮符號（….），表明“輸入”是“輸入信息”的下一級菜單。⑩單擊“快捷鍵”下拉列表框右端的下拉按鈕，選擇【Ctrl+I】作為“輸入”菜單項的快捷鍵，此時，在該菜單項右側(cè)出現(xiàn)Ctrl+I。單擊編輯區(qū)中的“下一個”按鈕，菜單項顯示區(qū)的條形光標(biāo)下移，左端自動出現(xiàn)內(nèi)縮符號“….”。在“標(biāo)題”文本框內(nèi)輸入“退出”，然后在“名稱”文本框內(nèi)輸入“Quit”作為菜單項的名稱。

單擊“快捷鍵”下拉列表框右端的下拉按鈕，從中選出【Ctrl+Q】組合鍵作為“退出”菜單項的快捷鍵。

vb菜單與工具欄設(shè)計ppt課件2021/3/2620⑨單擊編輯區(qū)的右箭頭，菜單顯示區(qū)中的“輸入”右移，同

建立主菜單項“顯示信息”及其兩個子菜單項的操作與上面所述的各步驟類似，不再重復(fù)。設(shè)計完成后的窗口如圖4-4所示。此時，單擊右上角的“確定”按鈕，菜單的建立工作全部結(jié)束。設(shè)計完成后，窗體的頂行顯示主菜單項，單擊某個主菜單項，即可顯示下拉菜單，如圖4-5所示。

vb菜單與工具欄設(shè)計ppt課件2021/3/2621建立主菜單項“顯示信息”及其兩個子菜單項的操作與上面

（3）為事件過程編寫代碼如前所述，每個菜單項（包括主菜單項和子菜單項）都可以接收Click事件。每個子菜單項都對應(yīng)一個Click事件過程。即程序運行后，只要單擊某個子菜單項，就可以執(zhí)行事件過程所定義的操作。

每個菜單項對應(yīng)一個控件。菜單設(shè)計完成后，窗體上顯示出如圖4-5所示的菜單項，此時只要單擊某個子菜單項，即可編寫該菜單項的過程。例如，完成菜單設(shè)計后，單擊“輸入信息”菜單項，顯示“輸入”和“退出”子菜單項，如果單擊“輸入”子菜單項，則進入程序代碼窗口，并顯示：

vb菜單與工具欄設(shè)計ppt課件2021/3/2622（3）為事件過程編寫代碼每個菜單項對應(yīng)一個控件。菜PrivateSubIput_Click()輸入菜單代碼

Text1.Text=""EndSubPrivateSubdisp_Click()顯示菜單代碼

output.Caption=Text1.TextEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2623PrivateSubIput_Click()輸入菜PrivateSubclear_Click()清除菜單代碼

Text1.Text=""output.Caption=""EndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2624PrivateSubclear_Click()清除菜單vb菜單與工具欄設(shè)計

在VisualBasic中，菜單也是圖形對象，即控件，所以可以運用數(shù)組的概念。菜單控件數(shù)組的作用主要有以下兩方面：（1）用于動態(tài)地增加和刪除菜單項；（2）簡化了編程過程，用一段代碼處理多個菜單項?！纠?-2】設(shè)計一個簡易的文本編輯器，具有新建、編輯和保存一般文本文件的功能，如圖4-7所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2625vb菜單與工具欄設(shè)計在Visual圖4-7簡易文本編輯器

vb菜單與工具欄設(shè)計ppt課件2021/3/2626圖4-7簡易文本編輯器vb菜單與工具欄設(shè)計ppt課件建立此菜單的具體操作步驟如下：（1）建立菜單控件由于本菜單中有文本的輸入和顯示操作、文件的操作（如“打開”、“保存”等），因此需要有文本框和對話框，還應(yīng)設(shè)置文本的多行屬性和滾動條，如圖4-8所示。

（2）設(shè)計菜單此文本編輯器的每一菜單的下拉菜單中的菜單項是通過菜單控件數(shù)組完成的，只需指定其Index屬性值即可。打開菜單編輯器，按表4-3所示輸入每一個菜單項的各個屬性。所建立的菜單如圖4-9所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2627建立此菜單的具體操作步驟如下：（2）設(shè)計菜單vb菜圖4-8建立菜單控件vb菜單與工具欄設(shè)計ppt課件2021/3/2628圖4-8建立菜單控件vb菜單與工具欄設(shè)計ppt課件2圖4-9用菜單控件數(shù)組建立菜單

vb菜單與工具欄設(shè)計ppt課件2021/3/2629圖4-9用菜單控件數(shù)組建立菜單vb菜單與工具欄設(shè)計p

（3）編寫事件過程代碼菜單建立好以后，還需要為每一個事件過程編寫相應(yīng)的代碼。下面是每一個菜單項的代碼?！拔募辈藛蔚母鱾€菜單項對應(yīng)的事件代碼如下：PrivateSub(IndexAsInteger)n=IndexSelectCasenCase0

'新建

Text1.Text=""Form1.Caption="未命名"vb菜單與工具欄設(shè)計ppt課件2021/3/2630（3）編寫事件過程代碼“文件”菜單的各個菜單項對應(yīng)

Case1 ‘打開子菜單

CommonDialog1.ShowOpen

'顯示“打開”對話框

fname=CommonDialog1.Iffname<>""ThenText1.Text=""OpenfnameForInputAs#1b=""DoUntilEOF(1)LineInput#1,nextlineb=b&nextline&Chr(13)&Chr(10)LoopClose#1Text1.Text=bEndIfForm1.Caption=fnamevb菜單與工具欄設(shè)計ppt課件2021/3/2631Case1

Case2

‘保存子菜單

IfForm1.Caption="未命名"OrForm1.Caption=""ThenCommonDialog1.ShowSave '顯示“另存為”對話框

fname=CommonDialog1.Elsefname=Form1.CaptionEndIfIffname<>""ThenOpenfnameForOutputAs#1Print#1,Text1.TextClose#1EndIfvb菜單與工具欄設(shè)計ppt課件2021/3/2632Case2

‘保存子

Case3

‘另存為子菜單

CommonDialog1.ShowSave'顯示“另存為”對話框

fname=CommonDialog1.Iffname<>""ThenOpenfnameForOutputAs#1Print#1,Text1.TextClose#1EndIfCase4

‘關(guān)閉子菜單

Text1.Text=""EndEndSelectText1.SetFocusEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2633Case3

‘另存為子菜單“編輯”菜單的各個菜單項對應(yīng)的事件代碼如下：PrivateSubEdi_Click(IndexAsInteger)i=IndexSelectCaseiCase0

'剪切

Clipboard.SetTextText1.SelTextText1.SelText=""Case1

'復(fù)制

Clipboard.SetTextText1.SelTextCase2

'粘貼

Text1.SelText=Clipboard.GetText()Case3

'清除

Text1.SelText=""EndSelectEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2634“編輯”菜單的各個菜單項對應(yīng)的事件代碼如下：vb菜單與工具欄vb菜單與工具欄設(shè)計

雖然下拉式菜單能夠根據(jù)程序的運行情況動態(tài)地調(diào)整其可見性、有效性，也可以動態(tài)地增減菜單項，但其對用戶的當(dāng)前操作跟蹤不夠。而彈出式菜單能以靈活的方式為用戶提供更方便的操作。彈出式菜單是獨立于窗體菜單欄而顯示在窗體內(nèi)的浮動菜單。彈出式菜單在窗體內(nèi)的位置取決于單擊鼠標(biāo)鍵（通常單擊右鍵）時指針的位置，彈出式菜單也稱為“上下文菜單”或“快捷菜單”。vb菜單與工具欄設(shè)計ppt課件2021/3/2635vb菜單與工具欄設(shè)計雖然下拉式菜單能夠根據(jù)程建立彈出式菜單的具體操作步驟如下：（1）先用菜單編輯器建立菜單。此步驟與下拉式菜單建立方法相同，區(qū)別在于必須把主菜單項的“可見（Visible）”屬性設(shè)置為False。（2）用PopupMenu方法彈出顯示。PopupMenu方法用來顯示彈出式菜單，其格式如下：[<窗體名>.]PopupMenu<菜單名>[,Flags[,X[,Y[,BoldCommand]]]]vb菜單與工具欄設(shè)計ppt課件2021/3/2636建立彈出式菜單的具體操作步驟如下：vb菜單與工具欄設(shè)計pp說明：①PopupMenu方法有6個參數(shù)，只有<菜單名>是必選的，其余都是可選的。省略<窗體名>時，在當(dāng)前窗體內(nèi)打開彈出式菜單，如果需要在非當(dāng)前窗體中打開彈出式菜單時，必須指定窗體名。②<菜單名>是在菜單編輯器中定義的主菜單項名。③Flags參數(shù)是一個數(shù)值或符號常量，用來指定彈出式菜單的位置及行為，其取值分為兩組，如表4-4和表4-5所示，一組用于指定菜單位置，另一組用于定義特殊的菜單行為。這兩組參數(shù)可以單獨使用，也可以聯(lián)合使用。當(dāng)聯(lián)合使用時，每組中取一個常數(shù)，兩個常數(shù)相加；若每組中取一個符號常量，則此兩個常量用or相連。vb菜單與工具欄設(shè)計ppt課件2021/3/2637說明：vb菜單與工具欄設(shè)計ppt課件2021/3/2637④X、Y分別用來指定彈出式菜單在窗體上的顯示位置，X為橫坐標(biāo)，Y為縱坐標(biāo)，一般與Flags參數(shù)配合使用。二者省略時，彈出式菜單在鼠標(biāo)光標(biāo)的當(dāng)前位置顯示。如果這幾個參數(shù)都省略，則當(dāng)右擊彈出菜單時，鼠標(biāo)光標(biāo)所在位置為彈出式菜單左上角的坐標(biāo)。系統(tǒng)默認(rèn)窗體左上角為坐標(biāo)原點；如果省略Flags參數(shù)，不省略X、Y參數(shù)，則X、Y為彈出式菜單左上角的坐標(biāo)；如果同時使用這幾個參數(shù)，則彈出式菜單的位置分為以下幾種情況。Flags=0

'X、Y為彈出式菜單左上角的坐標(biāo)Flags=4

'X、Y為彈出式菜單頂邊中間的坐標(biāo)Flags=8

'X、Y為彈出式菜單右上角的坐標(biāo)vb菜單與工具欄設(shè)計ppt課件2021/3/2638④X、Y分別用來指定彈出式菜單在窗體上的顯示⑤要彈出菜單，通常的做法是把PopupMenu方法放在ＭouseDown事件中，該事件響應(yīng)所有的鼠標(biāo)單擊操作。一般情況下右擊顯示彈出式菜單，這可以用Button參數(shù)來實現(xiàn)。對于兩個鍵的鼠標(biāo)來說，左鍵的Button參數(shù)值為1，右鍵的Button參數(shù)值為2。所以可以用下面的語句實現(xiàn)在右擊時響應(yīng)MouseDown事件，顯示彈出式菜單。IfButton=2ThenPopupMenu菜單名vb菜單與工具欄設(shè)計ppt課件2021/3/2639⑤要彈出菜單，通常的做法是把PopupMe【例4-3】在例4-1中實現(xiàn)彈出式菜單，在文本顯示區(qū)域右擊時可以設(shè)置字體格式。其具體操作步驟如下：

（1）打開在例4-1中建立的窗體，再打開菜單編輯器，設(shè)置各個菜單項的屬性，其屬性如表4-6所示，用菜單編輯器設(shè)計的結(jié)果如圖4-10所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2640【例4-3】在例4-1中實現(xiàn)彈出式菜單，在文本顯示區(qū)域右擊時圖4-10建立彈出式菜單

vb菜單與工具欄設(shè)計ppt課件2021/3/2641圖4-10建立彈出式菜單vb菜單與工具欄設(shè)計ppt課（2）編輯標(biāo)簽的MouseDown事件過程。PrivateSuboutput_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,-YAsSingle)IfButton=2ThenPopupMenupopformatEndIfEndSub

此過程中的條件語句用來判斷所按下的是否是鼠標(biāo)右鍵，如果是，則用PopupMenu方法彈出菜單。運行程序，然后在標(biāo)簽output內(nèi)右擊，將彈出一個菜單，如圖4-11所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2642（2）編輯標(biāo)簽的MouseDown事件過程。vb菜單與工具欄圖4-11顯示彈出式菜單

vb菜單與工具欄設(shè)計ppt課件2021/3/2643圖4-11顯示彈出式菜單vb菜單與工具欄設(shè)計ppt課

（3）為每個子菜單項編寫事件過程代碼。在編寫下拉式菜單過程代碼時，通常是在窗體中單擊主菜單項，顯示子菜單，然后雙擊某個子菜單項，進入代碼窗口，即可編寫該菜單項的事件過程代碼。而彈出式菜單的主菜單項是不可見的（其Visible屬性為False），不能在窗體頂部顯示，所以不能通過雙擊子菜單項的方式進入代碼窗口，必須先進入代碼窗口（選擇“視圖”→“代碼”命令，或按【F7】鍵，或雙擊窗體），然后單擊“對象”下拉列表框右端的下拉按鈕，顯示各個子菜單項，再單擊某個子菜單項，將顯示該子菜單項的事件過程代碼框架，然后可在該框架內(nèi)編寫代碼。vb菜單與工具欄設(shè)計ppt課件2021/3/2644（3）為每個子菜單項編寫事件過程代碼。vb菜單與工各子菜單項的事件過程代碼如下：PrivateSubpopBold_Click()粗體菜單

output.FontBold=TrueEndSubPrivateSubpopItalic_Click()斜體菜單

output.FontItalic=TrueEndSubPrivateSubpopUndrli_Click()下劃線菜單

output.FontUnderline=TrueEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2645各子菜單項的事件過程代碼如下：vb菜單與工具欄設(shè)計ppt課PrivateSubfont20pt_Click()

output.FontSize=20EndSubPrivateSubfontLs_Click()output.FontName="隸書"EndSubPrivateSubQit_Click()EndEndSub

運行上面的程序后，用彈出式菜單設(shè)置標(biāo)簽內(nèi)數(shù)據(jù)的屬性，如圖4-12所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2646PrivateSubfont20pt_Click()

圖4-12彈出式菜單程序運行結(jié)果

vb菜單與工具欄設(shè)計ppt課件2021/3/2647圖4-12彈出式菜單程序運行結(jié)果vb菜單與工具欄設(shè)計vb菜單與工具欄設(shè)計

工具欄（也稱為發(fā)條或者控制欄）已經(jīng)成為許多基于Windows應(yīng)用程序的標(biāo)準(zhǔn)功能。工具欄提供了對于應(yīng)用程序中最常用的菜單命令的快速訪問。制作工具欄有兩種方法：一是手工制作，即利用圖形框和命令按鈕，比較煩瑣；另一種方法通過組合使用ToolBar、ImageList控件，使得工具欄制作與菜單制作一樣簡單易學(xué)。vb菜單與工具欄設(shè)計ppt課件2021/3/2648vb菜單與工具欄設(shè)計工具欄（也稱為發(fā)條或者控

用手工方式制作工具欄的具體操作步驟如下：（1）在窗體中添加一個圖片框（作為工具按鈕的容器），通過設(shè)置圖片框的Align屬性來控制工具欄（圖片框）在窗體中的位置。當(dāng)改變窗體的大小時，Align屬性值非0的圖片框會自動改變大小以適應(yīng)窗體的寬度或高度。（2）選定圖片框，在圖片框中添加任何想在工具欄中顯示的控件，通常使用的控件有命令按鈕、圖形方式的選項按鈕、復(fù)選框按鈕和下拉列表框等。vb菜單與工具欄設(shè)計ppt課件2021/3/2649用手工方式制作工具欄的具體操作步驟如下：vb菜單

（3）設(shè)置控件的屬性。通常在工具按鈕上通過不同的圖像來表示對應(yīng)的功能，還可以設(shè)置按鈕的ToolTipText屬性為工具按鈕添加工具提示。

圖4-13帶工具欄的簡易文本編輯器（4）編寫代碼。由于工具按鈕通常用于提供對其他（菜單）命令迅速快捷地訪問，所以一般都是在其Click事件代碼中調(diào)用對應(yīng)的菜單命令。vb菜單與工具欄設(shè)計ppt課件2021/3/2650（3）設(shè)置控件的屬性。通常在工具按鈕上通過不同的圖像【例4-4】為例4-2中的簡易文本編輯器增加一個自定義的工具欄，如圖4-13所示。在例4-2的基礎(chǔ)上作如下修改。

（1）修改應(yīng)用程序用戶界面。在窗體上增加一個圖片框Picture1，然后在圖片框中增加一個命令按鈕數(shù)組Command1(0)～Command1(2)和復(fù)選框數(shù)組Check1(0)～Check1(2)。

（2）設(shè)置新增對象屬性，如表4-7所示。（3）修改及編寫程序代碼。vb菜單與工具欄設(shè)計ppt課件2021/3/2651【例4-4】為例4-2中的簡易文本編輯器增加一個自定義的工具修改窗體的事件代碼如下：PrivateSubForm_Resize()WithText1Left=0Top=Picture1.HeightHeight=Form1.ScaleHeight-Picture1.HeightWidth=Form1.ScaleWidthEndWithEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2652修改窗體的事件代碼如下：vb菜單與工具欄設(shè)計ppt課件20編寫命令按鈕數(shù)組Command1()的Click事件代碼如下：PrivateSubCommand1_Click(indexAsInteger)(index)EndSub編寫復(fù)選框數(shù)組Check1()的事件代碼如下：PrivateSubCheck1_Click(indexAsInteger)Edi_Click(index)EndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2653編寫命令按鈕數(shù)組Command1()的Click事件代碼如下vb菜單與工具欄設(shè)計

使用ToolBar控件和ImageList控件來創(chuàng)建工具欄非常容易且很方便。在使用這些控件前必須打開“部件”對話框，選擇MicrosoftWindowsCommonControls6.0選項，將控件添加到工具中，如圖4-14所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2654vb菜單與工具欄設(shè)計使用ToolBar控件和圖4-14添加控件到工具箱

vb菜單與工具欄設(shè)計ppt課件2021/3/2655圖4-14添加控件到工具箱vb菜單與工具欄設(shè)計ppt1．ToolBar控件控件的插入：在工具箱中選擇ToolBar控件，然后在窗體中畫出控件?？丶傩缘脑O(shè)置：（1）通過設(shè)置ToolBar的Align屬性可以控制工具欄在窗體中的位置。當(dāng)改變窗體的大小時，Align屬性值非0的ToolBar控件會自動地改變大小以適應(yīng)窗體的寬度或高度。（2）右擊窗體上的ToolBar控件，在彈出的快捷菜單中選擇“屬性（Properties）”命令或者選中窗體上的ToolBar控件后在屬性窗口單擊“自定義（Custom）”下拉列表框右側(cè)的下拉按鈕，都可以打開ToolBar的“屬性”對話框，如圖4-15所示。vb菜單與工具欄設(shè)計ppt課件2021/3/26561．ToolBar控件vb菜單與工具欄設(shè)計ppt課件202圖4-15“屬性頁”對話框

vb菜單與工具欄設(shè)計ppt課件2021/3/2657圖4-15“屬性頁”對話框vb菜單與工具欄設(shè)計ppt“通用”選項卡中的“圖像列表”屬性用來與ImageList控件建立關(guān)聯(lián)（見圖4-16），“按鈕”選項卡用來在ToolBar控件中添加按鈕（見圖4-17）。圖4-16與ImageList控件建立關(guān)聯(lián)

vb菜單與工具欄設(shè)計ppt課件2021/3/2658“通用”選項卡中的“圖像列表”屬性用來與Im圖4-17在ToolBar中添加按鈕

vb菜單與工具欄設(shè)計ppt課件2021/3/2659圖4-17在ToolBar中添加按鈕vb菜單與工具欄設(shè)“按鈕”選項卡的各項功能如下。插入刪除按鈕：在按鈕集合中添加或刪除按鈕元素索引和關(guān)鍵字：工具欄中的每個按鈕都有唯一的標(biāo)識，即索引和關(guān)鍵字。索引是整型，關(guān)鍵字是字符串型，訪問按鈕時可以引用二者之一。標(biāo)題和描述：標(biāo)題是顯示在按鈕上的文字，描述是按鈕的說明信息。值：決定按鈕的狀態(tài)，0-tbrUnpressed為彈起狀態(tài)，1-tbrPressed為按下狀態(tài)。樣式：決定按鈕的行為特點，并且將影響按鈕的功能，如表4-8所示。寬度：當(dāng)Style屬性值為4時，可設(shè)置按鈕的寬度。圖像：按鈕上顯示的圖片在ImageList控件中的編號工具提示文本：程序運行時，當(dāng)鼠標(biāo)指向按鈕時顯示的說明性文字。vb菜單與工具欄設(shè)計ppt課件2021/3/2660“按鈕”選項卡的各項功能如下。vb菜單與工2．ImageList控件工具欄（ToolBar）本身沒有Picture屬性，不能直接添加按鈕上顯示的圖片。VisualBasic專門提供了圖像列表控件ImageList，此控件不單獨使用，專門為其他控件提供圖像庫，是一個圖像容器控件。工具欄按鈕的圖像就是通過ToolBar控件從ImageList的圖像庫中獲得的?？丶牟迦耄涸赥oolBar控件所在的窗體中添加ImageList控件及其圖片，然后建立ToolBar和ImageList控件之間的關(guān)聯(lián)，最后從ImageList控件的圖片庫中選擇需要的圖像加載到工具欄按鈕上。

vb菜單與工具欄設(shè)計ppt課件2021/3/26612．ImageList控件vb菜單與工具欄設(shè)計ppt課件23．創(chuàng)建工具欄的步驟（1）有窗體中插入工具欄控件（如ToolBar1）和一個圖像列表控件（如Imagelist1），并設(shè)置工具欄控件的Align屬性。（2）在Imagelist控件中添加所需的圖像。（3）在ToolBar控件中創(chuàng)建按鈕（Button）對象。（4）在工具欄（如ToolBar1）的ButtonClick事件中用SelectCase語句對各按鈕進行相應(yīng)的編程。vb菜單與工具欄設(shè)計ppt課件2021/3/26623．創(chuàng)建工具欄的步驟vb菜單與工具欄設(shè)計ppt課件2021【例4-5】使用工具欄控件重新設(shè)計例4-4中的簡易文本編輯器，如圖4-18所示。圖4-18利用工具欄控件設(shè)計的帶工具欄的簡易文本編輯器vb菜單與工具欄設(shè)計ppt課件2021/3/2663【例4-5】使用工具欄控件重新設(shè)計例4-4中的簡易文本編輯器

在例4-2的基礎(chǔ)上進行操作。（1）修改應(yīng)用程序用戶界面。將窗體上的圖片框及其中的命令按鈕及復(fù)選框刪除，再添加一個工具欄控件ToolBar1和一個圖像列表控件ImageList1。設(shè)置ToolBar1的Align屬性為1-cdlAligntop，如圖4-19所示。（2）通過“屬性”對話框設(shè)置工具欄控件與圖像列表控件的屬性。先選中圖像列表控件ImageList1并右擊，在彈出的快捷菜單中選擇“屬性”命令即可打開“屬性頁”對話框，切換到“圖像”選項卡，單擊“插入圖片”按鈕，并依次從common\graphic\bitmaps\tlbr_w95目錄中選取圖片文件New.bmp、Open.bmp、Save.bmp、Cut.bmp、Copy.bmp、Paste.bmp，如圖4-20所示，單擊“確定”按鈕關(guān)閉“屬性頁”對話框。vb菜單與工具欄設(shè)計ppt課件2021/3/2664在例4-2的基礎(chǔ)上進行操作。vb菜單與工具欄設(shè)圖4-19添加工具欄控件vb菜單與工具欄設(shè)計ppt課件2021/3/2665圖4-19添加工具欄控件vb菜單與工具欄設(shè)計ppt課圖4-20向圖像列表控件ImageList1中添加圖像vb菜單與工具欄設(shè)計ppt課件2021/3/2666圖4-20向圖像列表控件ImageList1中添加圖像

（3）選中工具欄控件ToolBar1，打開“屬性頁”對話框。切換到“通用”選項卡，將“圖像列表”屬性改為ImageList1，建立與圖像列表框的關(guān)聯(lián)。切換到“按鈕”選項卡，依次插入按鈕，如表4-9所示。單擊“確定”按鈕，關(guān)閉“屬性頁”對話框。添加了工具欄的窗體如圖4-21所示。vb菜單與工具欄設(shè)計ppt課件2021/3/2667（3）選中工具欄控件ToolBar1，打開“屬性頁圖4-21向工具欄中添加按鈕vb菜單與工具欄設(shè)計ppt課件2021/3/2668圖4-21向工具欄中添加按鈕vb菜單與工具欄設(shè)計pp（4）修改及編寫程序代碼。修改窗體的事件代碼如下：PrivateSubForm_Resize()WithText1Left=0Top=Toolbar1.HeightHeight=Form1.ScaleHeight-Toolbar1.HeightWidth=Form1.ScaleWidthEndWithEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2669（4）修改及編寫程序代碼。vb菜單與工具欄設(shè)計ppt課件2編寫工具欄按鈕的事件代碼如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)n=Button.indexSelectCasenCase2,3,4(n-2)Case6,7,8Edi_Click(n-6)EndSelectEndSubvb菜單與工具欄設(shè)計ppt課件2021/3/2670編寫工具欄按鈕的事件代碼如下：vb菜單與工具欄設(shè)計ppt課vb菜單與工具欄設(shè)計VisualBasic6.0提供了功能強大的ActiveX控件，其中CoolBar、ToolBar控件可以用來制作Windows