VB打造超酷个性化菜单(3)

　　源代码下载：点击这里下载(28K, winzip压缩文件)现在到了最关键，最精彩，也是最复杂的部分了。我们最关心的就是怎样“画”菜单，怎样处理菜单事件，在MenuWndProc这个处理消息的函数里，我们要处理如下消息：WM_COMMAND（单击菜单项），WM_MEASUREITEM（处理菜单高度和宽度），WM_MENUSELECT（选择菜单项），WM_DRAWITEM（绘制菜单项）。

     打开上次建好的工程，添加一个标准模块，并将其名称设置为mMenu，代码如下：

'*****************************************************
'* 本模块配合 cMenu 菜单类模块
'*
'* 版权: LPP软件工作室
'* 作者: 卢培培(goodname008)
'* (******* 复制请保留以上信息 *******)
'*****************************************************
Option Explicit
'-=-=-=-=-=-=-=-=-=-=-=-=-=- API 函数声明 -=-=-=-=-=-=-=-=-=-=-=-=-=-Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, 
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, 
ByVal nHeight As Long, ByVal hSrcDC As Long,
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop 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 CreateCompatibleDC Lib "gdi32" 
(ByVal hdc As Long) As Long
Public Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, 
ByVal nWidth As Long, ByVal crColor As Long) As Long
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function CreateSolidBrush Lib "gdi32" 
(ByVal crColor As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, 
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" 

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:消息队列在VB.NET数据库开发中的应用

下一篇:VB打造超酷个性化菜单(2)