Как заблокировать стандартное контекстное меню

'Данный пример покажет, как можно заблокировать стандартное контекстное
'меню элемента 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

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как заблокировать стандартное контекстное меню", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!