Как в TextBox изменить всплывающее меню на другое?

[Vitaliy]

При клике правой кнопкой мыши на текстбоксе в VB6 (да и других версиях) появляется стандартное меню (типа "Вырезать","Копировать",
"Вставить" и др.). Каким образом вместо этого меню выводить то, которое мне нужно; или хотя бы как вообще от него избавиться (в смысле, ОТ СТАНДАРТНОГО меню)?. ПОМОГИТЕ!!!

[Rainbow]

Есть маленькая хитрость:


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

If Button = vbRightButton Then
Text1.Enabled = False
PopupMenu mnuYourMenu
Text1.Enabled = True
End If

End Sub

[Vitaliy]

Спасибо Rainbow!!!
А еще хотелось бы в стандартное меню свой пункт вставить...

[alibek]

В этой хитрости есть один небольшой недостаток
Если Text1 был в фокусе, то после Text1.Enabled=False фокус потеряется

[Vi]

А также исходное меню доступно по Shift+F10 на клавиатуре

[John_mc]

А можно текстбокс заменить на RichTextBox - Проблем не будет. Я сделал так же!

[Rainbow]

Сколько вы тут всего правильного написали!
Попробуем разобраться:

2 alibek - можно считать, что правый клик это аналог левого клика и насильно выставлять фокус в этот текстбокс. В конце концов, над ним будут операции производиться

2 Vi - можно поймать событие Text1_KeyDown и обработать Shift + F10 также, как правй клик

2 Vitali - честно признаться, не знаю, можно ли вставить свой пункт меню в стандартное... Но реализовать самому аналоги совсем не сложно

2 John_mc - Идея, однако! Думаю, так и надо сделать!

[goro]

А еще зайди на vbaccelerator.com и поищи там.

[gaidar]

честно признаться, не знаю, можно ли вставить свой пункт меню в стандартное... Но реализовать самому аналоги совсем не сложно

Можно! Прогуляйся до www.pscode.com и посмотри в поиске что-то вроде windows menu, там пара примеров валяется.
Только Rainbow как всегда права, зачем извращаться, если такое меню самому слепить ничего не стоит? Это даже лучше, чем перехватывать системное и подрисовывать пункт. На мно-о-ого строчек кода меньше.

[A.A.Z.]

В этой хитрости есть один небольшой недостаток
Если Text1 был в фокусе, то после Text1.Enabled=False фокус потеряется

Дык можно же запомнить номер символа, затем Text1.SetFocus, и поставить программно курсор на то же место.