以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为何我这代码执行后 tabControl 里面什么都没有，提示框显示都建立了，外面循环的页面都建立了，里面添加的控件都没有  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65768)
--  作者：a937775799
--  发布时间：2015/3/22 19:26:00
--  [求助]为何我这代码执行后 tabControl 里面什么都没有，提示框显示都建立了，外面循环的页面都建立了，里面添加的控件都没有
 Dim l As  List(of String) = Functions.Execute("返回表某一列数组","单位类型表","单位类型")
Dim gl As  List(of String) = Functions.Execute("返回表某一列数组","人员岗位表","岗位" )
Dim tab As WinForm.TabControl = e.Form.Controls("tab_单位类型")
tab.TabPages.Clear  \'清空
Dim pan As WinForm.Panel
Dim lab As WinForm.Label

Dim temp_int As Integer = 0
For Each s As String In l
    tab.TabPages.Add(s,s)
    For Each ss As String In gl
        If ss.Contains( s )            
            pan = e.Form.CreateControl("pan_"+ss,ControlTypeEnum.Panel)
            pan.Top = 25
            pan.Height = 25 * temp_int
            pan.Width = tab.Width - 10
            pan.Left = 5    
            pan.BorderStyle =BorderStyle.FixedSingle
            pan.TopMost = True
            lab = e.Form.CreateControl("lab_"+ss,ControlTypeEnum.Label)            
            lab.Height = 21            
            lab.Left = 0
            lab.Top = 2
            lab.Text = ss

            pan.AddControl(lab)
            tab.TabPages(s).AddControl(pan)
            MessageBox.Show(  lab.Text   )
        End If
    Next    
Next
[此贴子已经被作者于2015/3/22 19:26:51编辑过]
--  作者：有点甜
--  发布时间：2015/3/22 19:32:00
--  

 里面的，你添加pan的时候，每一个都添加在同一个位置了，可能看起来像没有添加。

 

            pan.Top = 25
            pan.Height = 25 * temp_int
            pan.Width = tab.Width - 10
            pan.Left = 5 

 

[此贴子已经被作者于2015/3/22 19:31:52编辑过]
--  作者：a937775799
--  发布时间：2015/3/22 19:33:00
--  
 哎呀 。。。又是 逻辑问题 。。找半天 没发现