ActiveBar控件动态添加子菜单的方法

2010-04-19 02:25:46 132 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从零开始！在 Windows 上安装与配置 Dify 这篇博客将详细介绍如何在 Windows 系统上部署 Dify，适合零基础用户。从 Docker 和 WSL 的安装配置开始，逐步指导用户设置 Git、Docker 环境以及 Dify 配置文件，解决可能遇到的端口冲突等问题，最终完成 Dify 的启动和测试。通过简明易懂的步骤，帮助用户在本地成功运行 Dify，实现模型供应商配置，让 Dify 项目在 Windows 平台上顺利上线。阅读详情

Set ttool = .Tools.Add(0, "File")
ttool.Caption = "文件"
ttool.Style = DDSStandard

我这样写增加了一个“文件”菜单，我想再加一个子菜单“保存”，该怎么写？先谢谢大家了

...全文

FoxPro中ACTIVEBAR控件深度应用与界面优化实战在Visual FoxPro（VFP）的界面开发体系中，ACTIVEBAR控件作为扩展型工具栏组件，突破了传统Toolbar和Menu系统的静态局限。它基于VFP的类库（如ActBar.vcx）实现，封装了丰富的UI元素管理逻辑，支持按钮、下拉菜单、图像绑定及事件响应一体化设计。在现代 Visual FoxPro 应用程序开发中，用户界面的直观性与操作效率直接决定了系统的可用性和专业度。ACTIVEBAR 控件作为增强型工具栏的核心组件，提供了远超传统Toolbar和Menu。阅读详情

YUYAO2

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

cqq_chen 2010-04-21

打赏
举报

安装后就可以找到自带的例子。
C:\Program Files\Data Dynamics\ActiveBar 2\Samples\VB6

YUYAO2 2010-04-21

打赏
举报

谢谢了，我之前都没找到例子

threenewbee 2010-04-20

打赏
举报

Option Explicit



Private Sub ab_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)

    Debug.Print Tool.Name

    If Tool.Name = "miFExit" Then Unload Me

End Sub



Private Sub Form_Load()

    CreateTools

    CreateBands

End Sub



Private Sub CreateTools()

Dim Tool As ActiveBar2LibraryCtl.Tool

Dim iCat As Integer

Dim keys(0) As New ShortCut



    iCat = 100

    Set Tool = ab.Tools.Add(iCat + 1, "mnuFile")

    Tool.Caption = "文件(&F)": Tool.SubBand = "mnuFile": Tool.Category = "菜单"

    Set Tool = ab.Tools.Add(iCat + 2, "mnuEdit")

    Tool.Caption = "编辑(&E)": Tool.SubBand = "mnuEdit": Tool.Category = "菜单"

    Set Tool = ab.Tools.Add(iCat + 3, "mnuView")

    Tool.Caption = "视图(&V)": Tool.SubBand = "mnuView": Tool.Category = "菜单"

    Set Tool = ab.Tools.Add(iCat + 4, "mnuHelp")

    Tool.Caption = "帮助(&H)": Tool.SubBand = "mnuHelp": Tool.Category = "菜单"



    iCat = 200

    Set Tool = ab.Tools.Add(iCat + 1, "miFNew")

    Tool.Caption = "新建(&N)...": Tool.Category = "文件"

    keys(0) = "Control+N"

    Tool.SetPicture ddITNormal, LoadPicture(App.Path & "\icons\FileNew.bmp")

    Tool.ShortCuts = keys

    

    Set Tool = ab.Tools.Add(iCat + 2, "miFOpen")

    Tool.Caption = "打开(&O)": Tool.Category = "文件"

'    Tool.SetPicture ddITNormal, LoadPicture(App.Path & "\icons\FileOpen.bmp")

    keys(0) = "Control+O"

    Tool.ShortCuts = keys

    

    Set Tool = ab.Tools.Add(iCat + 3, "miFSave")

    Tool.Caption = "保存(&S)": Tool.Category = "文件"

'    Tool.SetPicture ddITNormal, LoadPicture(App.Path & "\icons\FileSave.bmp")

    keys(0) = "Control+S"

    Tool.ShortCuts = keys



    Set Tool = ab.Tools.Add(iCat + 4, "miFExit")

    Tool.Caption = "退出(&X)": Tool.Category = "文件"

    keys(0) = "Alt+F4"

    Tool.ShortCuts = keys



    iCat = 300

    Set Tool = ab.Tools.Add(iCat + 3, "miECut")

    Tool.Caption = "剪切(&U)": Tool.Category = "编辑"

'    Tool.SetPicture ddITNormal, LoadPicture(App.Path & "\icons\EditCut.bmp")

    keys(0) = "Control+X"

    Tool.ShortCuts = keys

    

    Set Tool = ab.Tools.Add(iCat + 1, "miECopy")

    Tool.Caption = "复制(&C)": Tool.Category = "编辑"

'    Tool.SetPicture ddITNormal, LoadPicture(App.Path & "\icons\EditCopy.bmp")

    keys(0) = "Control+C"

    Tool.ShortCuts = keys

    

    Set Tool = ab.Tools.Add(iCat + 2, "miEPaste")

    Tool.Caption = "打开(&O)": Tool.Category = "编辑"

   ' Tool.SetPicture ddITNormal, LoadPicture(App.Path & "\icons\EditPsate.bmp")

    keys(0) = "Control+V"

    Tool.ShortCuts = keys

    

    iCat = 400

    Set Tool = ab.Tools.Add(iCat + 1, "miVToolbar")

    Tool.Caption = "工具栏(&T)": Tool.Category = "视图"

    

    Set Tool = ab.Tools.Add(iCat + 2, "miVStatusBar")

    Tool.Caption = "状态栏(&S)": Tool.Category = "视图"

    

    iCat = 500

    Set Tool = ab.Tools.Add(iCat + 1, "miHAbout")

    Tool.Caption = "关于(&A)": Tool.Category = "帮助"

    keys(0) = "F1"

    Tool.ShortCuts = keys

End Sub



Private Sub CreateBands()

Dim b As ActiveBar2LibraryCtl.Band



    Set b = ab.Bands.Add("mnuFile"): b.Type = ddBTPopup

    With b.Tools

        .Insert .Count, ab.Tools("miFNew")

        .Insert .Count, ab.Tools("miFOpen")

        .Insert .Count, ab.Tools("miFSave")

        .Insert .Count, ab.Tools("miFExit")

    End With



    Set b = ab.Bands.Add("mnuEdit"): b.Type = ddBTPopup

    With b.Tools

        .Insert .Count, ab.Tools("miECut")

        .Insert .Count, ab.Tools("miECopy")

        .Insert .Count, ab.Tools("miEPaste")

    End With



    Set b = ab.Bands.Add("mnuView"): b.Type = ddBTPopup

    With b.Tools

    .Insert .Count, ab.Tools("miVToolbar")

    .Insert .Count, ab.Tools("miVStatusBar")

    End With



    Set b = ab.Bands.Add("mnuHelp"): b.Type = ddBTPopup

    b.Tools.Insert b.Tools.Count, ab.Tools("miHAbout")

    

    Set b = ab.Bands.Add("mnuMain"): b.Type = ddBTMenuBar

    

    ab.Tools("mnuFile").SubBand = "mnuFile"

    ab.Tools("mnuEdit").SubBand = "mnuEdit"

    ab.Tools("mnuView").SubBand = "mnuView"

    ab.Tools("mnuHelp").SubBand = "mnuHelp"

    

    With b.Tools

        .Insert .Count, ab.Tools("mnuFile")

        .Insert .Count, ab.Tools("mnuEdit")

        .Insert .Count, ab.Tools("mnuView")

        .Insert .Count, ab.Tools("mnuHelp")

    End With

    

    ab.RecalcLayout

    ab.Refresh

End Sub

cqq_chen 2010-04-20

打赏
举报

为什么不看例子呢？其实对于不了解的控件，最快了解并使用的方法就是看例子加上帮助文件了...

你要的这个功能，例子中100%有完全一样的代码...

贝隆 2010-04-19

打赏
举报

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

ActiveBar控件动态添加子菜单的方法

相关推荐