Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: Меню после нажатия правой кнопки
     
    
Добавлено: 15.04.07 14:31
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
     WFS
 WFS
      
       
  
Как сделать так, чтобы после нажатия правой кнопки мыши появлялось меню, и как обработать события, содержащиеся в этом меню?
 
    
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 8
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа: Павел
 Павел






Администратор
ICQ: 326066673 
Вопросов: 368
Ответов: 5968
      
 Web-сайт:  
 Профиль |  | #1
      
Добавлено:  15.04.07 15:00
       
    
       
  
VB6 или .NET?
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа: Programmer
 Programmer



Вопросов: 71
Ответов: 246
      
 Профиль |  | #2
       
Добавлено:  15.04.07 15:12
       
    
       
  
Me.PopupMenu MenuName
 
    
MenuName - Имя меню, с свойством Visible = False.
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа: WFS
 WFS


Вопросов: 12
Ответов: 19
      
 Профиль |  | #3
       
Добавлено:  15.04.07 16:10
       
    
       
  
Версия 6.
 
    
Где вообще находится сам компонент "падающее меню"?
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа: D o c a l
 D o c a l 










ICQ: 408802757 
Вопросов: 76
Ответов: 985
      
 Web-сайт:  
 Профиль |  | #4
      
Добавлено:  15.04.07 17:16
       
    
       
  
Нажми правой клавишей на форме -там и на ходитса.
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 5 
      
Автор ответа: Arseny
 Arseny


ICQ: 298826769 
Вопросов: 53
Ответов: 1732
      
 Профиль |  | #5
       
Добавлено:  15.04.07 18:49
       
    
       
  
Меню "Tools"->"Menu editor..." (или соответствующая кнопка на панели инструментов).
 
    
Делаешь обычное меню, подменю и т.д.
Можно включить Visible=False, если его не надо видеть в обычном режиме. А дальше, как справедливо заметил programmer
ИмяФормы.PopupMenu MenuName, в событии MouseDown. Например:
Private Sub Form_MouseDown(Button As Integer, 
    If Button=2 then Me.PopupMenu MyMenu
End Sub
То бишь меню будет выпадать при нажатой правой кнопке крысы.
		
	  
			 
	
		 
    
       
    
Номер ответа: 6 
      
Автор ответа: Arseny
 Arseny


ICQ: 298826769 
Вопросов: 53
Ответов: 1732
      
 Профиль |  | #6
       
Добавлено:  15.04.07 18:50
       
    
       
  
 
    
Shift As Integer, X As Single, Y As Single) 
    If Button=2 then Me.PopupMenu MyMenu 
End Sub
Извиняюсь, не так захватил...  
		
	  
			 
	
		 
    
       
    
Номер ответа: 7 
      
Автор ответа: WFS
 WFS


Вопросов: 12
Ответов: 19
      
 Профиль |  | #7
       
Добавлено:  15.04.07 21:12
       
    
       
  
Че то не получается. Пишет , что типа в меню должно быть хотя бы одно подменю, хотя я сделал их целых 2
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 8 
      
Автор ответа: WFS
 WFS


Вопросов: 12
Ответов: 19
      
 Профиль |  | #8
       
Добавлено:  15.04.07 21:21
       
    
       
  
Все, получилось. Я просто заново меню переделал.
 
    
Спасибо