用在托盘程序中加入应用程序图标

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False

2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为s

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 \"l\" Alias \"Shell_NotifyIconA\" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

4、在Form1的Load事件中写下如下代码：

Private Sub Form_Load()

\'以下把程序放入System Tray====================================System Tray Begin

With nfIconData

.hWnd = nd

.uID = on

.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP

.uCallbackMessage = WM_MOUSEMOVE

.hIcon = ndle

\'定义鼠标移动到托盘上时显示的Tip

.szTip = tle + \"(版本 \" jor \".\" nor \".\" vision \")\" vbNullChar

.cbSize = Len(nfIconData)

End With

Call Shell_NotifyIcon(NIM_ADD, nfIconData)

\'=============================================================System Tray End

de

End Sub

5、在Form1的QueryUnload事件中写入如下代码：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Call Shell_NotifyIcon(NIM_DELETE, nfIconData)

End Sub

6、在Form1的MouseMove事件中写下如下代码：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lMsg As Single

lMsg = X / ipsPerPixelX

Select Case lMsg

Case WM_LBUTTONUP

\'MsgBox \"请用鼠标右键点击图标!\", vbInformation, \"实时播音专家\"

\'单击左键，显示窗体

ShowWindow nd, SW_RESTORE

\'下面两句的目的是把窗口显示在窗口最顶层

\'ow

\'tFocus

\'\' Case WM_RBUTTONUP

\'\' PopupMenu MenuTray \'如果是在系统Tray图标上点右键，则弹出菜单MenuTray

\'\' Case WM_MOUSEMOVE

\'\' Case WM_LBUTTONDOWN

\'\' Case WM_LBUTTONDBLCLK

\'\' Case WM_RBUTTONDOWN

\'\' Case WM_RBUTTONDBLCLK

\'\' Case Else

End Select

End Sub

7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。查看本文来源

河源癫痫哪家好
济南包皮过长治疗多少钱
黄芪生脉饮和黄芪精的功效