VB打造超酷个性化菜单（一）
点击次数：58 次 发布日期：2008-11-06 08:06:28 作者：源代码网
源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 众所周知，MS Office 2003推出已经有一段时间了，但我们依然不会忘记Office XP刚刚推出时其令人耳目一新的菜单给我们留下的深刻印象。突起的悬浮式图标，不同寻常的菜单项填充方式，不仅让办公一族们赞不绝口，更让广大的程序员和编程爱好者对这种风格的菜单的制作产生了浓厚的兴趣。所以，在这篇文章里，我们就来好好地研究研究用VB怎么制作这种风格的菜单，在文章的最后，我将给出源代码的下载地址。事实上，在了解其原理以后，不论是用VB、VC还是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("imagesopen.ico"), "打开", MIT_STRING 源代码网推荐 源代码网推荐 menu.AddItem "save", LoadPicture("imagessave.ico"), "保存", MIT_STRING 源代码网推荐 源代码网供稿. |
