VBNet - Форум - Как в TextBox поменять контекстное меню

Вопрос: Как в TextBox поменять контекстное меню Добавлено: 17.01.03 11:15

Автор вопроса: Alex Polovy | Web-сайт: нет

Как в textbox отключить стандартное контекстное меню
и заменить своим меню (как делать контектные меню я знаю).

Ответить

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

Номер ответа: 1 Автор ответа: Воронков Василий Вопросов: 1 Ответов: 90	Профиль \| Цитата \| #1	Добавлено: 20.01.03 11:15
	VB.NET - это, надеюсь, псевдоним? Т.е. на VB6 работаете? Тогда все просто до слез. Сначала его надо отключить (не помню, как точно свойство называется, но оно при дизайне доступно, так что найдете). А потом, соответственно, назначить. Для этого есть резервное слово PopupMenu [Название вашего меню]. Ответить

Номер ответа: 2
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | Цитата | #2

Добавлено: 21.01.03 02:38

Парочка вариантов на выбор:

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 "мессага"
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 mnuMyPopup
End If
End Sub

__________________2 (без API)_______________

Private Sub PopContextMenu(argoControl As Control, argoMenu As Control)
argoControl.Enabled = False
PopupMenu argoMenu
argoControl.Enabled = True
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopContextMenu Text1, MyPopup

End If
End Sub

Ответить

Номер ответа: 3
Автор ответа:

Виталиум!

Вопросов: 25
Ответов: 52

Web-сайт: www.infodoc.h1.ru
Профиль | Цитата | #3

Добавлено: 21.01.03 09:48

А мне кажется, что в текстбоксе нельзя отключить меню... Это в RichTextBox-е можно.

Хотя, если при нажатии на текстбокс прописать:

if button=2 then me.popupmenu [хендл на меню],,[пункт, выделенный жирным шрифтом]

то это меню забьет стандартное.

Пропробуй, если получится, то это самый экономичный вариант.

Удачи!

Ответить

Страница: 1 |