Tạo chương trình để chạy từ khay hệ thống

Question

Tôi muốn tạo chương trình chạy từ khay hệ thống dưới cùng bên phải của Windows.

Nhưng tôi không biết bắt đầu từ đâu?

Ai đó có thể yêu cầu \ chỉ cho tôi nơi để xem và ví dụ hoặc lệnh nào để sử dụng \ nghiên cứu?

Answer 1

Tôi xem lại các câu trả lời tôi lưu ý rằng bỏ lỡ biểu tượng.

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 

Answer 2

Thêm NotifyIcon vào biểu mẫu cửa sổ chính. Sử dụng các sự kiện Resize trong Form để kiểm soát thời gian hiển thị các NotifyIcon và ẩn các hình thức:

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 

Sử dụng các sự kiện trong NotifyIcon để hiển thị dưới dạng một lần nữa:

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 

Bạn có thể tải về một ví dụ đầy đủ trong AutoDNIE dự án mã google

Answer 3

Bạn cũng có thể làm:

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