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


Оставить комментарий

Я не робот.