计算机程式Visual BASIC 程式设计

按一下以編輯母片標題樣式,按一下以編輯母片本文樣式,第二階層,第三階層,第四階層,第五階層,*,計算機程式Visual BASIC 程式設計,四海工商專校 電算中心,E-Mail:,1,Chapter 7 VB功能表,1. 一般,功能表,2. 快顯功能表,3. 工具列,2,1. 功能表,的建立,功能表編輯器,建立新的功能表,在現有的功能表上新增指令項目,用自己的指令來取代現有的功能表指令,修改或刪除現有的功能表,開啟功能表編輯器,工具/功能表編輯器,工具列 /功能表編輯器按鈕,3,功能表,編輯器的屬性,Name(名稱) :,功能表控制項的名稱,Caption(,標題) :,出現在功能表控制項上的文字,Caption,屬性設為減號字元（,-,）:,表示一個分隔線,分隔線可把功能表項目劃分成若干個組別,4,功能表控制項,功能表標題:,位於清單方塊中左側平齊的功能表控制項,功能表項目:,被縮排一次的功能表控制項,次功能表標題:,縮排一次的功能表控制項後面，還緊跟著再次縮排的一些功能表控制項,次功能表控制項,在次功能表標題之下縮排的各個功能表控制項，就成為該次功能表的項目,5,功能表項的分隔,以一條水平線隔開功能表中不同性質的控制項,無法作為分隔線:,功能表標題,帶有次功能表控制項,被核取、或暫止,具有快速鍵，那麼就,6,對應鍵,使用方法:,使用,ALT,鍵+對應鍵字元開啟一功能表,功能表開啟之後，按下對應鍵字元選取控制項。,例如:,ALT + E,鍵開啟編輯功能表,再,P,鍵可選取貼上功能表項,在功能表控制項的標題中，帶底線的字母就是對應鍵字元,7,快速鍵,使用快速鍵時，程式會立刻執行一個功能表控制項目的功能,快速鍵的指定:,功能鍵與控制鍵的組合,如,CTRL + F1,或,CTRL + A,快速鍵會出現在功能表中相應功能表項的右邊,8,功能表標題準則(Caption 屬性的設定),同一功能表中應當是唯一,不同功能表中相似功能項目，仍可用相同名稱,簡短的名詞或數個名詞的組合,每個項目應有一個唯一的對應鍵字元,通常使用功能表標題的英文名稱的第一個字母，,兩個功能表標題無法用同一個對應字元,項目名稱儘量簡短,9,功能表命名準則,功能表控制項字首 :,mnu,最上層功能表名稱,如,mnuFile,次功能表命名,在上層名稱後再緊跟著次功能表的標題,如,mnu,10,建立次功能表,每個功能表可以包含最多五層的次功能表,次功能表會在上層功能表旁邊另外產生出一個功能表，以顯示它自己的功能表項目,需要使用到次功能表場合有：,功能表列已滿,較少被使用的特殊功能,要突顯出某一功能表控制項與其上層功能表項目的相依性,11,功能表控制項陣列 (,Index 屬性),同一功能表上功能表控制項組成的一個集合物件,共用相同名稱和事件程序,索引值,功能表編輯器裏的 Index 屬性,當某控制項陣列成員發生某個事件時，將其 Index 屬性值做為一個引數傳遞給事件程序,事件程序內檢查 Index 屬性值以判斷是那個元件的事件,。,12,核取記號 (Checked 屬性),使用,Checked,屬性顯示一個核取記號在功能表上,告訴使用者某種開關的狀態,指示正在使用的工作模式,功能表編輯器中 /可核取,執行階段 :,從程式碼中設定,Checked,屬性,Private Sub mnuOptions_Click,（）,根據,Visible,屬性設定核取記號的狀態。,mnuOptionsToolbar.Checked = picToolbar.Visible,End Sub,13,隱藏功能表控制項 (Visible 屬性),設計階段 : 選取可看見核取方塊,等於設定了功能表控制項的 Visible 屬性的初始,執行階段 : 從程式碼中設定其 Visible 屬性,mnu,（,0,）,.Visible = True,顯示控制項,mnu,（,0,）,.Visible = False,隱藏控制項,14,隱藏功能表控制項,隱藏功能表控制項,同一功能表中的其它控制項自動往上移,隱藏功能表列上的控制項,功能表列上其餘控制項往左移以填補該空間,控制項暫時失效,透過功能表、對應鍵或快速鍵都暫時無法存取,隱藏功能表標題，該功能表標題所屬控制項均無效,15,為功能表控制項撰寫程式碼,Click,事件 :,所有功能表控制項,除了分隔線,除了暫止的或隱藏的功能表控制項,Sub mnu,（）,Unload Me,End Sub,16,2. 快顯功能表,是獨立於功能表列之外的浮動式功能表,滑鼠右鍵來啟動,又稱內容功能表,所顯示出來的項目，依使用者按下滑鼠右鍵時滑鼠的位置而定,執行階段，只要是含有一個以上功能表控制項的任何功能表，都可以作為快顯功能表,17,PopupMenu,方法,語法,:,object.PopupMenu menuname , flags ,x , y , boldcommand ,Private Sub Form_MouseUp,（,Button As Integer, Shift As _,Integer, X As Single, Y As Single,）,If Button = 2 Then,檢查使用者是否按下滑鼠右鍵。,PopupMenu mnuFile,把檔案功能表顯示為一個快顯功能表。,End If,End Sub,快顯功能表的作用會持續到有一項功能被選取了，或者是使用者取消了這個功能表的時後，程式才會繼續執行 PopupMenu 敘述之後的程式碼,18,Flags,引數,位置常數,vbPopupMenuLeftAlign,預設值。指定的 x 座標定義了該快顯功能表的左邊界,vbPopupMenuCenterAlign,快顯功能表以指定的 x 座標為中心,vbPopupMenuRightAlign,指定的 x 座標定義了該快顯功能表的右邊界,行為常數,vbPopupMenuLeftButton,預設值。只有當使用者在某個功能表項目上按一下滑鼠左鍵時，才顯示快顯功能表,vbPopupMenuRightButton,不管使用者用在某個功能表項目上，按一下滑鼠右鍵或者左鍵，都會顯示快顯功能表,指定旗標的方式,從各組中選取一個常數，再用 Or 運算子將它們連起來,19,Example,Private Sub Command1_Click,（）, X,變數和,Y,變數,Dim xloc, yloc,設定,X,變數和,Y,變數到表單中心,xloc = ScaleWidth / 2,yloc = ScaleHeight / 2,顯示快顯功能表,PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _,vbPopupMenuRightButton, xloc, yloc,End Sub,20,Boldcommand,引數,指定快顯功能表中，那個項目要以粗體字顯示,在快顯功能表中只能有一個功能表項目是用粗體顯示,21,