Программирование
Веб программирование

Меню в vb

 
 

Для создания контекстного меню создадим новый проект. На форму кинем кнопку, и создадим обычное меню. У первого раздела уберем свойство Visible, чтобы его не было видно.

У кнопки событие Event поставь MouseUp(при нажатии на кнопку мыши)

Теперь код:

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then ' Если нажата 2 кнопка мыши то: (1 кнопка левая, 2 - правая, 3 - средняя; также можно написать vbRightButton - правая кнопка, vbLeftButton - левая)
Form1.PopupMenu A, , , , S ' Здесь A - это имя первого раздела, а S - имя того раздела, который будет выделен
End If
End Sub

Есть вопросы? Спроси на нашем форуме!!
Мишка) [11.08.2010 17:09]

Я не понял код...
Form1.PopupMenu A, , , , S — вообще не понятно.
Как мне прописывать команду дальше? Чтобы в контекстном меню тыкнул на что-то и что-то произошло!
Автор, я конечно понимаю, что своими словами понятнее, но поясняй яснее окей?

Капитан [23.08.2010 00:05]

Мишка)
всё очень понятно A - имя главного меню который выводится при нажатие правого кнопка мауса на кнопке S - это имя компонента который будет выбран (визуалн темного цвета) а там , , , ,,упушены ненужные,, элементы например y и х координаты которые автоматически ровны к координатам мауса

Гость [08.07.2011 13:08]

Имя A вписали в Name. Form1.PopupMenu A или Form1.PopupMenu A,100,200 или по другому.

Алексей [12.11.2011 15:08]

Здравствуйте, а как теперь сделать, чтобы при нажатии на меню списка выполнялась какая-нибудь команда?

Артём [15.04.2012 16:58]

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
If Button = vbLeftButton Then
Form1.PopupMenu File, , , n
End If
End Sub

где n-Нет, File это самый верхний Popup

Ivan40 [17.07.2013 19:26]

Тут написано 2 кода на одну кнопку Command1. Я на неё нажимаю и мне выдаётся ошибка, больше ничего не происходит. Так какой из 2 кодов мне писать на кнопку Command1?

v19307310 [29.10.2013 22:45]

...ау!!!....люди добрые!!!...кто ни будь скиньте ссылку где скачать нормальный vb6 , только не торент.....
озолочу пятисоткой на сотик ваш

MaZeSa60 [29.10.2013 23:05]

http://vbbook.ru/download-vb/ ети плохие?

MaZeSa60 [29.10.2013 23:06]

если не качает попробуй через Download Master



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.