• <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年10月>
            
	
            日一二三四五六
            30123456
            78910111213
            14151617181920
            21222324252627
            28293031123
            45678910
            

            

            
			
			

            常用鏈接
            


            留言簿(34)
            




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




            搜索
            

              
	
            • 
		
            •  
	
              • 

            


            最新評(píng)論
	
            

            
	
			
		

            


            閱讀排行榜
            



            評(píng)論排行榜
            


            		
	

            

            
	
					


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

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

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

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

            







            
	    
    




            



            


            

	
            
		
		
            只有注冊用戶登錄后才能發(fā)表評(píng)論。
            
		
            
		
				
		
		
		
            
		
            			
		
		
		
		
            
		
            
			
		
            
		
            
			
		
            
		
            
			
            網(wǎng)站導(dǎo)航:
			博客園  
			IT新聞  
			BlogJava  			
			博問  
			Chat2DB  
			管理
			
            		
		
            
		
            
			
				

            


            

            		
		
            
	
            	

            



            

				
	



            


    
    







            
	   
	



人妻无码久久精品|
伊人色综合久久天天人守人婷
|
欧美日韩中文字幕久久久不卡|
国产精品久久久天天影视香蕉|
久久精品国产99国产精偷|
日韩精品无码久久一区二区三|
久久婷婷国产剧情内射白浆
|
久久国产免费直播|
国产精品久久久久乳精品爆|
中文字幕无码免费久久|
久久综合欧美成人|
亚洲精品无码久久久久久|
韩国三级中文字幕hd久久精品|
亚洲AV无码成人网站久久精品大|
A级毛片无码久久精品免费|
性欧美丰满熟妇XXXX性久久久
|
精品一区二区久久|
色婷婷综合久久久久中文一区二区|
久久久久亚洲av毛片大|
国产激情久久久久影院老熟女|
亚洲va久久久噜噜噜久久|
理论片午午伦夜理片久久
|
亚洲一区中文字幕久久|
99久久精品费精品国产一区二区|
人人妻久久人人澡人人爽人人精品|
国产成人精品久久|
久久伊人精品青青草原高清|
99久久这里只有精品|
久久久无码精品亚洲日韩按摩
|
久久天天躁狠狠躁夜夜avapp
|
国产一区二区精品久久|
九九精品99久久久香蕉|
亚洲香蕉网久久综合影视|
伊人久久大香线蕉成人|
伊人久久亚洲综合影院|
久久天天躁狠狠躁夜夜不卡
|
久久有码中文字幕|
久久中文精品无码中文字幕|
亚洲精品无码久久久|
亚洲人成无码www久久久|
久久精品一区二区三区AV|