Как создать контекстное меню -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.5]

Модераторы: SCINER, B.V.

Как создать контекстное меню

miksayer

Сообщ. #1 , 15.05.04, 07:13

Master

Профиль · PM

Поощрения: 39 Dgm

Рейтинг (т): 64

Создайте меню с имнем mnuPopup и несколько подменю. У mnuPopup установите свойство Visible в False.
Теперь пишите:

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

If Button = vbRightButton Then

Me.PopupMenu mnuPopup, X, Y, mnuExit

End If

End Sub

Теперь объясню поподробней:
Там, где стоит mnuExit нужно указать имя пункта меню, который должен выделяться жирным шрифтом(можно указать только один пункт меню)Там, где X это расположение меню по иксу, а там, где Y расположение меню по игрику. Вместо mnuPopup нужно указать имя контекстного меню.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0782 ] [ 16 queries used ] [ Generated: 4.11.25, 06:18 GMT ]