求一段代码，使用 ActiveBar2.0 自动读取数据库的相关数据生成菜单

Jonly 2003-08-21 11:53:59

数据库格式如下：

ChildID ParentID MenuName
0 Null 菜单名
1001 0 List1
1002 0 List2
1003 0 List3
1004 1001 List4
1005 1001 List5
1006 1001 List6
1007 1002 List7
1008 1005 List8
1009 1005 List9
1010 1003 List10

...全文

44 8 打赏收藏转发到动态举报

写回复

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

yo_jo 2003-08-25

打赏
举报

回复

釈ॿ।

flxa 2003-08-25

打赏
举报

回复

在AB中，在一个BAND下新建N个TOOL，然后再个N个弹出菜单，到时组装起来就可以了！AB中所有的动作都有可用代码来实现！

Jonly 2003-08-25

打赏
举报

回复

谢谢 hxy2003

我要的自动生成一级一级的菜单，你这个只是列出菜单而已

junki 2003-08-23

打赏
举报

回复

楼主有意思
关注

hxy2003 2003-08-23

打赏
举报

回复

哦,是的,,,这个可以自己设一个值的,,,,,,,,,,,,,

上面的只是大约这样子还是要你自己一条一条的读数据库啊,然后用循环执行上面的代码才行的.

since1990 2003-08-21

打赏
举报

回复

帮你 up

Jonly 2003-08-21

打赏
举报

回复

感谢： hxy2003(asfd)

GetUniqueToolID() 是什么，是自己写的函数吗？
好象这样不行，能再说明白一点吗？

hxy2003 2003-08-21

打赏
举报

回复

你一条一条的读数据库然后把下面的 "恢复数据库"

用你读出来的代替就行啦...

Set Tool = ActiveBar.Tools.Add(GetUniqueToolID(), "acredata")
Tool.Caption = "恢复数据库"
Tool.CaptionPosition = ddCPBelow
Tool.Category = "退出"
Tool.ControlType = ddTTButton
Tool.SetPicture ddITNormal, LoadPicture(App.Path + "\images\mycomputer.ICO")
Tool.Style = ddSIconText
Tool.tagVariant = "shortcutsOther"

VB Activebar2提供非常漂亮的工具栏，安装完成会出现使用代码的实例，可以根据实例制作漂亮的工具栏。安装后无需注册直接正版使用。我给客户做的VB 程序一直用的这个工具非常漂亮

摘要 ActiveBar 2.0提供了完整的Microsoft Office 和Visual Studio 工具栏，菜单和一个小型容易操作的ActiveX控件中可停靠的模拟窗口。ActiveBar 2.0去除了系统菜单和工具栏的局限性，为您的应用程序提供了完整的运行时自定义和个性化环境功能。技术特性唯一的一个交互式WYSIWYG（所见即所得）设计器，可以直接在您的窗体上运行。提供菜单，上下文菜单，工具栏，选项卡工具栏，快捷键，可分离工具箱和状态栏；同时也提供了可停靠窗体，以及将ActiveX控件宿主于工具栏中。提供了状态栏，可以支持各种各样的面板类型（数据型、时间型、Ins, CAPS, 数值型, 和 SCRL），也可以支持宿主ActiveX控件。支持保存和加载布局功能，以在运行时使用，或创建共享工具库。包括各种大小图标的支持。包括按比例调整尺寸的控件容器包括常规工具的工具库应用场景适用于工具栏模块运用优势 § ;;; ;;;完全运行时控件，用来激活或撤消停靠，浮动，调整大小。 § ;;; ;;; 支持按钮，下拉按钮，复选框，文本框，标签，分隔符，ActiveX控件和可停靠窗体。 § ;;; 支持内置MDI子窗体目录和开放的窗体任务栏。 § ;;; ;;; ;;;支持不同工具状态的图标自动解析：点击，激活，撤销。 § ;;; ;;; ;;;可以控制对齐方式，标题位置和工具中的图标。 § ;;; ;;; 支持自动的快捷键操作和每个工具的多种快捷键。 § ;;; ;;; ;;; ;;;可以在运行时进行快捷键自定义。 § ;;; ;;; ;;; ;;;可以将菜单和工具栏布局保存或添加到文件或字节数组中，您可以把图层保存在数据库或注册表中。 § ;;; ;;; ;;;可以创建具有特别上下文的MDI子菜单。 § ;;; ;;; ;;;提供展开菜单和滑动菜单动画。 § ;;; ;;; ;;;提供快捷键梯度和图片背景。 § ;;; ;;; ;;;在弹出菜单中有唯一的标题分离器，可以很清楚的聚集菜单项。 § ;;; ;;; ;;;在弹出菜单和上下文菜单中提供旗帜图片。 § ;;; ;;; ;;;具有Office2000个性化菜单，快速自定义和突出工具。 § ;;; ;;; 具有完全公开的对象模型，可以创建菜单，工具栏以及在运行时以代码形式创建可停靠界面。开发环境支持平台：Windows 95, 98 或以上, Windows NT 4.0 或以上。支持平台 ";;; Microsoft Visual Studio 6.0 Microsoft Visual Studio 97 Microsoft Visual Basic 6.0 Microsoft Visual Basic 5.0 Microsoft Visual Basic 4.0 Microsoft Visual C++ 5.0 Microsoft Internet Explorer 4.0 Microsoft Internet Explorer 3.0 Netscape Navigator Borland(R) C++ Borland(R) Delphi[TM] 3.0 Borland(R) Delphi[TM] 2.0";;; 标准报价 2,550 元人民币 * 以上报价仅供参考，具体以厂商正式报价为准。电话 021-58549800 Email: tools@sh.grapecity.com http://www.grapecity.com/china

VB6.0界面设计控件ActiveBar V2.0 SP3 中文版，亲测可用

ActiveX 图形界面开发工具,很漂亮.可开发类似OFFICE 2003的界面环境,支持导航条,命令按钮等

Data Dynamics ActiveBar 2.0 是一款设计用户界面必不可少的 ActiveX 控件，如果你想让自己的程序变得更专业，它就是您的不二之选！使用它可以制作出像 Word 一样的个性化菜单、“自定义”对话框；像 Outlook 的快捷按钮栏；像 CorelDRAW 的入坞式窗口；像 Delphi 的控件选择页面。并且使用十分简单，保存设计图和加载设计图都十分简单，只用几个方法既可。SP3 中全面支持了 XP 样式，可以在非 XP 操作系统中实现 XP 的介面。这个控件可以用在 VB5、VB6 和 VC++ 上。

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章