Как отключить контекстное меню в TextBox'e

[Arro]

Проблема: хочу присвоить клику правой кнопки мышки по текстбоксу какую-нибудь команду, напр., Text1.Locked, однако постоянно выскакивает контекстная менюшка.

Как бы ее отключить?

[basicom]

попробуй её закомментировать, а вдруг получиться

[Arro]

Что закомментировать?

Наверное я невнятно изложил просьбу. Кликая правой кнопкой на текстбоксе (в run режиме) всегда выскакивает менюшка (copy-paste). Это жутко раздражает, и хотелось бы чтоб она не появлялась. Как этого можно добиться?

[GSerg]

Сабклассингом...
Просто блокируем WM_RBUTTONUP = &H205

[Aleksej]

Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then
Text1.Enabled = False
End If
End Sub

[kazah_]

Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then
Text1.Enabled = False
End If
End Sub

Так ты ее просто заблокируешь, а менбха все равно вылезет. Заччем тогда блокировать?

[John_mc]

Эта тема уже обсуждалась здесь недавно...

Я думаю, что лучше будет использовать Rich Text Box, вместо Text Box - И проблем не будет

[Arro]

2Alekej:

Так я уже делал. Чтоб потом включить тексбокс и избежать появление менюшки надо где-то 600 мс подождать, а это уже некрасиво.

2John_mc:

Не хочется за прогой весом 50 кб таскать повсюду контрол

2Gserg:

Спасибо, сабклассингом все получается. Только, если блокировать WM_RBUTTONUP, то мышка почему-то отключается до следующего щелчка, поэтому лучше заблакировать WM_RBUTTONDOWN=&H204 c тем же эффектом, но без этого глюка.

А еще лучше... Я просто отследил все мессаги, которые посылаются форточкам при правом клике текстбокса и попеременно отключая их, кажется, нашел ту, что отвечает как раз за вызов контекстного меню:

Код: Выделить всё

'-------------------------------------------------------------------
'Dec    Hex Win32Api.txt  [Если заблокировать...]
'-------------------------------------------------------------------
'132    84  unknown       [Нельзя мышкой выделить текстовое поле]
'33     21  unknown
'32     20  unknown       [Курсор над текстовым полем не меняется]
'516    204 RBUTTONDOWN
'533    215 unknown
'517    205 RBUTTONUP
'289    121 ENTERIDLE
'287    11F MENUSELECT
'123    7B  unknown       [От она !!!]
'-------------------------------------------------------------------

Видимо это некоторая WM_XXXX=&H7B.

[Aleksej]

Это:
Const WM_CONTEXTMENU As Long = &H7B

[Eduard]

А если можно по-подробнее о блокировки субклассингом, а то у меня сейчас такаежа проблемка, надо вообще что-бы ничего не появляловь при правом клике.

[Amed]

1) GSerg говорил уже...

Сабклассингом...
Просто блокируем WM_RBUTTONUP = &H205

2) См. www.vbnet.ru

[Eduard]

Так мне ндо вообще чтобы меню (Copy-Paste) не появлялось, вот я и хочу что бы ктото про этот пример мне с субклассингом рассказал или пример-бы дал.

P.S И потом вообще расскажите как этими субклассами пользоваться