林正英惊鸿一面的女鬼:将我自已的命令加入窗体的控制菜单栏
来源:百度文库 编辑:偶看新闻 时间:2024/03/28 17:18:41
将我自已的命令加入窗体的控制菜单栏
发布时间:2008-04-03 10:36:33 来源:编程爱好者网站 作者:编程爱好者网站 点击:209
建一个Project,包含一个Form(Frmmain)和一个Module(MSysMenu)Frmmain:
Option Explicit
Private Sub Form_Load()
Dim hSysMenu As Long
’Get Handle Of System Menu
hSysMenu = GetSystemMenu(hwnd, 0&)
’Append separator and menu item with ID IDM_ABOUT
Call AppendMenu(hSysMenu, MF_SEPARATOR, 0&, 0&)
Call AppendMenu(hSysMenu, MF_STRING, IDM_ABOUT, "About...")
Call AppendMenu(hSysMenu, MF_STRING, IDM_EXIT, "Exit")
Show
’ Install system menu window procedure
procOld = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf SysMenuProc)
End Sub
MSysMenu:
Option Explicit
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
Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const MF_STRING = &H0&
Public Const MF_SEPARATOR = &H800&
Public Const GWL_WNDPROC = (-4)
Public Const WM_SYSCOMMAND = &H112
Public procOld As Long
’User’s menu
Public Const IDM_ABOUT = &H2000
Public Const IDM_EXIT = &H2001
Public Function SysMenuProc(ByVal hwnd As Long, ByVal iMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
’ Ignore everything but system commands
If iMsg = WM_SYSCOMMAND Then
’ Check for one special menu item
Select Case wParam
Case IDM_ABOUT
MsgBox "Hi"
Exit Function
Case IDM_EXIT
Unload FrmMain
Exit Function
End Select
End If
’ Let old window procedure handle other messages
SysMenuProc = CallWindowProc(procOld, hwnd, iMsg, wParam, lParam)
End Function
怎么在运行中加入自已的命令
vb中有菜单栏的窗体能隐藏标题栏吗
怎样才能控制自已的心情
我要怎么才能控制自已的紧张呀
用access如何将自定义窗体和控制窗体绑定
为什么无法控制自已的感情?
我的电脑菜单栏问题.
我的电脑菜单栏和IE的菜单栏一样了
请问我的地址栏在菜单栏的右下角 不能粘贴地址 怎样将他回复呢
我的电脑菜单栏变得和IE菜单栏一样了
在vb中如何将一个窗体的文本框的值传给另一个窗体文本框
怎样才能在自已的文章中加入图案?
如果让自已的网业加入百度!
怎样把自已制作的场景加入到自已的UC中?
我现在脾气越来越爆燥 怎么控制自已的脾气
如何将AdSense 的代码加入我的博客
怎样将电脑中隐藏的文件还原?设定菜单栏?
我要将一个子网加入原来的局域网
如何将我的主页加入收索引擎
如何将广告代码加入我的网页
如何将我的主页加入收索引擎
如何将我自已编的小程序上传到我的主页上?
我的Corel9的菜单栏不见了怎么办?
我的maxthon浏览器的菜单栏不见了