[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Как заблокировать стандартное контекстное меню (Как заблокировать стандартное контекстное меню)
Как заблокировать стандартное контекстное меню
ilimДата: Среда, 09.11.2011, 22:31 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
'Данный пример покажет, как можно заблокировать стандартное контекстное
'меню элемента TextBox. Расположите на форме TextBox, а также создайте
'невидимое меню mnuText и как минимум одно подменю. Запустите проект,
'нажмите правой клавишей мыши на TextBox'е.


Private Declare Function LockWindowUpdate Lib "User32" (ByVal hwndLock As Long) As Long

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
LockWindowUpdate Text1.hWnd
Text1.Enabled = False
DoEvents
PopupMenu mnuText
Text1.Enabled = True
LockWindowUpdate 0&
End If
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Как заблокировать стандартное контекстное меню (Как заблокировать стандартное контекстное меню)
Страница 1 из 11
Поиск: