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

日期：2007年7月27日作者：查看:[大字体中字体小字体]

上一篇：VB打造超酷个性化菜单(1)   其实，漂亮的界面都是“画”出来的，菜单当然也不例外。既然是“画”出来的，就需要有窗体来接收“画”菜单这个消息，后面我们会看到，实际上不仅仅是“画”这个消息，一切关于这个菜单的消息都要有一个窗体来接收。

如果你对消息不太了解，可以看看网上其它一些关于Windows消息机制的文章。不了解也没有关系，只要会使用就可以了，后面的文章给出了完整的源代码，而且文章的最后还给出了源代码的下载地址。

     下面我们来创建接收消息的窗体：打开上次建好的工程，添加一个窗体，并将其名称设置为frmMenu（注意：这一步是必须的）。还记得上篇文章的最后一幅图吗？菜单左边那个黑底色的附加条，为了方便，将frmMenu的Picture属性设置成那幅图。到此，这个窗体就算OK了！对了，就这样，因为这个窗体仅仅是为了处理消息和存储那个黑底色的风格条，我们将会对它进行子类处理，处理消息的代码全部都放在了将在下一篇中详细介绍的标准模块中。

     接下来添加一个类模块，并将其名称设置为cMenu，代码如下：

'*************************************************************
'* 本类模块是一个菜单类, 提供了各种样式的菜单的制作方案
'*
'* 版权: LPP软件工作室
'* 作者: 卢培培(goodname008)
'* (******* 复制请保留以上信息 *******)
'*************************************************************
Option Explicit
Private 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 Any) As Long
Public Enum MenuUserStyle                                   ' 菜单总体风格
    STYLE_WINDOWS
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] 下一页
VB打造超酷个性化菜单(2) 相关文章：
·Windows Vista中如何显示“超级隐藏”文件
·超级兔子虚拟磁盘加速器 1.0下载
·XPSP3性能超越SP2 VistaSP1令人失望
·QQ黑金版曝光超级科幻功能
·微软：IE安全性远超Firefox
·Fireworks制作超酷质感按钮
·PS教程打造超炫的海报立体光芒字
·完全免费教你用QQLive看免费英超
·录入高手输入法通用超级技巧
·超站大赛32强王景琳：业内没有竞争对手
VB打造超酷个性化菜单(2) 相关软件
·学校源码管理系统超靓版V2008
·超级QQ记牌器
·超能力侦探
·超级经典CS作弊器
·《超级马利奥64 DS》模拟器下载
·超任游戏《实况足球4》模拟器
·《超级马里奥银河》新视频及画面公布
·《雷电超激版》游戏试玩
·《仙剑奇侠传三外传》繁体版超级存档修改器
·《超级平衡球》益智滚动游戏试玩

上一篇:VB基础学习:如何取得计算机名

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

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

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

精品推荐

热点TOP10

特别推荐