"VB6教程：托盘中写入应用程序图标"

VB6如何在托盘中写入应用程序图标: 在VB6应用程序中，可以通过以下步骤，在托盘中写入应用程序图标。 首先，需要新建一个VB6工程，并将Form1的ShowInTaskBar属性设置为False，这样可以让应用程序不在任务栏中显示。接着，点击菜单中的工程，选择添加模块，并保存为Module1.bas。 在Module1模块中，添加如下代码： ``` Option Explicit Public Const MAX_TOOLTIP As Integer = 64 Public Const NIF_ICON = 1 Public Const NIF_MESSAGE = 1 Public Const NIF_TIP = 4 Public Const NIF_INFO = 10 Public Const NIF_GUID = 32 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 Shell_NotifyIconA Lib "shell32" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Any) As Long ``` 以上代码中，定义了一些常量和结构体，用于托盘图标的相关设置。其中，Shell_NotifyIconA函数用于向系统发送通知消息，实现托盘图标的添加和删除。LoadIcon函数用于加载一个图标。 接着，在Form1中添加如下代码，实现托盘图标的添加和删除： ``` Private Sub Form_Load() Dim niData As NOTIFYICONDATA niData.cbSize = Len(niData) niData.hWnd = Me.hWnd niData.uID = 1 niData.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE niData.uCallbackMessage = WM_MOUSEMOVE niData.hIcon = LoadIcon(0, ByVal "MainAppIcon") niData.szTip = "My Application" Shell_NotifyIconA NIM_ADD, niData End Sub Private Sub Form_Unload(Cancel As Integer) Dim niData As NOTIFYICONDATA niData.cbSize = Len(niData) niData.hWnd = Me.hWnd niData.uID = 1 Shell_NotifyIconA NIM_DELETE, niData End Sub ``` 以上代码中，首先在Form_Load事件中创建一个NOTIFYICONDATA结构体，设置托盘图标的相关信息，然后通过Shell_NotifyIconA函数将图标添加到系统托盘中。在Form_Unload事件中，会将托盘图标删除。 通过以上步骤，在VB6应用程序中成功实现了在托盘中写入应用程序图标的功能。这样可以让应用程序在后台运行，并通过托盘图标进行操作和监控。VB6的这种实现方式简单易用，适用于一些对托盘图标功能要求不高的应用程序。