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

原创 2004年07月12日 14:48:00

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

 

    众所周知,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 风格

 

3D立体风格

 

渐变风格

 

多彩风格

 

 

    这篇文章只是抛砖引玉,让大家先睹为快,提前体验一下这个菜单类的魅力。在下一篇中,我们将继续讨论个性化菜单的制作,不一样的是,我们的重点将是那个cMenu类。   :)

 

(待续)

 

 

VB中如何设计菜单在左侧,像资源管理器样子的.左边能对应大图标!谢谢

VB中如何设计菜单在左侧,像资源管理器样子的.左边能对应大图标!谢谢
  • wushaoshan
  • wushaoshan
  • 2004年11月13日 13:20
  • 732

VB侧边栏分类菜单控件

  • 2009年04月29日 04:20
  • 198KB
  • 下载

用VB做导航菜单界面

  • 2010年03月14日 22:39
  • 3KB
  • 下载

关于VB6弹出菜单的问题

写一个小程序, 用VB6随意做下界面,离奇的发现弹出菜单居然没有效果,过程如下 创建一个窗体Form1,用菜单编辑器创建一个弹出菜单 弹出菜单子菜单项在这里名称为mPopup1,事件代码为...
  • prsniper
  • prsniper
  • 2015年11月01日 05:06
  • 1035

Datagrid添加右键菜单

最近的一个项目前台使用的EasyUI,每个界面都有DataGrid控件,按照我们的想法,应该做出来的效果是单击选中,双击可编辑,当然右键也应该出现这些菜单按钮,首先建一个DataGrid的表格。。。。...
  • u013036688
  • u013036688
  • 2015年08月14日 19:57
  • 1351

VB6对象浏览器的用法

估计不少书都把这个强大的工具忽略了,这里补充一下。在VB6的IDE里按下F2,或者选择【视图】菜单的【对象浏览器】菜单项,就可以打开对象浏览器。对象浏览器可以看到一个库中的全部类,模块,枚举的定义。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 02:11
  • 6439

利用VB控件操作目录和文件夹

来自:http://dev.21tx.com/2006/07/29/10732.html   (一) 察看和显示目录下的文件和文件夹   对于这个实现,其实很简单。首先想到的就是VB中给我...
  • hlzs_01
  • hlzs_01
  • 2013年06月05日 11:22
  • 1059

近20个绚丽实用的jQuery/CSS3侧边栏菜单

本文由码农网 – 小峰原创,转载请看清文末的转载要求,欢迎参与我们的付费投稿计划! jQuery作为一款主流的JavaScript前端开发框架,深受广告开发者的亲睐,同时jQuery有着不计其数...
  • yipanbo
  • yipanbo
  • 2016年03月09日 10:20
  • 6310

网页侧边栏三级菜单+面包屑导航栏

我的待办 借机管理 ...
  • luzhiweistudy
  • luzhiweistudy
  • 2017年04月29日 09:22
  • 642

VBA CAD 菜单制作攻略

1。首先写好 一个dvb文件。 这个dvb文件中包含,菜单建立功能,例如: Public Sub SetupMenu() Dim currMenuGroup As AcadMenuGroup ...
  • totti31
  • totti31
  • 2013年12月17日 21:51
  • 4595
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB打造超酷个性化菜单(一)
举报原因:
原因补充:

(最多只允许输入30个字)