在窗體添加壹個systray部件,然後在窗體上添加壹個systray控件,然後再加上簡單代碼即可。
例如,將所添加的systray控件命名為“sty”,在窗體中添加下述代碼即可。
Private Sub Form_Resize()
If WindowState = 1 Then
sty.InTray = True
Hide
Else
sty.InTray = False
Show
End If
End Sub