Страница: 1 |
Страница: 1 |
Вопрос: Меню после нажатия правой кнопки
Добавлено: 15.04.07 14:31
Автор вопроса: WFS
Как сделать так, чтобы после нажатия правой кнопки мыши появлялось меню, и как обработать события, содержащиеся в этом меню?
Ответы
Всего ответов: 8
Номер ответа: 1
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #1
Добавлено: 15.04.07 15:00
VB6 или .NET?
Номер ответа: 2
Автор ответа:
Programmer
Вопросов: 71
Ответов: 246
Профиль | | #2
Добавлено: 15.04.07 15:12
Me.PopupMenu MenuName
MenuName - Имя меню, с свойством Visible = False.
Номер ответа: 3
Автор ответа:
WFS
Вопросов: 12
Ответов: 19
Профиль | | #3
Добавлено: 15.04.07 16:10
Версия 6.
Где вообще находится сам компонент "падающее меню"?
Номер ответа: 4
Автор ответа:
D o c a l
ICQ: 408802757
Вопросов: 76
Ответов: 985
Web-сайт:
Профиль | | #4
Добавлено: 15.04.07 17:16
Нажми правой клавишей на форме -там и на ходитса.
Номер ответа: 5
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #5
Добавлено: 15.04.07 18:49
Меню "Tools"->"Menu editor..." (или соответствующая кнопка на панели инструментов).
Делаешь обычное меню, подменю и т.д.
Можно включить Visible=False, если его не надо видеть в обычном режиме. А дальше, как справедливо заметил programmer
ИмяФормы.PopupMenu MenuName, в событии MouseDown. Например:
Private Sub Form_MouseDown(Button As Integer,
If Button=2 then Me.PopupMenu MyMenu
End Sub
То бишь меню будет выпадать при нажатой правой кнопке крысы.
Номер ответа: 6
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #6
Добавлено: 15.04.07 18:50
Shift As Integer, X As Single, Y As Single)
If Button=2 then Me.PopupMenu MyMenu
End Sub
Извиняюсь, не так захватил...
Номер ответа: 7
Автор ответа:
WFS
Вопросов: 12
Ответов: 19
Профиль | | #7
Добавлено: 15.04.07 21:12
Че то не получается. Пишет , что типа в меню должно быть хотя бы одно подменю, хотя я сделал их целых 2
Номер ответа: 8
Автор ответа:
WFS
Вопросов: 12
Ответов: 19
Профиль | | #8
Добавлено: 15.04.07 21:21
Все, получилось. Я просто заново меню переделал.
Спасибо