【正文】 中是否有文本被選擇來(lái)決定菜單是否生效 ， 該功能由子程序 SetEnabledValue來(lái)負(fù)責(zé) 。 比如 SetText用于設(shè)置剪切板中的文本 ， 而 GetText方法取出剪切板的 。有兩種方法： 1) Toolbar 控件的“屬性頁(yè)”中的“圖象列表” 組合框列出了窗體中所有的 ImageList控件名稱，選中需要的那個(gè) ImageList控件 2) 在運(yùn)行時(shí)建立關(guān)聯(lián)，只需將 ToolBar控件的ImageList屬性設(shè)置為 ImageList控件的名稱，如下： Set = ImageList1 添加工具欄的按鈕 ? 工具欄管理了一組按鈕，因此包含的是按鈕對(duì)象的集合（類似于數(shù)組），即 ToolBar的 Buttons屬性。使粘貼菜單生效 End Sub 39。比如： Sub mnuFileExit_Click() Unload Me End Sub 使用復(fù)選標(biāo)記 ? 設(shè)計(jì)時(shí)加上復(fù)選標(biāo)志 ? Checked屬性為 TRUE，則加“ √”標(biāo)記 ? Checked屬性為 FALSE，則無(wú)標(biāo)記 菜單示例 【 例 】 設(shè)計(jì)文本框，利用菜單命令改變文本框字體效果（粗體、斜體和下劃線），并實(shí)現(xiàn)文本的剪切、復(fù)制和粘貼，要求控制剪切、復(fù)制和粘貼菜單的可用性，以保證符合操作邏輯，如 【 粘貼 】 菜單項(xiàng)在剪切板為空時(shí)應(yīng)無(wú)效。 菜單示例 ——使用復(fù)選標(biāo)記 ? 文本框字體效果可以通過(guò)設(shè)置文本框的 FontBold、FontItalic和 FontUnderline屬性來(lái)實(shí)現(xiàn)， 每次按下后這些屬性應(yīng)該與原值相反 ，同時(shí)也要將 菜單控件的 Checked屬性變反 ，使菜單選擇標(biāo)志與字體相吻合。 粘貼菜單被按下 Private Sub mnuEditPaste_Click() = 39。集合中的每個(gè)按鈕有唯一的索引號(hào)，在插入時(shí)自動(dòng)順序遞增，不需要人工設(shè)置（也可以設(shè)置關(guān)鍵字） ? 打開 Toolbar的“屬性頁(yè)”，在“按鈕”選項(xiàng)卡中插入按鈕，填寫按鈕“關(guān)鍵字”，填寫“圖象”的索引號(hào)（對(duì)應(yīng)于 ImageList控件中的圖像索引號(hào)） ? 選擇按鈕樣式： tbrDefault, tbrCheck, tbrSeparator, tbrButtonGroup, tbrPlaceholder等 ? 其它設(shè)置項(xiàng)都是可選的，比如若指定了按鈕的“標(biāo)題”，則在圖像之上還會(huì)顯示指定的標(biāo)題文字 添加工具欄的按鈕 ? 工具欄管理了一組按鈕，因此包含的是按鈕對(duì)象的集合（類似于數(shù)組），即 ToolBar的 Buttons屬性。 該對(duì)象沒(méi)有屬性 ， 只提供幾個(gè)方法 。 粗體菜單被按下 Private Sub mnuFontBold_Click() = Not = No