VB6.0实现系统托盘

　　.ShowOpen ' 显示选定文件的名字
　End With

　Image1.Picture = LoadPicture(cdlOpen.FileName)

　With myData
　　.hIcon = Image1.Picture
　　.uFlags = NIF_ICON
　End With
　Shell_NotifyIcon NIM_MODIFY, myData

ErrHandler: ' 用户按了"取消"按钮
　　Exit Sub
End Sub

Private Sub mnuTrayClose_Click()
　Unload Me
End Sub

Private Sub Form_Resize()
　Select Case WindowState
　　Case vbMinimized
　　　mnuTrayMaximize.Enabled = True
　　　mnuTrayMinimize.Enabled = False
　　　mnuTrayRestore.Enabled = True
　　Case vbMaximized
　　　mnuTrayMaximize.Enabled = False
　　　mnuTrayMinimize.Enabled = True
　　　mnuTrayRestore.Enabled = True
　　Case vbNormal
　　　mnuTrayMaximize.Enabled = True
　　　mnuTrayMinimize.Enabled = True
　　　mnuTrayRestore.Enabled = False
　End Select
　If WindowState <> vbMinimized Then LastState = WindowState
End Sub

Private Sub mnuTrayMaximize_Click()
　WindowState = vbMaximized
End Sub

Private Sub mnuTrayMinimize_Click()
　WindowState = vbMinimized
End Sub

Private Sub mnuTrayRestore_Click()
　SendMessage hwnd, WM_SYSCOMMAND, SC_RESTORE, 0&
End Sub

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!