地址
http://202.111.154.52/other/wl/aju/main/shownews.asp?news_id=24
效果图
http://202.111.154.52/other/wl/aju/upload/uploadfile/example.gif
下载地址
http://202.111.154.52/other/wl/aju/main/opensoft.asp?soft_id=28&url=1XpMenu菜单控件功能描述:实现Office 2003菜单的效果,并且能自定义样式,支持VB6.0、VB.Net、C#,运行
在98、Win2K、WinXp下。版权描述:版权归作者所有,自由软件,随意拷贝随意使用。请到本站关注最新的版本 。属性说明MenuColor类别CheckBorder             菜单复选状态时选中框的颜色CheckFill               菜单复选状态时选中框的填充色CheckFillStart          菜单复选状态时选中框使用过渡色填充时的起始色CheckFillEnd            菜单复选状态时选中框使用过渡色填充时的终止色CheckSelFill            菜单复选状态时选中框在鼠标激活时的填充色CheckSelFillStart       菜单复选状态时选中框在鼠标激活时的过渡填充色的起始色CheckSelFillEnd         菜单复选状态时选中框在鼠标激活时的过渡填充色的终止色
DisabledSelBorder       无效的菜单激活框的颜色DisabledSelFill         无效的菜单激活框的填充色DisabledText            无效的菜单文字颜色IcoBack                 图标区的背景色IcoStart                图标区过渡填充时的起始色IcoEnd                  图标区过渡填充色的终止色MainMenuHoverStart      主菜单过渡填充时的起始色MainMenuHoverEnd        主菜单过渡填充时的终止色MenuBorder              菜单的边框色SelBorder               菜单激活框的颜色SelFill                 菜单激活框的填充色Separator               分割线的颜色TextBack                菜单文字区的背景色TextFore                菜单的文字颜色UseGradient           是否使用过渡填充方式MenuDimension类别(以象素为单位)ButtonCapGap               图标区与文字区文字的间隔RecButtonWidth            图标区的宽度 推荐为图标的宽度加上6RecItemHeight               菜单项目的高度 推荐为图标的高度加上6例子:    Rem 在运行时改变菜单项目的高和宽,假设使用的图标尺寸为32x32    XPmenu1.SetMenuOwnerDraw False    XPmenu1.RecButtonWidth = 32 + 6    XPmenu1.RecItemHeight = 32 + 6    Call XPmenu1.AddMenuPicture("FileTest2", LoadPicture(App.Path & "
\images\File32x32.ico"))    XPmenu1.SetMenuOwnerDraw True方法1. AddMenuPicture 添加菜单项目的图标原型为:Function AddMenuPicture(menuCaption As String, menuPicture As stdole.
StdPicture) As Boolean参数menuCaption 菜单项的Caption,不包括快捷键的名称menuPicture  菜单项的图标返回结果,成功添加后返回True,否则返回False     2. ShowAbout 显示关于对话框原型为:Sub ShowAbout()常见疑问Q:如何使菜单靠右对齐 ?A:把要靠右对齐的菜单Caption前面写两个空格,从这个菜单之后的主菜单都将靠右对齐
。Q:如何制作一个菜单的主分割线?A:把要作为主分割线的主菜单项目Caption留空,注意不是空格而是什么也不写;运行程
序后这个主菜单就变成了主分割线。Q:为什么在同一个程序内的一个窗体上更改颜色属性会影响到本程序的其他的窗体?A:作者认为同一个程序应该保持相同的风格,弄的花花绿绿的其实并不好。Q:此控件都支持那些操作系统和编程环境?A:此控件可以运行在Win98、Win2000、WindowsXP、WinServer2003下,支持VB6.0+sp5、
C#、VB.Net。Q:怎么在运行时更改菜单项目的高和宽?A:建议在设计时就把这些设置好,如果需要在运行时更改请参考上面的例子代码。感谢感谢CSDN网友支持,特别是clark_rain(谢玉辉) 、 lqtflwg718(九五之尊)、accpedu(人
月神话)。

解决方案 »

  1.   

    可以吧代码给我们马,因为,我喜欢程序不用OCX的
      

  2.   

    下载地址:
    http://202.111.154.52/other/wl/aju/upload/uploadfile/xpmenutest.rar
    把图片放在属性里,也曾考虑了,但是觉得那样会增大程序本身,如果自己喜欢这样,可以使用资源文件,把自己的图标使用资源文件来调用。
      

  3.   

    TAB不能在按钮上切换焦点啊,鼠标移到按钮上后按空格或回车不激活单击事件啊
      

  4.   

    to sakurako(DearDream) 
    你凭什么这样说的????我很生气!