怎样实现 点关闭按钮 最小化

Question

有很多程序，比如：MSN 淘宝旺旺，点关闭按钮的时候是最小化到托盘，必须点菜单里的退出才能退出，请各位高手指点一下

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
    '' 如果窗口关闭是由关闭按钮或从窗体系统菜单中选择“关闭”指令
        Cancel = 1    ' 终止关闭过程
        Me.WindowState = vbMinimized   ' 将窗口最小化
    End If
End Sub

Answer 2

他说的最小化,应该不是vbminimized

Answer 3

Function vis()
  Dim i As Integer
  Dim menu1 As Long
  Dim menuID As Long
  menu1 = GetMenu(Me.hwnd)
  For i = 1 To 14
    menuID = GetMenuItemID(GetSubMenu(menu1, 0), i - 1)
    SetMenuItemBitmaps menu1, menuID, MF_bitmap, ImageList1.ListImages(i).Picture, _
                       ImageList1.ListImages(i).Picture
  Next
'弹出式菜单
  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)
  'Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Function
明日科技书上的原例,当窗体加载的时候,调用这个函数!