老师,下面是生成的动态任务栏。
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
一楼是要添加的代码,我摆在全局事件中没有反应。