以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]任务栏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149004)
--  作者：江南小镇
--  发布时间：2020/4/21 9:01:00
--  [求助]任务栏
老师好，我要把下面代码摆在动态生成的任务栏中。
Select Case e.Sender.Name 
‘Select Case e.Link.Text
    \' Case "切换界面"
        \'Select Case e.Sender.Name \'判断当前控件名称
    Case "切换界面"
        BaseMainform.Controls("C1Ribbon1").Visible = not BaseMainform.Controls("C1Ribbon1").Visible
        \'Case Else
        \' MessageBox.Show("按钮名称: " & e.Sender.Name, "提示")
    Case "切换标题"
        TableCaptionVisible = Not TableCaptionVisible \'切换表标题
        \'Case Else
        \'MessageBox.Show("按钮名称: " & e.Sender.Name, "提示")
    Case "窗口设计"        
        Syscmd.Project.FormDesigner()
    Case Else
End Select
--  作者：有点蓝
--  发布时间：2020/4/21 9:18:00
--  
这个没有办法。只能预先添加一个任务栏控件，然后page和link动态添加
--  作者：江南小镇
--  发布时间：2020/4/21 9:27:00
--  
老师，下面是生成的动态任务栏。

Dim rwl1 As WinForm.TopicBar
rwl1 = e.Form.CreateControl("TopicBar2", ControlTypeEnum.TopicBar)
rwl1 . Dock = 5                                                                              
e.Form.Controls("TabControl1").Tabpages(1).AddControl(rwl1)                                       
Dim rwl2 As WinForm.TopicBar = e.Form.Controls("TopicBar2")
With Ctype(rwl2.BaseControl, C1Command.C1TopicBar)
    .Padding = New System.Windows.Forms.Padding(4)
End With
rwl2.Animation = False
With rwl2.Pages
    .Add("系统管理", "系统管理","69.ico").Collapsed = True
    End With
\'动态生成任务栏按钮
With rwl2.Pages("系统管理").Links
    .Add("切换界面", "切换界面")
    .Add("切换标题", "切换标题")
    .Add("窗口设计", "窗口设计")
    \'.Add("入库明细", "入库明细","folder1.ico")
End With

一楼是要添加的代码，我摆在全局事件中没有反应。
--  作者：有点蓝
--  发布时间：2020/4/21 9:36:00
--  
任务栏没有提供全局点击事件。没有办法