vb6托盘右键菜单
来源:互联网 发布:淘宝买家秀兼职骗局 编辑:程序博客网 时间:2024/04/30 18:54
vb6托盘右键菜单
菜单应用。
'系统托盘相关
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lMsg As Single
lMsg = x / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
'单击左键,显示窗体
ShowWindow Me.hWnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
Case WM_RBUTTONUP
Dim r As RECT
Dim p As POINTAPI
GetCursorPos p
TrackPopupMenu hmenupopup, 0, p.x, p.y, 0, Me.hWnd, r
' 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
新建一个类
'菜单
Public Declare Function CreateMenu Lib "user32" () As Long
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hWnd As Long, lprc As RECT) As Long
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public 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
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Const MF_STRING = &H0&
Public Const MF_POPUP = &H10&
Public Const WM_USER = &H400
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type POINTAPI
x As Long
y As Long
End Type
Public Const GWL_WNDPROC = (-4)
Public hMenu As Long
Public hmenupopup As Long
Public result As Long
Public oldwinproc As Long
Public Const WM_COMMAND = &H111
'菜单事件
Public Function OnMenu(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case wMsg
Case WM_COMMAND
Select Case wParam
Case 300
Form1.Show
Case 301
MsgBox "本程序系电脑人工智能程序BATE版,当前版本:V 1.0.52 本程序测试自动识别指令并运行,后续增加逻辑判断。", vbInformation, "关于程序"
Case 302
Close (Form1)
End Select
End Select
OnMenu = CallWindowProc(oldwinproc, hWnd, wMsg, wParam, lParam)
End Function
- vb6托盘右键菜单
- 托盘图标及右键菜单
- 托盘区右键菜单为什么不能消失
- QT 创建托盘图标和右键菜单
- QT 创建托盘图标和右键菜单
- vb6,richTextBox右键弹出菜单问题!!!
- vb6,richTextBox右键弹出菜单问题
- MFC为应用程序添加托盘(右键托盘,弹出菜单)
- WinForm最小化到托盘以及托盘右键菜单
- MFC 托盘右键菜单点击非菜单区域后消失
- VC 创建托盘,托盘tooltip。右键托盘菜单,点击别的地方会隐藏掉的问题。
- 最小化程序到托盘,并且有右键菜单!
- Flex AIR 系统托盘于右键托盘菜单的实现
- Qt实现系统托盘以及托盘的右键菜单
- VC++任务栏托盘图标及右键菜单实现
- vb6中托盘程序
- vc托盘图标的实现以及托盘右键菜单的响应
- 让一个程序托盘显示,并且右键托盘图标可以弹出菜单
- XSLT格式化日期
- linux+apache2.2+php5.2+mysql5.0源码安装
- opengl/glut的若干函数
- C#开发的程序如何在运行的时候弹出选择调试器的代码
- 数据挖掘算法
- vb6托盘右键菜单
- cvirus.c病毒源代码(只是用与研究!请误乱用!)
- PRB: OnInitialUpdate() May Be Called More Than Once
- 如何用vb6建立带光栅的菜单
- fcntl函数
- 遥仰凰华重装系统后无法运行解决方法
- GMT笔记
- 读毛泽东思想有感
- 状态防火墙 & 深度检测防火墙