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

Открываем меню правой кнопкой мыши на VB

 
 
'ПРИМЕР: КАК ОТКРЫВАТЬ МЕНЮ ПРАВОЙ КНОПКОЙ МЫШИ
Option Explicit

Const Blue = (vbBlue)
Const Red = (vbRed)
Const Black = (vbBlack)

'==================================================================================================
'ЕСЛИ ОТЖАТА ПРАВАЯ КНОПКИ МЫШИ ТО ВЫСКАКИВАЕТ МЕНЮ
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = (vbRightButton) Then
        PopupMenu popFile, , X, Y, popExit
    End If
End Sub

'==================================================================================================
'УСТАНАВЛИВАЕМ ЦВЕТ ФОРМЫ
Private Sub popBlack_Click()
    Me.BackColor = (Black)
End Sub

Private Sub popBlue_Click()
    Me.BackColor = (Blue)
End Sub

Private Sub popRed_Click()
    Me.BackColor = (Red)
End Sub

'==================================================================================================
'МЕНЮ ДЛЯ ВЫВОДА СООБЩЕНИЯ
Private Sub popMessage_Click()
    MsgBox "отжата правая кнопка мыши.", 64, "Правая..."
End Sub

'==================================================================================================
'МЕНЮ ДЛЯ ВЫХОДА ИЗ ПРОГРАММЫ
Private Sub popExit_Click()
    End
End Sub

Скачать ИСХОДНИК > > > Menu (1,89kb) < < <

Более подробнее смотрите в исходнике.


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

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




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