web-dev-qa-db-ja.com

システムトレイから実行するプログラムを作成する

Windowsの右下のシステムトレイから実行するプログラムを作成したいのですが。

しかし、どこから始めればいいのか分かりません。

誰かがどこを見て、例を示したり、\ researchを使用するためのコマンドを教えたりできますか？

vb.netvisual-studio-2010
9
Pavle Stojanovic

アイコンを見逃していることに気付いた回答を確認します。

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    If Me.WindowState = FormWindowState.Minimized Then
        NotifyIcon1.Visible = True
        NotifyIcon1.Icon = SystemIcons.Application
        NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon1.BalloonTipTitle = "Verificador corriendo"
        NotifyIcon1.BalloonTipText = "Verificador corriendo"
        NotifyIcon1.ShowBalloonTip(50000)
        'Me.Hide()
        ShowInTaskbar = False
    End If
End Sub

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
    'Me.Show()
    ShowInTaskbar = True
    Me.WindowState = FormWindowState.Normal
    NotifyIcon1.Visible = False
End Sub
13
Doberon

NotifyIconをメインウィンドウフォームに追加します。 ResizeのFormイベントを使用して、NotifyIconを表示してフォームを非表示にするタイミングを制御します。

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
                NotifyIcon1.Visible = true
                Me.Hide()
                NotifyIcon1.BalloonTipText = "Hi from right system tray"
                NotifyIcon1.ShowBalloonTip(500)
        End If
    End Sub

NotifyIconのイベントを使用して、フォームを再度表示します。

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Show()
        Me.WindowState = FormWindowState.Normal
        NotifyIcon1.Visible = False
    End Sub

完全な例は AutoDNIE google code projectでダウンロードできます

19
jlvaquero

あなたも行うことができます：

Sub ToggleHide()
    If Me.WindowState = FormWindowState.Normal Then
        Me.ShowInTaskbar = False
        Me.WindowState = FormWindowState.Minimized
    Else
        Me.ShowInTaskbar = True
        Me.WindowState = FormWindowState.Normal
    End If
End Sub
0
Rob