Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Перехват контекстного меню Добавлено: 29.10.03 05:33  

Автор вопроса:  Calhoon | Web-сайт: 4elovekssn.blog.ru | ICQ: 789764 
Как создать при клике правой кнопкой мыши свое меню? То есть запретить стандартное и вызвать свое методом PopupMenu.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #1 		Добавлено: 29.10.03 06:07

где, на каком контроле надо меню перехватывать??? Если на TextBox, то на тебе код:

'на форме меню mnuMyPopMenu, Visible = False
'2 подменю: mnuFirst и mnuSecond

Option Explicit
Private Const WM_RBUTTONDOWN = &H204
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub mnuFirst_Click()
 MsgBox "12345"
End Sub

Private Sub mnuSecond_Click()
 Unload Me
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
 Call SendMessage(Form1.hwnd, WM_RBUTTONDOWN, 0, 0&;)
 Me.PopupMenu mnuMyPopMenu
End If
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам