- 浏览: 167409 次
- 性别:
- 来自: 广州
文章分类
最新评论
-
xiangyufangai:
很好很强大膜拜中哈哈!!
VB 两个字符串处理函数(类似Left/Mid/Right/Split的结合) -
hellohank:
这个……叫摘要算法,不叫加密算法~
Java实现的加密工具类(支持MD5和SHA) -
NIUCH1029291561:
接口有问题奥
网银在线支付接口和应用 -
yeuego:
能幫你就行了
MySQL索引分析 -
ForgiDaved:
很给力的介绍。记得前段时间给一个系统加功能,设计的表没有 ...
MySQL索引分析
为了学习方便,以下提供了源代码:
'--------------------------------------------- ' 使用系统托盘程序演示 '--------------------------------------------- '程序说明: ' 这是一个比较完整的使用系统托盘的程序实例,包括 '了:添加托盘图标,删除托盘图标,动态改变托盘图标, '为托盘图标添加浮动提示信息,实现托盘图标的鼠标右键 '菜单等内容。 '-------名称-------------------作用------------ ' Form1 主窗体 ' mnuFile,mnuFileExit 文件菜单,菜单项 ' mnuTray,mnuTrayClose... 托盘区右键菜单,菜单项 '--------------------------------------------- Option Explicit 'LastState变量的作用是标示主窗体原有状态 Public LastState As Integer '【VB声明】 ' Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '【说明】 ' 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, ' SendMessageByString是该函数的“类型安全”声明形式 '【返回值】 ' Long,由具体的消息决定 '【参数表】 ' hwnd ----------- Long,要接收消息的那个窗口的句柄 ' wMsg ----------- Long,消息的标识符 ' wParam --------- Long,具体取决于消息 ' lParam --------- Any,具体取决于消息 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '表示发送的是系统命令 Private Const WM_SYSCOMMAND = &H112 Private Const SC_MOVE = &HF010& Private Const SC_RESTORE = &HF120& Private Const SC_SIZE = &HF000& '当主窗体加载时 Private Sub Form_Load() '窗体的WindowState属性,返回或设置一个值,该值用来指定在运行时窗体窗口的可视状态 'vbNormal 0 (缺省值)正常 。 'VbMinimized 1 最小化(最小化为一个图标) 'VbMaximized 2 最大化(扩大到最大尺寸) If WindowState = vbMinimized Then LastState = vbNormal Else LastState = WindowState End If '将图标添加到托盘的函数,参见模块中的解释 '注意了这是从主程序到模块的入口,本例中并没有直接调用Shell_NotifyIcon函数 AddToTray Me, mnuTray SetTrayTip "托盘图标演示,点击右键弹出菜单" End Sub '在主窗体Form1大小改变时,相应改变右键菜单mnuTray的菜单项的可用属性Enabled Private Sub Form_Resize() Select Case WindowState '如果窗体最小化了,把菜单项“最大化”“恢复”设为可用, '而把“最小化”“移动”“大小”三项设为不可用. '如果这时在托盘图标上点击鼠标右键,会发现不可用项变为灰色 Case vbMinimized mnuTrayMaximize.Enabled = True mnuTrayMinimize.Enabled = False mnuTrayMove.Enabled = False mnuTrayRestore.Enabled = True mnuTraySize.Enabled = False '窗体最大化时 Case vbMaximized mnuTrayMaximize.Enabled = False mnuTrayMinimize.Enabled = True mnuTrayMove.Enabled = False mnuTrayRestore.Enabled = True mnuTraySize.Enabled = False '一般状态下 Case vbNormal mnuTrayMaximize.Enabled = True mnuTrayMinimize.Enabled = True mnuTrayMove.Enabled = True mnuTrayRestore.Enabled = False mnuTraySize.Enabled = True End Select If WindowState <> vbMinimized Then LastState = WindowState End Sub '保证在程序退出时删除托盘图标 Private Sub Form_Unload(Cancel As Integer) RemoveFromTray End Sub '“文件”菜单的“退出”项被点击时 Private Sub mnuFileExit_Click() Unload Me End Sub '托盘图标右键菜单上的“退出”项被点击时 Private Sub mnuTrayClose_Click() Unload Me End Sub '托盘图标右键菜单上的“最大化”项被点击时 Private Sub mnuTrayMaximize_Click() WindowState = vbMaximized End Sub '托盘图标右键菜单上的“最小化”项被点击时 Private Sub mnuTrayMinimize_Click() WindowState = vbMinimized End Sub '托盘图标右键菜单上的“移动”项被点击时 Private Sub mnuTrayMove_Click() SendMessage HWnd, WM_SYSCOMMAND, _ SC_MOVE, 0& End Sub '托盘图标右键菜单上的“恢复”项被点击时 Private Sub mnuTrayRestore_Click() SendMessage HWnd, WM_SYSCOMMAND, _ SC_RESTORE, 0& End Sub '托盘图标右键菜单上的“退出”项被点击时 Private Sub mnuTraySize_Click() SendMessage HWnd, WM_SYSCOMMAND, _ SC_SIZE, 0& End Sub '----------------------------------------- '以下为模块中的代码: '----------------------------------------- Option Explicit Public OldWindowProc As Long Public TheForm As Form Public TheMenu As Menu '【VB声明】 'Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '【说明】 ' 此函数发送消息到一个窗口过程 '【返回值】 ' Long,依据发送的消息不同而变化 '【参数表】 ' lpPrevWndFunc----- Long,原来的窗口过程地址 ' HWnd-------------- Long,窗口句柄 ' Msg -------------- Long,发送的消息 ' wParam ----------- Long,消息类型,参考wParam参数表 ' lParam ----------- Long,依据wParam参数的不同而不同 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '【VB声明】 ' Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long '【说明】 ' 在窗口结构中为指定的窗口设置信息 '【返回值】 ' Long,指定数据的前一个值 '【参数表】 ' hwnd ----------- Long,欲为其取得信息的窗口的句柄 ' nIndex --------- Long,请参考GetWindowLong函数的nIndex参数的说明 ' dwNewLong ------ Long,由nIndex指定的窗口信息的新值 Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long '【VB声明】 'Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long '【说明】 '【参数表】 '参数dwMessage ---- 为消息设置值,它可以是以下的几个常数值:0、1、2 'NIM_ADD = 0 加入图标到系统状态栏中 'NIM_MODIFY = 1 修改系统状态栏中的图标 'NIM_DELETE = 2 删除系统状态栏中的图标 '参数LpData ---- 用以传入NOTIFYICONDATA数据结构变量,我们也需要在"模块"中定义其结构如下: 'Type NOTIFYICONDATA ' cbSize As Long 需填入NOTIFYICONDATA数据结构的长度 ' HWnd As Long 设置成窗口的句柄 ' Uid As Long 为图标所设置的ID值 ' UFlags As Long 用来设置以下三个参数uCallbackMessage、hIcon、szTip是否有效 ' UCallbackMessage As Long 消息编号 ' HIcon As Long 显示在状态栏上的图标 ' SzTip As String * 64 提示信息 'End Type '---- 其中参数uCallbackMessage、hIcon、szTip也应在模块中声明为以下的常量: 'Public Const NIF_MESSAGE = 1 'Public Const NIF_ICON = 2 'Public Const NIF_TIP = 4 Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Public Const WM_USER = &H400 Public Const WM_LBUTTONUP = &H202 Public Const WM_MBUTTONUP = &H208 Public Const WM_RBUTTONUP = &H205 Public Const TRAY_CALLBACK = (WM_USER + 1001&) Public Const GWL_WNDPROC = (-4) Public Const GWL_USERDATA = (-21) Public Const NIF_ICON = &H2 Public Const NIF_TIP = &H4 Public Const NIM_ADD = &H0 Public Const NIF_MESSAGE = &H1 Public Const NIM_MODIFY = &H1 Public Const NIM_DELETE = &H2 '记录 设置托盘图标的数据 的数据类型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 'TheData变量记录设置托盘图标的数据 Private TheData As NOTIFYICONDATA ' ********************************************* ' 新的窗口过程--主程序中采用SetWindowLong函数改变了窗口函数的地址,消息转向由NewWindowProc处理 ' ********************************************* Public Function NewWindowProc(ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '如果用户点击了托盘中的图标,则进行判断是点击了左键还是右键 If Msg = TRAY_CALLBACK Then '如果点击了左键 If lParam = WM_LBUTTONUP Then '而这时窗体的状态是最小化时 If TheForm.WindowState = vbMinimized Then _ '恢复到最小化前的窗体状态 TheForm.WindowState = TheForm.LastState TheForm.SetFocus Exit Function End If End If '如果点击了右键 If lParam = WM_RBUTTONUP Then '则弹出右键菜单 TheForm.PopupMenu TheMenu Exit Function End If End If '如果是其他类型的消息则传递给原有默认的窗口函数 NewWindowProc = CallWindowProc(OldWindowProc, HWnd, Msg, wParam, lParam) End Function ' ********************************************* ' 把主窗体的图标(Form1.icon属性可改变)添加到托盘中 ' ********************************************* Public Sub AddToTray(frm As Form, mnu As Menu) '保存当前窗体和菜单信息 Set TheForm = frm Set TheMenu = mnu 'GWL_WNDPROC获得该窗口的窗口函数的地址 OldWindowProc = SetWindowLong(frm.HWnd, GWL_WNDPROC, AddressOf NewWindowProc) '知识点滴:HWnd属性 '返回窗体或控件的句柄。语法: object.HWnd '说明:Microsoft Windows 运行环境,通过给应用程序中的每个窗体和控件 '分配一个句柄(或 hWnd)来标识它们。hWnd 属性用于Windows API调用。 '将主窗体图标添加在托盘中 With TheData .Uid = 0 '忘了吗?参考一下前面内容,Uid图标的序号,做动画图标有用 .HWnd = frm.HWnd .cbSize = Len(TheData) .HIcon = frm.Icon.Handle .UFlags = NIF_ICON '指明要对图标进行设置 .UCallbackMessage = TRAY_CALLBACK .UFlags = .UFlags Or NIF_MESSAGE '指明要设置图标或返回信息给主窗体,此句不能省去 .cbSize = Len(TheData) '为什么呢?我们需要在添加图标的同时,让其返回信息 End With '给主窗体,Or的意思是同时进行设置和返回消息 Shell_NotifyIcon NIM_ADD, TheData '根据前面定义NIM_ADD,设置为“添加模式” End Sub ' ********************************************* ' 删除系统托盘中的图标 ' ********************************************* Public Sub RemoveFromTray() '删除托盘中的图标 With TheData .UFlags = 0 End With Shell_NotifyIcon NIM_DELETE, TheData '根据前面定义NIM_DELETE,设置为“删除模式” '恢复原有的设置 SetWindowLong TheForm.HWnd, GWL_WNDPROC, OldWindowProc End Sub ' ********************************************* ' 为托盘中的图标加上浮动提示(也就是鼠标移上去时出现的提示字条) ' ********************************************* Public Sub SetTrayTip(tip As String) With TheData .SzTip = tip & vbNullChar .UFlags = NIF_TIP '指明要对浮动提示进行设置 End With Shell_NotifyIcon NIM_MODIFY, TheData '根据前面定义NIM_MODIFY,设置为“修改模式” End Sub ' ********************************************* ' 设置托盘的图标(在本例中没有用到,如果要动态改变托盘内显示的图标,它非常有用) ' 例如:1、显示动画图标(方法你一定猜到了,对!使用Timer控件,不断调用此过程,注意把动画放在pic数组中) ' 2、程序处于不同状态时,显示不同的图标,方法是类似的 ' 有兴趣的话试一试吧。 ' ********************************************* Public Sub SetTrayIcon(pic As Picture) '判断一下pic中存放的是不是图标 If pic.Type <> vbPicTypeIcon Then Exit Sub '更换图标为pic中存放的图标 With TheData .HIcon = pic.Handle .UFlags = NIF_ICON End With Shell_NotifyIcon NIM_MODIFY, TheData End Sub |
发表评论
-
vb 启动外部程序并且模拟鼠标点击
2011-03-09 13:28 1076Imports System.Runtime.InteropS ... -
VB 列出SQL数据库中所有表及字段信息
2011-03-09 13:24 1100程序思想:用Select name From sysobje ... -
VB 纯代码实现Timer控件的功能
2011-03-09 13:23 1243本博客有一篇类似的文章《VB 中运用 TimeSetEvent ... -
VB 控制音量
2011-03-09 13:22 1189'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换. ... -
拦截 VB TextBox 双击消息
2011-03-09 13:22 919我们都知道在VB中TextBox默认是没有双击消息过程的(也就 ... -
VB 获取/设置屏幕分辨率
2011-03-09 13:21 1061Option ExplicitPrivate Decla ... -
VB 将数据快速导入EXCEL
2011-03-09 13:21 989Public Function ToExcel()On ... -
VB 建立快捷方式
2011-03-09 13:20 758Private Declare Function fCr ... -
VB 获取快捷方式原文件路径
2011-03-09 13:20 890'此方法不需要引用IShellLink.Private ... -
VB 的一组字符串转换函数
2011-03-09 13:20 750Public Function chrConvert(s ... -
VB 在浏览目录时指定初始目录
2011-03-09 13:19 970'VB也可以使用CallBack,下面是一个例子: '先 ... -
VB 获得鼠标滚轮的事件
2011-03-09 13:18 942'窗体代码Private Sub Form_Load() ... -
VB 比较两组字符串
2011-03-09 13:18 1233【方法一】 StrComp(string1, Stri ... -
VB 用API下载文件实例
2011-03-09 13:17 767'########################### ... -
VB 窗口处理技巧大全
2011-03-09 13:17 751VB提供了API函数SetWindowLong和GetWind ... -
VB 实现屏幕右下角浮出式消息窗口,透明淡出效果。
2011-03-09 13:16 919'任务栏高度[此部分相关代码转载自 枕善居]Privat ... -
VB Filter 函数用法
2011-03-09 13:16 1893例子1:Dim aa(10) As StringDim bbD ... -
VB 在EXPLORER进程崩溃之后重建托盘图标
2011-03-09 13:15 816重点为:向系统注册“TaskbarCreated”消息 ... -
Shell 调用程序后等待该程序结束后返回继续
2011-03-09 13:15 1188方法1: Private Declare Functi ... -
VB 最简单的WAV声音或音乐文件播放的代码
2011-03-09 13:14 1333'最简单的WAV声音或音乐文件播放的代码'API声明Pr ...
相关推荐
VB托盘程序详解
VB托盘程序详解
很多软件运行时会在系统托盘区(就是桌面右下角显示时间的...比较完整的托盘程序,我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标;而 且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。
VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区...
一个很好的VB6托盘程序,提供源码下载。
VB开发的一个小型托盘程序,安全无毒,放心使用!
vb net编写的托盘程序,实现打开一个图片功能,可以后台。
vb中将程序最小化到托盘,vb中将程序最小化到托盘,
VB托盘程序,这个例子展现了托盘的用法,VB托盘程序,可以在右下角建立一个托盘系统
VB实现托盘程序
VB程序托盘控件 源码实例,VB自定义一个添加程序到Windows托盘图标的控件,编译控件源码后生成Tray.ocx,源码包中附有一个调用本托盘程序的示例,在TrayDEMO文件夹内,在Class1.cls文件中实现了托盘的主要操作:将...
VB托盘程序详解下 妙用GetSystemMetrics函数 利用API和注册表获取系统信息上 VB快速调用系统对话框下 利用API和注册表获取系统信息中 利用API和注册表获取系统信息下 百叶窗图形特效 实现平面工具栏下 数据库查询...
VB 最小化到托盘程序源码 VB 最小化到托盘程序源码 VB 最小化到托盘程序源码
本例就给出了一个功能比较完整的托盘程序,我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标;而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。 实现vb编程最小化到托盘 很实用的小...
VB托盘程序演示,可将程序图标放入任务栏 单击可显示任务栏菜单
VB 托盘实例 教程
vb托盘程序 简单实用,一看就懂,注释详细
VB托盘演示程序,实现最小化到任务栏,以及任务栏图标设置等。