4
Февраль
2009
Как создать контекстное меню?
Как создать контекстное меню?
Tools=>Menu Editor или
Выделив форму щелчок мыши и нажать Ctrl+E
Появиться Menu Editor
Запишем в Caption => Popup и в Name => mnuPopup
Снимем галочку с Visible
Нажмем Next и =>
Добавим еще три пункта
Copy – mnuCopy
Cut – mnuCut
Paste – mnuPaste
Option Explicit Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) 'проверка, нажата ли правая клавиша мыши If Button = 2 And vbRightButton Then PopupMenu mnuPopup End If End Sub Private Sub mnuCopy_Click() MsgBox "Вы выбрали копировать" End Sub Private Sub mnuCut_Click() MsgBox "Вы выбрали вырезать" End Sub Private Sub mnuPaste_Click() MsgBox "Вы выбрали вставить" End Sub