如果是WinForm的話，
試試 MouseEnter(滑鼠進入) 跟 MouseLeave(滑鼠離開)

是WinForm沒錯。
但發現沒有MouseEnter(滑鼠進入) 跟 MouseLeave(滑鼠離開)等事件。

程式是參考此範例完成的。

可是我的電腦有耶

這是Label控制項的屬性,
基本上所有的控制項應該都有這個屬性,
這是C#的,
我有開VB的專案看也是有同樣的事件.

感謝小魚的說明，顯示Label的事件有MouseEnter及MouseLeave事件，這個我清楚。

但是我的問題是system Tray，不是Label，提供的範例，也不清楚如何增設。

1. ContextMenuStrip 和 ToolStripMenuItem 也都有 MouseLeave 事件.
例如:
Private Sub MainMenu_MouseLeave(sender As Object, e As EventArgs) Handles MainMenu.MouseLeave 表單.Hide() End Sub 或是 Private Sub mnuDisplayForm_MouseLeave(sender As Object, e As EventArgs) Handles mnuDisplayForm.MouseLeave 表單.Hide() End Sub

2. 我照該範例延伸測試 ToolTipText 可以正常顯示阿, 假如沒有, 是不是 MainMenu.ShowItemToolTips 被改為 False?
Private WithEvents Tray As NotifyIcon Private WithEvents MainMenu As ContextMenuStrip Private WithEvents mnuDisplayForm As ToolStripMenuItem Private WithEvents mnuSep1 As ToolStripSeparator Private WithEvents mnuExit As ToolStripMenuItem Public Sub New() 'Initialize the menus mnuDisplayForm = New ToolStripMenuItem("Display form") mnuSep1 = New ToolStripSeparator() mnuExit = New ToolStripMenuItem("Exit") MainMenu = New ContextMenuStrip MainMenu.Items.AddRange(New ToolStripItem() {mnuDisplayForm, mnuSep1, mnuExit}) 'Initialize the tray Tray = New NotifyIcon Tray.Icon = Me.Icon ' My.Resources.TrayIcon Tray.ContextMenuStrip = MainMenu Tray.Text = "Formless tray application" 'Display Tray.Visible = True '測試 ToolTipText 可正常顯示: mnuDisplayForm.ToolTipText = “Tip Display” MainMenu.ShowItemToolTips = True '預設本來就是 True 了, 除非另外有更改. End Sub

感謝 Ader Chen的說明，待測試後再看看是否能排除問題？

5F的範例只能右鍵執行，因此加入左鍵語法，程式如下，就產生按下左鍵後，當滑鼠離開表單後，無法自動消失的問題？
請問需要修正何處的語法？或哪裡有問題？謝謝！
Private WithEvents Tray As NotifyIcon Private WithEvents MainMenuR As ContextMenuStrip Private WithEvents mnuDisplayForm As ToolStripMenuItem Private WithEvents mnuSep As ToolStripSeparator Private WithEvents mnuExit As ToolStripMenuItem 'For Left button Private WithEvents MainMenuL As ContextMenuStrip Private WithEvents mnuDisplayFormL As ToolStripMenuItem Private WithEvents mnuSepL As ToolStripSeparator Private WithEvents mnuExitL As ToolStripMenuItem Public Sub New() 'Initialize the menus mnuDisplayForm = New ToolStripMenuItem("Display form") mnuSep = New ToolStripSeparator() mnuExit = New ToolStripMenuItem("Exit") MainMenuR = New ContextMenuStrip MainMenuR.Items.AddRange(New ToolStripItem() {mnuDisplayForm, mnuSep, mnuExit}) 'Initialize the tray Tray = New NotifyIcon Tray.Icon = Me.Icon ' My.Resources.TrayIcon Tray.ContextMenuStrip = MainMenuR Tray.Text = "Formless tray application" 'Display Tray.Visible = True '測試 ToolTipText 可正常顯示: mnuDisplayForm.ToolTipText = "Tip Display" MainMenuR.ShowItemToolTips = True '預設本來就是 True 了, 除非另外有更改. 'For Left button mnuDisplayFormL = New ToolStripMenuItem("Display left form") mnuDisplayFormL.ToolTipText = "Left Tip Display" mnuSepL = New ToolStripSeparator() mnuExitL = New ToolStripMenuItem("ExitL") MainMenuL = New ContextMenuStrip MainMenuL.Items.AddRange(New ToolStripItem() {mnuDisplayFormL, mnuSepL, mnuExitL}) End Sub Private Sub Tray_MouseClick(sender As Object, e As MouseEventArgs) Handles Tray.MouseClick If e.Button = Windows.Forms.MouseButtons.Left Then Tray.ContextMenuStrip = MainMenuL MainMenuL.Show(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y) Tray.Text = "Left tray application" 'MainMenuL.Visible = True ElseIf e.Button = Windows.Forms.MouseButtons.Right Then Tray.ContextMenuStrip = MainMenuR Tray.Text = "Formless tray application" End If End Sub

是說當滑鼠指標離開 MainMenuL 範圍後, 將 MainMenuL 隱藏嗎?
若是的話:
Private Sub MainMenuL_MouseLeave(sender As Object, e As EventArgs) Handles MainMenuL.MouseLeave MainMenuL.Hide() End Sub

再次感謝 Ader Chen的說明。

但MainMenuL是一個ContextMenuStrip，若採用上述8F語法，是可以讓左鍵表單消失，但對於有子表單，即不適用，因為只要游標一移到子表單，MainmenuL即消失，無法點選子表單之選項功能。

開啟右表單，並不需要設定MouseLeave的事件才會讓右表單消失，而且游標移出MainMenuR時，系統並不會自動消失，而是Focus不再MainMenuR上才消失，請問是否有其它方式，可以解決游標移出左表單MainMenuL後自動消失？

發現另一問題：當按下左鍵時，出現MainMenuL的表單選項，但同時發現左側工作列也出現Icon圖示，請問如何可以像按右鍵時不出現Icon圖示？