• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>

    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>

            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            

    
            

            




            







												


        




            
	
		


            隨筆 - 298 
文章 - 377 
trackbacks - 0


             
	

            

            
	
		
            
			
            
	
            
		
            <2007年8月>
            
	
            日一二三四五六
            2930311234
            567891011
            12131415161718
            19202122232425
            2627282930311
            2345678
            

            

            
			
			

            常用鏈接
            


            留言簿(34)
            




		
            隨筆分類
            
		
				
			
	
		
            隨筆檔案
            
		
				
			
	
		
            文章檔案
            
		
				
			
	
		
            相冊
            
		
				
			
	
		
            收藏夾
            
		
				
			
	




            搜索
            

              
	
            • 
		
            •  
	
              • 

            


            最新評論
	
            

            
	
			
		

            


            閱讀排行榜
            



            評論排行榜
            


            		
	

            

            
	
					


            
	
	Word中的右鍵彈出菜單也是保存在CommandBars集合中。可以通過辨識Type屬性來列出這些彈出菜單。彈出菜單的Type為   msoBarTypePopup。如下為列出所有Word彈出菜單名稱的代碼。你可以從其中查找你所需要添加菜單項的彈出菜單的序號。   
                
            

              For   i   =   1   To   CommandBars.Count   
                
                          If   CommandBars(i).Type   =   msoBarTypePopup   Then   
                        
                      Debug.Print   i               &   "   -   "   &   CommandBars(i).Name   
                        
                          End   If   
                
                          Next   
            

                
              對于添加菜單項和顯示彈出菜單，請使用如下樣例代碼（其中47為彈出菜單的序號，您可以從上段代碼中找出）：   
                
              Dim   oBtn   As   CommandBarButton   
              Set   oBtn   =   CommandBars(47).Controls.Add(Type:=msoControlButton,   Temporary:=False)   
                
              oBtn.Caption   =   "Test   Button"   
              oBtn.OnAction   =   "TestBtnClick"   ‘請另外添加一sub并起名為TestBtnClick用來相應新菜單項的點擊事件   
                
              顯示彈出菜單   
              CommandBars(47).ShowPopup   
            

	
            posted on 2007-04-20 11:00 聶文龍 閱讀(512) 評論(0)  編輯 收藏 引用  
            

            







            
	    
    




            






            

				
	



            


    
    







            
	   
	



国产AV影片久久久久久|
久久天堂AV综合合色蜜桃网|
欧美亚洲国产精品久久蜜芽
|
久久午夜无码鲁丝片午夜精品|
久久国产精品99久久久久久老狼
|
99精品久久精品一区二区|
久久久久久久综合综合狠狠|
久久www免费人成看片|
国产精品久久久久久|
色婷婷噜噜久久国产精品12p
|
无码国内精品久久人妻蜜桃|
aaa级精品久久久国产片|
青青草国产97免久久费观看|
亚洲精品蜜桃久久久久久|
亚洲一区二区三区日本久久九|
久久久精品国产|
国产精品久久久久9999高清|
久久青青草视频|
91精品无码久久久久久五月天|
久久久久精品国产亚洲AV无码|
99久久精品免费|
色婷婷综合久久久中文字幕
|
久久国产精品-国产精品|
区亚洲欧美一级久久精品亚洲精品成人网久久久久
|
国产成人无码精品久久久免费
|
国产精品女同一区二区久久|
亚洲国产精品无码久久久秋霞2|
国产日韩久久久精品影院首页|
色欲久久久天天天综合网|
人妻系列无码专区久久五月天|
成人免费网站久久久|
无码超乳爆乳中文字幕久久|
人妻少妇精品久久|
久久精品成人免费国产片小草|
国产精品一久久香蕉国产线看
|
婷婷久久香蕉五月综合加勒比|
色诱久久av|
日本亚洲色大成网站WWW久久
|
欧美精品乱码99久久蜜桃|
亚洲欧美一级久久精品|
亚洲精品成人久久久|