vb能编托盘程序吗，就是按窗口上的X不关闭程序，而是最小化在托盘里

Question

vb能编托盘程序吗，就是按窗口上的X不关闭程序，而是最小化在托盘里

Answer 1

可以呀。要用到api.留意如下api：
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Answer 2

按窗口上的X不关闭程序
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub

Answer 3

http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=3807

Answer 4

托盘程序编好后，为了让程序不在任务栏显示，同时也不在左下角显示一方框，可以在form_resize里加入以下代码：
  If IsIconic(Me.hwnd) <> 0 Then   ‘判断窗口是否最小化了
   Form1.Visible = False
  End If

Answer 5

VB做这个不是问题，很简单。
网上有很多例子，这是我作过的一个：http://csdngoodname008.51.net/MouseInductor.zip

Answer 6

http://www.hongen.com/pc/program/apitutor/api0012/api01.htm
http://down.dapha.net/source/api/Easy to use Systray Class.zip
http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=3606
自己耐心的看去吧

Answer 7

Form1.ShowInTaskbar = False

Answer 8

VB自带了一个系统托盘的控件的例子，你在安装盘里找找呀，编译之后得到一个控件就可以用了，好像叫systray？？？记不清了，另外点X不关闭，就像 cso(sjxsoft-天水是我家) 说的那样做

Answer 9

模块Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112 '恢复原样
Public Const SC_RESTORE = &HF120& '恢复原样
Public LastState As Integer '保留原窗口状态
'*************************************************************************
'**shell_NotifyIcon中的 dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 标识符之一
'*************************************************************************
Public Const NIM_ADD = &H0    '在任务栏中增加一个图标
Public Const NIM_DELETE = &H2 '删除任务栏中的一个图标
Public Const NIM_MODIFY = &H1 '修改任务栏中个图标信息
'*************************************************************************
'**获得鼠标信息
'*************************************************************************
Public Const WM_MOUSEMOVE = &H200     '在图标上移动鼠标
Public Const WM_LBUTTONDOWN = &H201   '鼠标左键按下
Public Const WM_LBUTTONUP = &H202     '鼠标左键释放
Public Const WM_LBUTTONDBLCLK = &H203 '双击鼠标左键
Public Const WM_RBUTTONDOWN = &H204   '鼠标右键按下
Public Const WM_RBUTTONUP = &H205     '鼠标右键释放
Public Const WM_RBUTTONDBLCLK = &H206 '双击鼠标右键
Public Const WM_SETHOTKEY = &H32      '响应您定义的热键
'*************************************************************************
'**shell_NotifyIcon中的 NOTIFYICONDATA结构信息
'*************************************************************************
Public Type NOTIFYICONDATA
  cbSize As Long           '该数据结构的大小
  hWnd As Long             '处理任务栏中图标的窗口句柄
  uId As Long              '定义的任务栏中图标的标识
  uFlags As Long           '任务栏图标功能控制，可以是以下值的组合（一般全包括）
  ucallbackMessage As Long '任务栏图标通过它与用户程序交换消息，处理该消息的窗口由hWnd决定
  hIcon As Long            '任务栏中的图标的控制句柄
  szTip As String * 64     '图标的提示信息
End Type
'*************************************************************************
'**shell_NotifyIcon中的 NOTIFYICONDATA结构中uFlags的控制信息
'*************************************************************************
Public Const NIF_MESSAGE = &H1  'NIF_MESSAGE 表示发送控制消息；
Public Const NIF_ICON = &H2     'NIF_ICON表示显示控制栏中的图标；
Public Const NIF_TIP = &H4      'NIF_TIP表示任务栏中的图标有动态提示。
'*************************************************************************
'**函数名：AddSysTrayIcon
'
'**参  数:TrayIconData为NOTIFYICONDATA类型
'
'**功 能:添加图标到系统托盘
'
'**返回值:无
'*************************************************************************
   'from_load ()
'在窗体中定义一个 NOTIFYICONDATA 类型 并负值
  'TrayIconData.cbSize = IconDataSize
  'TrayIconData.hWnd = FrmHwnd
  'TrayIconData.IconId = IconId
  'TrayIconData.uFlags = IconFlags
  'TrayIconData.ucallbackMessage = IconMessage
  'TrayIconData.hIcon = IconHwnd
  'TrayIconData.szTip = IconTipTxt
  'end sub
Public Function AddSysTrayIcon(TrayIconData As NOTIFYICONDATA)
 Shell_NotifyIcon NIM_ADD, TrayIconData
End Function
'*************************************************************************
'**函数名：DelectSysTrayIcon
'
'**参  数: TrayIconData为NOTIFYICONDATA类型
'
'**功 能:删除系统托盘图标
'
'**返回值:无
'*************************************************************************
Public Function DeleteSysTrayIcon(TrayIconData As NOTIFYICONDATA)
  Shell_NotifyIcon NIM_DELETE, TrayIconData
End Function
'*************************************************************************
'**函数名：ModifySysTrayIcon
'
'**参  数: TrayIconData为NOTIFYICONDATA类型
'
'**功 能:修改系统托盘图标
'
'**返回值:无
'*************************************************************************
Public Function ModifySysTrayIcon(TrayIconData As NOTIFYICONDATA)
  Shell_NotifyIcon NIM_MODIFY, TrayIconData
End Function

Answer 10

from1
Dim myData As NOTIFYICONDATA  '定义一个 NOTIFYICONDATAPrivate Sub Command1_Click()
Form2.Show
End SubPrivate Sub Command2_Click()
Shell_NotifyIcon NIM_DELETE, myData
End SubOption Explicit
Private Sub Form_Load()
'  If WindowState = vbMinimized Then
'      LastState = vbNormal
'  Else
'      LastState = WindowState
'  End If
  With myData
    .cbSize = Len(myData)        '该数据结构的大小
    .hWnd = Me.hWnd               '那个窗口句邴
    .uId = 0                      'Id号
    .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP '表示可以 发送控制消息 图标有动态提示 显示控制栏中的图标
    .ucallbackMessage = WM_MOUSEMOVE '图标接受的消息 是移动
    .hIcon = Image1.Picture.Handle   '图标的设置'Me.Icon.Handle    '默认为窗口图标
    .szTip = "利用shell_NotifyIcon做托盘" & vbNullChar '提示信息
    
 
  End With  'Shell_NotifyIcon NIM_ADD, myData
 AddSysTrayIcon myData
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Select Case CLng(X)
    Case WM_RBUTTONUP '鼠标在图标上右击时弹出菜单
        Me.PopupMenu mnuTray
    Case WM_LBUTTONUP '鼠标在图标上左击时窗口若最小化则恢复窗口位置
        If Me.WindowState = vbMinimized Then
          Me.WindowState = LastState
          Me.SetFocus
        End If
  End Select
End SubPrivate Sub Form_Unload(Cancel As Integer)
  Shell_NotifyIcon NIM_DELETE, myData '窗口卸载时，将状态栏中的图标一同卸载
End SubPrivate Sub mnuExit_Click()
  Unload Me
End SubPrivate Sub mnuTrayChangeIcon_Click()
  On Error GoTo ErrHandler
  With cdlOpen
    .CancelError = True ' 设置标志
    .InitDir = App.Path ' 默认的文件夹为当前文件夹
    .Flags = cdlOFNHideReadOnly ' 设置过滤器
    .Filter = "图标文件 (*.ico)|*.ico" ' 指定缺省的过滤器为图标文件
    .ShowOpen ' 显示选定文件的名字
  End With  Image1.Picture = LoadPicture(cdlOpen.FileName)  With myData
    .hIcon = Image1.Picture
    .uFlags = NIF_ICON
  End With
  Shell_NotifyIcon NIM_MODIFY, myDataErrHandler: ' 用户按了"取消"按钮
    Exit Sub
End SubPrivate Sub mnuTrayClose_Click()
  Unload Me
End SubPrivate 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 SubPrivate Sub mnuTrayMaximize_Click()
  WindowState = vbMaximized
End SubPrivate Sub mnuTrayMinimize_Click()
  WindowState = vbMinimized
End SubPrivate Sub mnuTrayRestore_Click()                '恢复原样
  SendMessage hWnd, WM_SYSCOMMAND, SC_RESTORE, 0&
End Sub

Answer 11

from2Option ExplicitPrivate Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End TypePrivate Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONUP = &H205
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIF_MESSAGE = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Dim TrayIcon As NOTIFYICONDATAPrivate Sub Form_Load()
    TrayIcon.cbSize = Len(TrayIcon)
    TrayIcon.hWnd = hWnd
    TrayIcon.uId = vbNull
    TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    TrayIcon.ucallbackMessage = WM_MOUSEMOVE
    TrayIcon.hIcon = Me.Icon
    TrayIcon.szTip = "拖盘" & Chr(0)    '在系统栏添加拖盘
    Call Shell_NotifyIcon(NIM_ADD, TrayIcon)
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    '构造系统拖盘结构
    TrayIcon.cbSize = Len(TrayIcon)
    TrayIcon.hWnd = Me.hWnd
    TrayIcon.uId = vbNull    '删除系统栏的拖盘
    Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
    Dim Message As Long    Message = X / Screen.TwipsPerPixelX    '判断鼠标消息,执行不同的功能
    Select Case Message
      Case WM_LBUTTONDOWN
          MsgBox "你单击我干什么呀"
      Case WM_RBUTTONUP
          SetForegroundWindow Me.hWnd
          '按右键弹出菜单
          'PopupMenu mnuPopup
    End Select
End Sub

Answer 12

系统托盘技术http://www.csdn.net/cnshare/soft/16/16015.shtm
下载地址：http://www.torontoservice.com/lihonggen/message.zip
VB版主lihonggen0(李洪根)写的一个局域网消息发送器，全力推荐下载,OICQ界面，垂直菜单控件技术，局域网消息发送技术，网络资源访问技术，系统托盘技术，资源管理器界面的分隔条技术，API函数使用等，为初学者提供一个代码例子。

Answer 13

//转贴在VB6中新建一工程，将FORM1的ScalMode的属性设为3，加入一个image控件和一个对话框控件（要加入对话框控件，须在部件中选取Microsoft Common Dialog Control 6.0），将image1的visible属性改为False，为该Form添加一个菜单，菜单设置如下：标题 名称 
文件(&F) mnuFile （一级菜单） 
退出(&E) mnuExit （二级菜单） 
Popup mnuTray （一级菜单,去掉该项的"可见"项） 
更换图标(&I)  mnuTrayChangeIcon (以下全为二级菜单) 
恢复(&R) mnuTrayRestore 
最小化(&N) mnuTrayMinimize 
最大化(&X) mnuTrayMaximize 
-  mnuTrayLine 
关闭(&C) mnuTrayClose 
Option ExplicitPrivate Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SYSCOMMAND = &H112
Private Const SC_RESTORE = &HF120&Private LastState As Integer '保留原窗口状态'---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 标识符之一----------
Private Const NIM_ADD = &H0 '在任务栏中增加一个图标
Private Const NIM_DELETE = &H2 '删除任务栏中的一个图标
Private Const NIM_MODIFY = &H1 '修改任务栏中个图标信息Private Const NIF_MESSAGE = &H1 'NOTIFYICONDATA结构中uFlags的控制信息
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4Private Const WM_MOUSEMOVE = &H200 '当鼠标指针移至图标上Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONUP = &H205Private Type NOTIFYICONDATA
　cbSize As Long '该数据结构的大小
　hwnd As Long '处理任务栏中图标的窗口句柄
　uID As Long '定义的任务栏中图标的标识
　uFlags As Long '任务栏图标功能控制，可以是以下值的组合（一般全包括）
　'NIF_MESSAGE 表示发送控制消息；
　'NIF_ICON表示显示控制栏中的图标；
　'NIF_TIP表示任务栏中的图标有动态提示。
　uCallbackMessage As Long '任务栏图标通过它与用户程序交换消息，处理该消息的窗口由hWnd决定
　hIcon As Long '任务栏中的图标的控制句柄
　szTip As String * 64 '图标的提示信息
End TypeDim myData As NOTIFYICONDATAPrivate Sub Form_Load()
　If WindowState = vbMinimized Then
　　LastState = vbNormal
　Else
　　LastState = WindowState
　End If　With myData
　　.cbSize = Len(myData)
　　.hwnd = Me.hwnd
　　.uID = 0
　　.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
　　.uCallbackMessage = WM_MOUSEMOVE
　　.hIcon = Me.Icon.Handle '默认为窗口图标
　　.szTip = "提示" & vbNullChar
　End With　Shell_NotifyIcon NIM_ADD, myDataEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　Select Case CLng(X)
　　Case WM_RBUTTONUP '鼠标在图标上右击时弹出菜单
　　　　Me.PopupMenu mnuTray
　　Case WM_LBUTTONUP '鼠标在图标上左击时窗口若最小化则恢复窗口位置
　　　　If Me.WindowState = vbMinimized Then
　　　　　Me.WindowState = LastState
　　　　　Me.SetFocus
　　　　End If
　End Select
End SubPrivate Sub Form_Unload(Cancel As Integer)
　Shell_NotifyIcon NIM_DELETE, myData '窗口卸载时，将状态栏中的图标一同卸载
End SubPrivate Sub mnuExit_Click()
　Unload Me
End SubPrivate Sub mnuTrayChangeIcon_Click()
　On Error GoTo ErrHandler
　With cdlOpen
　　.CancelError = True ' 设置标志
　　.InitDir = App.Path ' 默认的文件夹为当前文件夹
　　.Flags = cdlOFNHideReadOnly ' 设置过滤器
　　.Filter = "图标文件 (*.ico)|*.ico" ' 指定缺省的过滤器为图标文件
　　.ShowOpen ' 显示选定文件的名字
　End With　Image1.Picture = LoadPicture(cdlOpen.FileName)　With myData
　　.hIcon = Image1.Picture
　　.uFlags = NIF_ICON
　End With
　Shell_NotifyIcon NIM_MODIFY, myDataErrHandler: ' 用户按了"取消"按钮
　　Exit Sub
End SubPrivate Sub mnuTrayClose_Click()
　Unload Me
End SubPrivate 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 SubPrivate Sub mnuTrayMaximize_Click()
　WindowState = vbMaximized
End SubPrivate Sub mnuTrayMinimize_Click()
　WindowState = vbMinimized
End SubPrivate Sub mnuTrayRestore_Click()
　SendMessage hwnd, WM_SYSCOMMAND, SC_RESTORE, 0&
End Sub

Answer 14

按窗口上的X不关闭程序需要的API函数声明，常数，请自己到API浏览器里找
API函数声明：CallWindowProc  SetWindowLong
API常数声明：GWL_WNDPROC   WM_SIZE   SIXE_MINIMIZED   WM_CLOSEAPI声明和下面代码写在一个模块里：
Public dwWindowMinProc As Long
Function WindowMinProc(ByVal hWnd As Long,ByVal uMsg As Long,ByVal wParam As Long,ByVal lParam As Long)              '一个回调函数
If uMsg=WM_SIZE Then         '最小化窗体时得到的消息，这个消息有两个值，wParam当前的状态
    If wParam=SIZE_MINIMIZED Then 'lParam返回一个RECT结构（这里不使用），具体看下相关SDK
        在这里加入你要处理的代码
    End If
ElseIf uMsg=WM_CLOSE Then    '截获关闭窗体消息
    在这里加入你要处理的代码
End If
WindowMinProc=CallWindowProc(dwWindowMinProc,hWnd,uMsg,wParam,lParam)
End Function
在窗体Form1的Load事件里写
dwWindowMinProc=SetWindowLong(Form1.hWnd,GWL_WNDPROC,Addressof WindowMinProc)

Answer 15

请访问http://lzjsoft.51.net,我的浪子居百宝箱就是用VB编的

Answer 16

给你介绍个很好用的控件，有示例代码的很简单呵呵'控件
http://www.hosp.ncku.edu.tw/~cww/TaskIcon.ocx’示例代码http://www.hosp.ncku.edu.tw/~cww/Test_VB_.zip

Answer 17

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then Cancel = True
End Subunloadmode 参数返回下列值：常数 值 描述 
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 
vbFormCode 1 Unload 语句被代码调用。 
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。 
vbFormMDIForm 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 
vbFormOwner 5 因为窗体的所有者正在关闭，所以窗体也在关闭。