2024年3月5日发(作者：)
给你个例子吧
建立一个frmmain主窗体
Option Explicit
Private Sub Form_Load()
'初始化imgIcon控件的Picture属性
e = LoadPicture( & "" & "")
d = False
'初始化NOTIFYICONDATA数据结构
Dim nid As NOTIFYICONDATA
= Len(nid)
=
= 1&
= NIF_ICON Or NIF_TIP Or NIF_MESSAGE
ackMessage = WM_NOTIFYICON
= e
= "系统托盘中的图标" & Chr(0)
'调用Shell_NotifyIcon函数将图标加入到系统托盘中
Shell_NotifyIcon NIM_ADD, nid
End Sub
Private Sub Form_Unload(Cancel As Integer)
'设置自定义类型的变量的内容
Dim nid As NOTIFYICONDATA
= Len(nid)
=
= 1&
= 0
'调用Shell_NotifyIcon方法来删除系统托盘中的图标
Shell_NotifyIcon NIM_DELETE, nid
Unload frmTemp
End Sub
Private Sub mnuTrayExit_Click()
Unload Me
End Sub
Private Sub mnuTrayHide_Click()
'隐藏窗体，并相应改变菜单项的状态
d = False
d = True
End Sub
Private Sub mnuTrayIcon_Click()
'设置dlgOpen公用对话框的属性，以便取得相应的图标文件
= "图标文件(*.ico)|*.ico"
= cdlOFNFileMustExist
en
If me = "" Then Exit Sub
'根据所取得图标文件，来改变imgIcon文件的属性
e = LoadPicture(me)
'设置NOTIFYICONDATA数据结构
Dim nid As NOTIFYICONDATA
= Len(nid)
=
= 1&
= NIF_ICON
= e
'调用Shell_NotifyIcon函数来修改系统托盘中的图标
Shell_NotifyIcon NIM_MODIFY, nid
End Sub
Private Sub mnuTrayShow_Click()
'显示窗体，并相应改变菜单项的状态
d = True
d = False
End Sub
Private Sub mnuTrayTip_Click()
Dim str As String
str = InputBox("输入系统托盘中的图标的提示信息：", "提示信息")
If str = "" Then Exit Sub
'设置NOTIFYICONDATA数据结构
Dim nid As NOTIFYICONDATA
= Len(nid)
=
= 1&
= NIF_TIP
= str & Chr(0)
'调用Shell_NotifyIcon函数来修改系统托盘中的图标的提示
Shell_NotifyIcon NIM_MODIFY, nid
End Sub
再建立一个空窗体叫frmTemp
再建一个模块,名字随便了
Option Explicit
'声明Shell_NotifyIcon函数，用于将图标加入到系统托盘中
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As
Long, pnid As NOTIFYICONDATA) As Boolean
'声明自定义的数据类型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 * 64
End Type
'声明常量
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
'定义SetWindowLong，用以改变frmTemp窗体的窗体函数
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'定义事件的常数代码
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_USER = &H400
'定义自定义的事件WM_NOTIFYICON
Public Const WM_NOTIFYICON = WM_USER + &H100
'替换窗口处理函数
Public Const GWL_WNDPROC = (-4)
'该函数为frmTest的窗体处理函数。
Function DialogProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long
Dim bln As Boolean
bln = True
If uMsg = WM_NOTIFYICON Then
'表示对系统托盘中的程序进行操作
If lParam = WM_LBUTTONDOWN Then
'如果按下鼠标左键，则显示菜单
d = False
d = True
ElseIf lParam = WM_RBUTTONDOWN Then
'如果按下鼠标右键，则弹出菜单
enu y
Else
'否则，将程序控制权交给系统处理
bln = False
End If
Else
'否则，将程序控制权交给系统处理
bln = False
End If
DialogProc = bln
End Function
Sub Main()
Load frmTemp
'调用SetWindowLong函数来改变frmTemp窗体的窗体函数
Call SetWindowLong(, GWL_WNDPROC, AddressOf DialogProc)
End Sub
我就不详细解释了,看看注释,如果稍微会一点vb就能看懂了.建立工程也很简单,不再罗嗦
注意:把vbp的代码也给你,中间mnu开头的是自己建的菜单.中间和是指2个在托盘中显示的图标.如果不自己改例子的代码,就把图标放到同目录下吧.
Type=Exe
Form=
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0;
Form=
Module=mdlStandard;
IconForm="frmMain"
Startup="Sub Main"
HelpFile=""
Title="TBIcon"
ExeName32=""
Command32=""
Name="TrayIcon"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=5
AutoIncrementVer=1
ServerSupportFiles=0
VersionComments="Exemple VB4 "
VersionCompanyName="-"
VersionLegalCopyright="Benjamin Bourderon Benjab@"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
发布评论