コンソールアプリがアイコン付きのトレイに移動できるようにする次のコードがあります。
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 eAsEventArgsまたはByValsenderAs Objectを使用して、どのマウスボタンが押されたかを検出するにはどうすればよいですか?