|
コードです。
Private Sub NotifyIcon1_MouseDown( _
ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles NotifyIcon1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
' マウス左ボタンをクリック
If exe Is Nothing = False AndAlso exe.MainWindowHandle <> 0 Then
If IsWindowVisible(exe.MainWindowHandle) = 0 Then
' ウィンドウ表示
ShowWindow(exe.MainWindowHandle, SW_SHOW)
Else
' ウィンドウ非表示
ShowWindow(exe.MainWindowHandle, SW_HIDE)
End If
End If
End If
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("終了します!", vbQuestion + vbOKCancel + vbDefaultButton2, "確認") = vbCancel Then Exit Sub
Me.Close()
End If
End Sub
|