'''' 菜单项事件响应(单击菜单项)
Private Sub MenuItemSelected(ByVal itemID As Long)
    Debug.Print "鼠标单击了：" & MyItemInfo(itemID).itemText
    Select Case MyItemInfo(itemID).itemAlias
        Case "exit"
            Dim frm As Form
            For Each frm In Forms
                Unload frm
            Next
    End Select
End Sub

'''' 菜单项事件响应(选择菜单项)
Private Sub MenuItemSelecting(ByVal itemID As Long)
    Debug.Print "鼠标移动到：" & MyItemInfo(itemID).itemText
End Sub

    到此为止，我们就完成了菜单类的编写，且还包括一个测试窗体。现在，完整的工程里应该包括两个窗体：frmMain和frmMenu；一个标准模块：mMenu；一个类模块：cMenu。按F5编译运行一下，在窗体空白处单击鼠标右键。怎么样，出现弹出式菜单了吗？换个风格再试试。
    看完这个系列的文章后，我想你应该已经对采用物主绘图技术的自绘菜单有了一定的了解，再看看MS Office 2003的菜单，其实也没什么难的嘛。
    该程序在Windows XP、VB6下调试通过。
    源代码下载地址：http://y365.com/ses518/soft/samplecsdn.zip

（全文完）

****************************************************************

* 转载请通知作者并注明出处，谢谢。

* 作者：goodname008（卢培培）

* 邮箱：goodname008@163.com

****************************************************************

相关链接：
VB打造超酷个性化菜单（一）
VB打造超酷个性化菜单（二）
VB打造超酷个性化菜单（三）
VB打造超酷个性化菜单（四）
VB打造超酷个性化菜单（五）
VB打造超酷个性化菜单（六）

上一页  [1] [2] [3] [4] [5] [6] [7]