菜单事件

_Click

Functions.Execute("BTNFUN",e.Sender.Name)

全局代码中设置了一个“CDMC”

全局代码

Default

Public CDMC As String

然后在 BTNFUN 自定义函数中：

自定义函数

BTNFUN

Select Case Args(0)

    Case "组织架构"

        CDMC = "人事管理_组织架构"

        Forms("导航窗口").Show()

    Case "人员管理"

在窗口 “导航窗口” 中的afterload事件中，添加：

导航窗口_AfterLoad

Functions.Execute("TOPPAGEFUN",CDMC)

自定义函数设置：

TOPPAGEFUN

Select Case Args(0)

    Case "人事管理_组织架构"

        Dim tb1 As WinForm.TopicBar = Forms("导航窗口").Controls("TopicBar1")

        With tb1.Pages

            .Add("组织架构","组织架构","1601.ico")

            .Add("报表管理","报表管理","1602.ico")

        End With

        With tb1.Pages("组织架构")

            .Links.Add("查看组织架构","查看组织架构")

            .Links.Add("保存组织架构","保存组织架构")

        End With

        With tb1.Pages("报表管理")

            .Links.Add("统计报表1","统计报表1")

            .Links.Add("统计报表2","统计报表2")

        End With

End Select

结果就是不执行，没反应。

用vars变量也一样。

help