网页功能: 加入收藏 设为首页 网站搜索  
VB打造超酷个性化菜单
发表日期:2004-10-25作者:卢培培[转贴] 出处:CSDN  

   众所周知,MS Office 2003推出已经有一段时间了,但我们依然不会忘记Office XP刚刚推出时其令人耳目一新的菜单给我们留下的深刻印象。突起的悬浮式图标,不同寻常的菜单项填充方式,不仅让办公一族们赞不绝口,更让广大的程序员和编程爱好者对这种风格的菜单的制作产生了浓厚的兴趣。所以,在这篇文章里,我们就来好好地研究研究用VB怎么制作这种风格的菜单,在文章的最后,我将给出源代码的下载地址。事实上,在了解其原理以后,不论是用VBVC还是Delphi,都能够制作出XP风格的菜单。不仅如此,我们还可以制作出更加充满个性的另类风格的菜单,比如3D立体风格、渐变风格、多彩风格等等。只有想不到的,没有做不到的。Follow me

    现在,我想有必要说一说我们现在要做的事情。事实上,我们只要做一个菜单类就行了。但谁都会明白,只做一个菜单类是不够的,我们需要一个程序,或者更详细的说,是一个窗体,来测试我们的菜单类。在我个人的开发过程中,我是先写的菜单类,后写的测试窗体,但为了让大家先领略一下写好的菜单类在应用时是多么的方便,所以让我们先来看看测试窗体:

    1)打开VB,新建“标准EXE”工程。

    2­­下面是窗体的控件:

 

组件名称

属性

Form

Name

Caption

frmMain

菜单例子

Frame

Name

Caption

fraStyle

菜单风格

Label

Name

Caption

lblHelp

在窗体空白处单击鼠标右键

OptionButton

Name

Caption

Index

opnStyle

Window 标准

0

OptionButton

Name

Caption

Index

opnStyle

XP 风格

1

OptionButton

Name

Caption

Index

opnStyle

3D 立体风格

2

OptionButton

Name

Caption

Index

opnStyle

渐变风格

3

OptionButton

Name

Caption

Index

opnStyle

多彩风格

4

 

    其实就是在窗体上添加了一个Frame,然后在Frame里添加OptionButton控件数组,用来设置菜单风格,还有一个Label,上面只显示一行提示文字,非常简单。

    3)窗体代码:

 

Option Explicit

 

Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long

 

Private Type POINTAPI

    X As Long

    Y As Long

End Type

 

Dim menu As cMenu

 

Private Sub Form_Load()

    ' 初始化菜单并添加菜单项

    Set menu = New cMenu

    menu.CreateMenu

    menu.AddItem "open", LoadPicture("images\open.ico"), "打开", MIT_STRING

    menu.AddItem "save", LoadPicture("images\save.ico"), "保存", MIT_STRING

    menu.AddItem "print", LoadPicture("images\print.ico"), "打印", MIT_STRING

    menu.AddItem "find", LoadPicture("images\find.ico"), "查找", MIT_STRING

    menu.AddItem "sep1", LoadPicture(), "", MIT_SEPARATOR

    menu.AddItem "undo", LoadPicture("images\undo.ico"), "撤消", MIT_STRING

    menu.AddItem "redo", LoadPicture("images\redo.ico"), "重复", MIT_STRING

    menu.AddItem "sep2", LoadPicture(), "", MIT_SEPARATOR

    menu.AddItem "cut", LoadPicture("images\cut.ico"), "剪切", MIT_STRING

    menu.AddItem "copy", LoadPicture("images\copy.ico"), "复制", MIT_STRING

    menu.AddItem "paste", LoadPicture("images\paste.ico"), "粘贴", MIT_STRING

    menu.AddItem "sep3", LoadPicture(), "", MIT_SEPARATOR

    menu.AddItem "check", LoadPicture("images\check.ico"), "一个 CheckBox", MIT_CHECKBOX

    menu.AddItem "exit", LoadPicture("images\exit.ico"), "退出", MIT_STRING

End Sub

 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ' 单击鼠标右建弹出菜单

    If Button = vbRightButton Then

        Dim pos As POINTAPI

        GetCursorPos pos

        menu.PopupMenu pos.X, pos.Y, POPUP_LEFTALIGN Or POPUP_TOPALIGN

    End If

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

    ' 释放资源, 卸载窗体

    Set menu = Nothing

    Dim frm As Form

    For Each frm In Forms

        Unload frm

    Next

End Sub

 

Private Sub opnStyle_Click(Index As Integer)

    ' 设置菜单风格

    Select Case Index

        Case 0                                  ' Windows 标准

            menu.Style = STYLE_WINDOWS

        Case 1                                  ' XP 风格

            menu.Style = STYLE_XP

        Case 2                                  ' 3D 立体风格

            menu.Style = STYLE_3D

        Case 3                                  ' 渐变风格

            menu.Style = STYLE_SHADE

        Case 4                                  ' 多彩风格

            menu.Style = STYLE_COLORFUL

    End Select

End Sub

 

    代码中创建了一个cMenu类的对象,我们的编程重点将会放在cMenu类上,上面的代码只是简单地调用cMenu。在后面的文章中,我们会看到其实cMenu有多达30个方法和属性供我们调用,它的Style属性只提供了5种内置风格,在实际应用中,我们可以利用cMenu类提供的方法和属性制作出各种各样风格的菜单,为自己的程序锦上添花。

    4)运行结果:

 

Windows 标准

 

XP 风格

 

 

 

 

    其实,漂亮的界面都是“画”出来的,菜单当然也不例外。既然是“画”出来的,就需要有窗体来接收“画”菜单这个消息,后面我们会看到,实际上不仅仅是“画”这个消息,一切关于这个菜单的消息都要有一个窗体来接收。如果你对消息不太了解,可以看看网上其它一些关于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

    STYLE_XP

    STYLE_SHADE

    STYLE_3D

    STYLE_COLORFUL

End Enum

 

Public Enum MenuSeparatorStyle                              ' 菜单分隔条风格

    MSS_SOLID

    MSS_DASH

    MSS_DOT

    MSS_DASDOT

    MSS_DASHDOTDOT

    MSS_NONE

    MSS_DEFAULT

End Enum

 

Public Enum MenuItemSelectFillStyle                         ' 菜单项背景填充风格

    ISFS_NONE

    ISFS_SOLIDCOLOR

    ISFS_HORIZONTALCOLOR

    ISFS_VERTICALCOLOR

End Enum

 

Public Enum MenuItemSelectEdgeStyle                         ' 菜单项边框风格

    ISES_SOLID

    ISES_DASH

    ISES_DOT

    ISES_DASDOT

    ISES_DASHDOTDOT

    ISES_NONE

    ISES_SUNKEN

    ISES_RAISED

End Enum

 

Public Enum MenuItemIconStyle                               ' 菜单项图标风格

    IIS_NONE

    IIS_SUNKEN

    IIS_RAISED

    IIS_SHADOW

End Enum

 

Public Enum MenuItemSelectScope                             ' 菜单项高亮条的范围

    ISS_TEXT = &H1

    ISS_ICON_TEXT = &H2

    ISS_LEFTBAR_ICON_TEXT = &H4

End Enum

 

Public Enum MenuLeftBarStyle                                ' 菜单附加条风格

    LBS_NONE

    LBS_SOLIDCOLOR

    LBS_HORIZONTALCOLOR

 &nb

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 VB打造超酷个性化菜单
本类热点文章
  用VB制作软键盘
  让messagebox自动消失
  制作半透明窗体
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
  获取所有打印纸张格式的方法
  如何使Form的背景图随Form大小改变
  VB实现立体文字
  使用文字做为窗体的形状
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00433