Question

vb如何让当程序最小化时最小化到托盘 急!!!

这是我的最小化到托盘代码
变量
Const MAX_TOOLTIP As Integer = 64
Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Const SW_RESTORE = 9
Const SW_HIDE = 0
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private nfIconData As NOTIFYICONDATA

Private Sub zx_Click()
nfIconData.hwnd = Me.hwnd
nfIconData.uID = Me.Icon
nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
nfIconData.uCallbackMessage = WM_MOUSEMOVE
nfIconData.hIcon = Me.Icon.Handle
nfIconData.szTip = "System Tray Example" & vbNullChar
nfIconData.cbSize = Len(nfIconData)
ShowWindow Me.hwnd, SW_HIDE
end sub
我是故意让他不显示图标的,因为程序开启时会自动在托盘里显示图标
1楼的不行啊,一打开会自动在到托盘

Answer 1

最小化的事件在resize中判断即可，这时窗口的WindowState属性是1

Private Sub Form_Resize()
If Me.WindowState = 1 Then “到托盘去”
End Sub

在设计阶段，把窗体的WindowState属性改为0或2，可能是这里被你改为1，所以一启动就最小化了。

Answer 2

可能是你一启动程序就最小化了，加一个变量：

Private Sub Form_Resize()
Static Icount As Integer
Icount = Icount + 1

If Icount > 1 And Me.WindowState = 1 Then zx_Click
'这个1根据你的具体情况修改也行
End Sub

Answer 3

if 最小化=ture then
这里就托盘
end if