最小化到托盘需要用到 NotifyIcon 控件,从工具箱中找到并添加,其余代码如下:
'最小化到右下角 & 锁定窗口大小Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.ResizeIf Me.WindowState = FormWindowState.Minimized ThenMe.Hide()End If'这里实现窗口不允许更改大小(就是在改变窗口大小的时候锁定某一数值,实现无法改变大小的效果。另外要把最大化按钮设置为false)Me.Width = 650Me.Height = 500End Sub
'双击托盘中的图标还原窗口Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClickMe.ShowInTaskbar = TrueMe.Show()Me.WindowState = FormWindowState.NormalEnd Sub
notifyIcon的两个重要属性:
Icon:将在系统栏中显示的图标
Text:当鼠标悬停在该图标上时显示的文本