第9章菜單和工具欄-文庫(kù)吧在線文庫(kù)
【正文】 As Single ? Dim h As Single ? Private Sub Form_Load() ? w = ? h = ? End Sub ? Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? If Button = 2 Then ? PopupMenu mnuchange ? End If ? End Sub ? Private Sub mnularge_Click() ? = * ? = * ? End Sub ? Private Sub mnuresize_Click () ? = w ? = h ? End Sub ? Private Sub mnusmall_Click() ? = * ? = * ? End Sub 創(chuàng)建工具欄 ? 工具欄提供了對(duì)于應(yīng)用程序中最常用的菜單命令的快速訪問(wèn) , 是許多基于 Windows的應(yīng)用程序的標(biāo)準(zhǔn)功能 ? VB中有兩種方法創(chuàng)建工具欄 – 手工方式 : 使用 PictureBox和 Image控件或CommandButton控件 , 按鈕的效果需要手工控制 – ActiveX控件 ToolBar和 ImageList控件 , 自動(dòng)實(shí)現(xiàn)各種按鈕顯示效果 使用 ToolBar控件創(chuàng)建工具欄 部件 Microsoft Windows Common Controls \windows\system\ 一般步驟： ? 添加 ImageList控件，在此控件中放入合適的圖象，每個(gè)圖象都定義一個(gè)關(guān)鍵字 ? 添加 ToolBar控件，與 ImageList控件關(guān)聯(lián) ? 在 ToolBar控件的屬性頁(yè)中創(chuàng)建 Button對(duì)象 ? 在 ButtonClick事件中用 SelectCase語(yǔ)句確定按下了哪個(gè)按鈕，并根據(jù)按鈕調(diào)用響應(yīng)的操作 使用 ToolBar控件創(chuàng)建工具欄 制作工具欄需要使用兩個(gè) ActiveX控件： ? ImageList控件： 它管理所有要用到的按鈕圖片，運(yùn)行時(shí)不可見(jiàn)。 比如 SetText用于設(shè)置剪切板中的文本 ， 而 GetText方法取出剪切板的 。刪除文本框選中的文字 = True 39。 斜體菜單被按下 Private Sub mnuFontItalic_Click() = Not = Not End Sub Private sub mnufontunderline_click() Mnufontunderline,checke
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1