将程序放入托盘中
来源:互联网 发布:网络舆情监测专业工资 编辑:程序博客网 时间:2024/05/01 19:01
'以下是一个完整的托盘程序代码****************************************************************************
'************************************************************************************************************
'以下中模块代码
Public Type NOTIFYICONDATA '托盘结构
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeoutAndVersion As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
Const niif_info = &H1
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
Public Const NIF_INFO = &H10
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Public Const WM_MOUSEMOVE As Long = &H200
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean '托盘函数
Public Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
Public TrayI As NOTIFYICONDATA
Public Title_tray As String
'*****************************************************************************************************************
Option Explicit
'以下是窗体代码
Private Sub Form_Load()
On Error Resume Next
Title_tray = "你好,这是一个托盘程序演示"
With TrayI
.cbSize = Len(TrayI)
.hwnd = Form1.hwnd
.uID = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Form1.Icon
.szTip = Title_tray & vbNullChar
End With
Call Shell_NotifyIcon(NIM_ADD, TrayI)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.WindowState = vbNormal
Me.Visible = True
SetForegroundWindow Me.hwnd
Form1.PopupMenu Form1.bb '弹出菜单
End If
If Button = 2 Then
'右键
End If
End Sub
- 将程序放入托盘中
- MFC 将程序缩小托盘
- vb6中托盘程序
- 将DropDownList放入GridView中
- 将信息放入xml中
- VC++:如何将程序最小化到托盘
- 如何将程序最小化到托盘
- VC++:如何将程序最小化到托盘
- VC实现将程序最小化到托盘
- VC++:如何将程序最小化到托盘
- 将程序最小化到托盘(实用工具)
- VC 将程序最小化到托盘
- VC++如何将程序最小化到托盘
- 将对话框程序最小化到托盘
- VC++如何将程序最小化到托盘
- 将exec执行结果放入变量中
- 将多行数据放入数组中
- 将常用常量放入ServletContext中,
- Intelligent DropDownList and ListBox ASP.NET Server Controls
- 带图片的,多列的DropDownList的实现
- 在csdn上面看到的题目
- 将图片保存到数据库中
- 读RSS的PHP
- 将程序放入托盘中
- 演示水晶报表设计概念的官方示例报表列表
- 用javascript连接access数据库的方法
- [ASP]调用Jmail组件发送邮件过程(绝对能发到126等外部邮箱)
- JavaScript实用的一些技巧
- 古训《增广贤文》
- 日历
- ASP函数库
- Asp中一些FSO方面的函数