主题：请问动态添加的TopicBar，如何设置TopicLinkClick

窗口1_AfterLoad

Dim tpb As C1.Win.C1Command.C1TopicBar = Forms("窗口1").Controls("TopicBar1").basecontrol

AddHandler tpb.LinkClick, AddressOf LinkClick

全局代码

Public Sub LinkClick(sender As object, e As C1.Win.C1Command.C1TopicBarClickEventArgs)

    msgbox(e.page.text & "   " & e.link.text)

End Sub

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:topicbar动态事件.table