vb.net консоль приложение с использованием отправителя As Object и е Как EventArgs

Question

Я следующий код, который позволяет мое консольное приложение, чтобы перейти к лотку с иконкой:

Sub Main() 
    Dim tray As New NotifyIcon() 

    tray.Icon = My.Resources.phoneIcon 
    tray.Text = "Left Click to show console window" 
    tray.Visible = True 
    AddHandler tray.Click, AddressOf iconClicked 

    ShowWindow(int, False) 
    System.Windows.Forms.Application.Run() 
End Sub 

Private Sub iconClicked(ByVal sender As Object, ByVal e As EventArgs) 
    if mouseLeft then 
     ShowWindow(int, True) 
    else 
     ShowWindow(int, False) 
    end if 
End Sub 

Это также позволяет консоли быть приведен при щелчке левой кнопкой мыши на значке в трее. Проблема в том, что мне нужно иметь возможность щелкнуть правой кнопкой мыши, чтобы вернуть ее.

Как использовать атрибут ByVal e As EventArgs или ByVal Как объект для определения того, какая кнопка мыши нажата?

Answer 1

Что вам нужно сделать, это изменить строку Sub iconClicked, чтобы использовать MouseEventArgs, а не EventArgs; как так:

Private Sub iconClicked(ByVal sender As Object, ByVal e As MouseEventArgs) 

Один вы сделали это, вы можете использовать e.Button, чтобы выяснить, какую кнопку нажал пользователь.