动态增加控件 这样写就会出错!
Dim tab1 As WinForm.TabControl
tab1 = e.form.CreateControl("tabcontrol1", ControlTypeEnum.TabControl)
If Functions.Execute("shouquan导航分组","综合管理") Then
tab1.TabPages.Add("综合管理","综合管理")
tab1.tabpages("综合管理").Image = GetImage("2402 34x34.ico")
ElseIf Functions.Execute("shouquan导航分组","销售管理") Then
tab1.TabPages.Add("销售管理","销售管理")
tab1.tabpages("销售管理").Image = GetImage("2401 34x34.ico")
ElseIf Functions.Execute("shouquan导航分组","ERP项目管理") Then
tab1.TabPages.Add("ERP项目管理","ERP项目管理")
tab1.tabpages("ERP项目管理").Image = GetImage("项目管理 34x34.png")
End If
此主题相关图片如下:未命名1.jpg
下面这样写就OK!!
Dim tab1 As WinForm.TabControl
tab1 = e.form.CreateControl("tabcontrol1", ControlTypeEnum.TabControl)
If Functions.Execute("shouquan导航分组","综合管理") Then
tab1.TabPages.Add("综合管理","综合管理")
tab1.tabpages("综合管理").Image = GetImage("2402 34x34.ico")
End If
If Functions.Execute("shouquan导航分组","销售管理") Then
tab1.TabPages.Add("销售管理","销售管理")
tab1.tabpages("销售管理").Image = GetImage("2401 34x34.ico")
End If
If Functions.Execute("shouquan导航分组","ERP项目管理") Then
tab1.TabPages.Add("ERP项目管理","ERP项目管理")
tab1.tabpages("ERP项目管理").Image = GetImage("项目管理 34x34.png")
End If
求解~~~~~~~~~