Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=54243&view=findpost&p=358655 Sat, 15 May 2004 07:13:40 +0000 Как создать контекстное меню https://forum.sources.ru/index.php?showtopic=54243&view=findpost&p=358655 Теперь пишите:
    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 нужно указать имя контекстного меню.]]> miksayer Работа с меню