VB打造超酷个性化菜单（四）

最新推荐文章于 2008-05-01 05:51:00 发布
最新推荐文章于 2008-05-01 05:51:00 发布
阅读量541 收藏
点赞数
分类专栏： vb 文章标签： vb menu iis windows image xp
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

VB打造超酷个性化菜单（四）

 

（接上篇）

 

 

' 属性: 菜单总体风格

Public Property Get Style() As MenuUserStyle

    Style = MenuStyle

End Property

 

Public Property Let Style(ByVal nMenuStyle As MenuUserStyle)

    MenuStyle = nMenuStyle

    Select Case nMenuStyle

        Case STYLE_WINDOWS                                              ' Windows 默认风格

            Set BarImage = LoadPicture()

            BarWidth = 20

            BarStyle = LBS_NONE

            BarStartColor = GetSysColor(COLOR_MENU)

            BarEndColor = BarStartColor

            SelectScope = ISS_ICON_TEXT

            TextEnabledColor = GetSysColor(COLOR_MENUTEXT)

            TextDisabledColor = GetSysColor(COLOR_GRAYTEXT)

            TextSelectColor = GetSysColor(COLOR_HIGHLIGHTTEXT)

            IconStyle = IIS_NONE

            EdgeStyle = ISES_SOLID

            EdgeColor = GetSysColor(COLOR_HIGHLIGHT)

            FillStyle = ISFS_SOLIDCOLOR

            FillStartColor = EdgeColor

            FillEndColor = FillStartColor

            BkColor = GetSysColor(COLOR_MENU)

            SepColor = TextDisabledColor

            SepStyle = MSS_DEFAULT

        Case STYLE_XP                                                   ' XP 风格

            Set BarImage = LoadPicture()

            BarWidth = 20

            BarStyle = LBS_NONE

            BarStartColor = GetSysColor(COLOR_MENU)

            BarEndColor = BarStartColor

            SelectScope = ISS_ICON_TEXT

            TextEnabledColor = GetSysColor(COLOR_MENUTEXT)

            TextDisabledColor = GetSysColor(COLOR_GRAYTEXT)

            TextSelectColor = TextEnabledColor

            IconStyle = IIS_SHADOW

            EdgeStyle = ISES_SOLID

            EdgeColor = RGB(49, 106, 197)

            FillStyle = ISFS_SOLIDCOLOR

            FillStartColor = RGB(180, 195, 210)

            FillEndColor = FillStartColor

            BkColor = GetSysColor(COLOR_MENU)

            SepColor = RGB(192, 192, 192)

            SepStyle = MSS_SOLID

        Case STYLE_SHADE                                                ' 渐变风格

            Set BarImage = LoadPicture()

            BarWidth = 20

            BarStyle = LBS_VERTICALCOLOR

            BarStartColor = VBBlack

            BarEndColor = VBWhite

            SelectScope = ISS_ICON_TEXT

            TextEnabledColor = GetSysColor(COLOR_MENUTEXT)

            TextDisabledColor = GetSysColor(COLOR_GRAYTEXT)

            TextSelectColor = GetSysColor(COLOR_HIGHLIGHTTEXT)

            IconStyle = IIS_NONE

            EdgeStyle = ISES_NONE

            EdgeColor = GetSysColor(COLOR_HIGHLIGHT)

            FillStyle = ISFS_HORIZONTALCOLOR

            FillStartColor = VBBlack

            FillEndColor = VBWhite

            BkColor = GetSysColor(COLOR_MENU)

            SepColor = TextDisabledColor

            SepStyle = MSS_DEFAULT

        Case STYLE_3D                                                   ' 3D 立体风格

            Set BarImage = LoadPicture()

            BarWidth = 20

            BarStyle = LBS_NONE

            BarStartColor = GetSysColor(COLOR_MENU)

            BarEndColor = BarStartColor

            SelectScope = ISS_TEXT

            TextEnabledColor = GetSysColor(COLOR_MENUTEXT)

            TextDisabledColor = GetSysColor(COLOR_GRAYTEXT)

            TextSelectColor = VBBlue

            IconStyle = IIS_RAISED

            EdgeStyle = ISES_SUNKEN

            EdgeColor = GetSysColor(COLOR_HIGHLIGHT)

            FillStyle = ISFS_NONE

            FillStartColor = EdgeColor

            FillEndColor = FillStartColor

            BkColor = GetSysColor(COLOR_MENU)

            SepColor = TextDisabledColor

            SepStyle = MSS_DEFAULT

        Case STYLE_COLORFUL                                             ' 炫彩风格

            Set BarImage = frmMenu.Picture

            BarWidth = 20

            BarStyle = LBS_IMAGE

            BarStartColor = GetSysColor(COLOR_MENU)

            BarEndColor = BarStartColor

            SelectScope = ISS_ICON_TEXT

            TextEnabledColor = VBBlue

            TextDisabledColor = RGB(49, 106, 197)

            TextSelectColor = VBRed

            IconStyle = IIS_NONE

            EdgeStyle = ISES_DOT

            EdgeColor = VBBlack

            FillStyle = ISFS_VERTICALCOLOR

            FillStartColor = VBYellow

            FillEndColor = VBGreen

            BkColor = RGB(230, 230, 255)

            SepColor = VBMagenta

            SepStyle = MSS_DASHDOTDOT

    End Select

End Property

 

    这个类模块中包含了各种属性和方法及关于菜单的一些枚举类型，我想强调的有以下几点：

    1、在CreateMenu方法中用SetWindowLong重新定义了frmMenu的窗口入口函数的地址，MenuWndProc是标准模块中的一个函数，就是处理消息的那个函数。

    2、AddItem这个方法是添加菜单项的，使用一个叫做MyItemInfo的动态数组存储菜单项的内容，在“画”菜单项的时候要用到它。在AddItem方法的最后，将菜单项的fType设置成了MFT_OWNERDRAW，也就是物主绘图，这一步最关键，因为将菜单项设置成了Owner Draw，Windows将不会替我们写字，不会替我们画图标，一切都由我们自己来。

    3、在PopupMenu方法中，调用了API函数中的TrackPopupMenu，看到第6个参数了吗？将处理菜单消息的窗口设置成了frmMenu，而我们又对frmMenu进行了子类处理，一切都在我们的掌握之中。

    4、记得要在Class_Terminate中还原frmMenu的窗口入口函数的地址，并释放和菜单相关的资源。

 

    好了，类模块已经OK了，大家可能对这个菜单类有了更多的了解，也看到了它的属性和方法。怎么样？还算比较丰富吧。如果觉得不够丰富的话，自己加就好了，呵呵。不过，最核心的部分还不在这里，而是在那个处理消息的函数，也就是MenuWndProc，它将完成复杂地“画”菜单的任务以及处理各种菜单事件。看看右边的滚动条，已经够窄了，下一篇再讨论吧。  :)

 

（待续）

 

相关链接：

VB打造超酷个性化菜单（一）

VB打造超酷个性化菜单（二）

VB打造超酷个性化菜单（三）

VB打造超酷个性化菜单（四）

VB打造超酷个性化菜单（五）

VB打造超酷个性化菜单（六）

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
zgqtxwd
关注
专栏目录
VB打造超酷个性化菜单（三）
zgqtxwd的专栏
05-01 606
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
VB打造超酷个性化菜单
03-19
非常好的VB个性化菜单，可以设计自己的右键个性化菜单了，赶紧试试吧。
VB打造超酷个性化菜单（一）
zgqtxwd的专栏
05-01 547
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
创意无极限，用VB7制作您的个性化菜单
Chendy的专栏
03-25 672
创意无极限，用VB7制作您的个性化菜单  现代的软件开发，由于开发工具的大幅度进步，早已经让编程变得相当简单了，大家使用同样的工具，能不能写出好的程序来，在很大的程度上来说，已经不单单是技术的较量，而更多的是创意的竞争了。如何让用户对您的软件产生好感，我想除了过硬的技术以外，我们还需要一些新奇的东西，让用户有一种耳目一新的感觉！今天我就从软件界面中最常使用的菜单方面着手，教你制作一个个性化的菜单！
VB仿Windows个性化多风格菜单
05-16
内容索引:VB源码,界面编程,仿Windows,菜单　VB仿Windows个性化多风格菜单，源代码中含有详细的代码说明，这个程序可以模仿系统的标准风格菜单、渐变式菜单、多彩风格、XP风格以及3D风格，带有类模块，方便调用，加入...
vb打造自己喜欢的菜单代码
08-04
本主题将深入探讨如何利用VB来构建个性化菜单，特别是通过图片框和颜色设置实现独特视觉效果。 1. **VB菜单系统基础**：在VB中，菜单通常通过MenuStrip控件来创建。MenuStrip允许程序员添加各种菜单项...
VB 可伸缩展开的菜单实例
06-07
在VB（Visual Basic）编程环境中，可伸缩展开的菜单是一种常见的用户界面设计技术，它允许用户根据需要显示或隐藏菜单项，以提供更简洁、更个性化的界面体验。这样的菜单设计尤其适用于那些功能丰富但界面空间有限的...
利用VB打造XP样式菜单
11-19
教你如何利用VB打造的XP样式菜单。 （VB源代码）
VB.NET制作Windows8 MetroUI Form 风格界面
05-26
VB.NET制作Windows8 MetroUI Form 风格界面！供大家参考！
vb菜单控件--SmartMenuXP
03-20
一个经典VB菜单控件，很多人都用过吧！：）
vb的竖排菜单控件 verticalmenu
11-07
vb的竖排菜单控件 verticalmenu
VB菜单控件curtmenu
09-05
一个有用的VB菜单控件,欢迎大家免费下载
VB打造超酷个性化菜单（五）
zgqtxwd的专栏
05-01 693
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
VB打造超酷个性化菜单（六）
zgqtxwd的专栏
05-01 575
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
VB打造超酷个性化菜单（二）
★卢培培★ ── 欢迎光临卢培培（goodname008）的BLOG
07-12 4679
VB打造超酷个性化菜单（二）     其实，漂亮的界面都是“画”出来的，菜单当然也不例外。既然是“画”出来的，就需要有窗体来接收“画”菜单这个消息，后面我们会看到，实际上不仅仅是“画”这个消息，一切关于这个菜单的消息都要有一个窗体来接收。如果你对消息不太了解，可以看看网上其它一些关于Windows消息机制的文章。不了解也没有关系，只要会使用就可以了，后面的文章给出了完整的源代码，而且文章的最后还给
VB中利用第三方控件实现QQ垂直菜单
ark1111的专栏
03-02 3232
开发者网络 > 开发工具 > 开发专栏 > VB > 正文　　　下载本文提供的第三方控件：VerticalMenu　　使用示例：　　QQ是我们经常使用的软件之一.相信大家对QQ那样的界面再熟悉不过了.在这,我向大家推荐一个在VB中能轻松实现这种类似于QQ垂直菜单的第三方控件VerticalMenu。　　下面我就结合实例（开发环境为Visual Basic 6.0,windowsXP）讲一下运用Ve
VB通用对话框与菜单操作详解
"VB菜单课件涵盖了如何在Visual Basic中创建和使用菜单，以及利用Line、PSet和Circle函数绘制图形。课程介绍了通用对话框的使用，包括打开、另存为、颜色、字体、打印机和帮助等标准对话框，强调了通用对话框作为...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值