Question

VB6怎么使单击按钮后程序隐藏到托盘运行，还有托盘图标怎么改？？

Answer 1

您好: vb中有一个控件是可以实现你要的功能的：
需要找到VB的安装盘(不是安装以后的目录)的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目录，将Systray目录拷到硬盘上面并编译为ocx控件（编译前记得要先把只读属性修改掉，有时候会提示要先保存，直接保存。），
　　然后在自己的VB程序中添加改控件(工程-部件-浏览)。
　　最好把这个ocx放到C:\WINDOWS\system32。
　　改控件的属性InTray属性用来设置是否显示在托盘中，True为显示在托盘，False为不显示。TrayIcon属性是在托盘中显示的图标式样。TrayTip属性是鼠标移到改控件上面显示的提示文字。如果要使程序最小化时显示到托盘，如下：
　　Private Sub Form_Resize()
　　If Me.WindowState = vbMinimized Then
　　cSysTray1.InTray = True
　　Me.Visible = FalseEnd If
　　End Sub
　　点击托盘图标后让程序显示出来，如下：
　　Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
　　Me.WindowState = vbNormal
　　Me.Visible = True
　　cSysTray1.InTray = False
　　Me.SetFocus
　　End Sub

Answer 2

VB6如何在托盘中写入应用程序图标

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False 2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas 3、在Module1中写下如下代码：
Option Explicit Public Const MAX_TOOLTIP As Integer = 64 Public Const NIF_ICON = &H2 Public Const NIF_MESSAGE = &H1 Public Const NIF_TIP = &H4 Public Const NIM_ADD = &H0 Public Const NIM_DELETE = &H2 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 SW_RESTORE = 9 Public Const SW_HIDE = 0 Public nfIconData As NOTIFYICONDATA Public 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 Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias