vb.net 一个label为啥找不出来！！！！

hb1122 2010-01-07 01:30:49

从me中查找己定义的label，对其进行赋值，me.controls.Find("lab_tab_row12",true)，找不到控件，附代码：

Public Class bg



    '定义呼出按钮

    Private WithEvents but_call_form As New Button '主面板呼出

    Private WithEvents but_call_dealer As New Button '上级数据操作

    Private WithEvents but_call_pic As New Button '数据加工管理

    Private WithEvents but_call_store As New Button ' 店铺商品管理

    Private WithEvents but_call_sell As New Button '销售管理



   





    '定义面板

    Private currentpanel As New Panel '定义托管面板

    Private pan_form As New Panel '定义主面板

    Private pan_dealer As New Panel  '定义上级操作面板

    Private pan_pic As New Panel '定义数据加工面板

    Private pan_store As New Panel '定义店铺操作面板

    Private pan_sell As New Panel '定义销售管理面板



    '定义主面板

    Private showtable As New TableLayoutPanel '表格

    Private WithEvents but_tab_ref As New Button '刷新数据

    Private lab_tab_colhead1 As New Label '表格头1

    Private lab_tab_colhead2 As New Label '表格头2

    Private lab_tab_colhead3 As New Label '表格头3

    Private lab_tab_colhead4 As New Label '表格头4

    Private lab_tab_colhead5 As New Label '表格头5

    Private lab_tab_colhead6 As New Label '表格头6



    Private lab_tab_row01 As New Label '表格行标题0

    Private lab_tab_row11 As New Label '表格数据行1

    Private lab_tab_row21 As New Label '表格数据行2

    Private lab_tab_row31 As New Label '表格数据行3

    Private lab_tab_row41 As New Label '表格数据行4

    Private lab_tab_row51 As New Label '表格数据行5

    Private lab_tab_row61 As New Label '表格数据行6



    Private lab_tab_row02 As New Label '表格行标题0

    Private lab_tab_row12 As New Label '表格数据行1

    Private lab_tab_row22 As New Label '表格数据行2

    Private lab_tab_row32 As New Label '表格数据行3

    Private lab_tab_row42 As New Label '表格数据行4

    Private lab_tab_row52 As New Label '表格数据行5

    Private lab_tab_row62 As New Label '表格数据行6



    Private lab_tab_row03 As New Label '表格行标题0

    Private lab_tab_row13 As New Label '表格数据行1

    Private lab_tab_row23 As New Label '表格数据行2

    Private lab_tab_row33 As New Label '表格数据行3

    Private lab_tab_row43 As New Label '表格数据行4

    Private lab_tab_row53 As New Label '表格数据行5

    Private lab_tab_row63 As New Label '表格数据行6



    Private Sub bg_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        

        '放上主面板和所有呼出按钮

        bgpicbox.Width = Me.Width

        bgpicbox.Height = Me.Height

        bgpicbox.Location = New Point(0, 0)

        bgpicbox.SizeMode = PictureBoxSizeMode.StretchImage





        bgpic.Size = New Size(75, 25)

        bgpic.Location = New Point(0, 25)

        bgpic.Text = "更换背景"



        randchangebg.Location = New Point(0, 0)

        randchangebg.Text = "随机"

        randchangebg.BackColor = Color.Transparent



        but_call_form.Size = New Size(150, 50)

        but_call_form.Location = New Point(5, 100)

        but_call_form.Text = "主面板"



        but_call_dealer.Size = New Size(150, 50)

        but_call_dealer.Location = New Point(5, 170)

        but_call_dealer.Text = "上级信息管理"



        but_call_pic.Size = New Size(150, 50)

        but_call_pic.Location = New Point(5, 240)

        but_call_pic.Text = "数据转换"



        but_call_store.Size = New Size(150, 50)

        but_call_store.Location = New Point(5, 310)

        but_call_store.Text = "店铺管理"



        but_call_sell.Size = New Size(150, 50)

        but_call_sell.Location = New Point(5, 380)

        but_call_sell.Text = "销售管理"



        '存入主面板

        showtable.ColumnCount = 7

        showtable.RowCount = 4

        showtable.Size = New Size(500, 92)

        showtable.Location = New Point(10, 50)

        showtable.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink

        showtable.CellBorderStyle = TableLayoutPanelCellBorderStyle.Single



        'showtable.BorderStyle = BorderStyle.FixedSingle

        '第一行

        but_tab_ref.Size = New Size(70, 20)

        but_tab_ref.Text = "刷新"



        lab_tab_colhead1.Text = "产品数量"

        lab_tab_colhead1.Size = New Size(60, 20)

        lab_tab_colhead2.Text = "匹配图片数"

        lab_tab_colhead2.Size = New Size(60, 20)

        lab_tab_colhead3.Text = "转化产品数"

        lab_tab_colhead3.Size = New Size(60, 20)

        lab_tab_colhead4.Text = "生成销售数"

        lab_tab_colhead4.Size = New Size(60, 20)

        lab_tab_colhead5.Text = "展示数量"

        lab_tab_colhead5.Size = New Size(60, 20)

        lab_tab_colhead6.Text = "下架数量"

        lab_tab_colhead6.Size = New Size(60, 20)



        '第二行

        lab_tab_row01.Size = New Size(70, 20)

        lab_tab_row01.Text = "有效产品"

        lab_tab_row11.Size = New Size(60, 20)

        lab_tab_row21.Size = New Size(60, 20)

        lab_tab_row31.Size = New Size(60, 20)

        lab_tab_row41.Size = New Size(60, 20)

        lab_tab_row51.Size = New Size(60, 20)

        lab_tab_row61.Size = New Size(60, 20)



        '第三行

        lab_tab_row02.Size = New Size(70, 20)

        lab_tab_row02.Text = "下架产品"

        lab_tab_row12.Size = New Size(60, 20)

        lab_tab_row22.Size = New Size(60, 20)

        lab_tab_row32.Size = New Size(60, 20)

        lab_tab_row42.Size = New Size(60, 20)

        lab_tab_row52.Size = New Size(60, 20)

        lab_tab_row62.Size = New Size(60, 20)



        '第四行

        lab_tab_row03.Size = New Size(70, 20)

        lab_tab_row03.Text = "所有产品"

        lab_tab_row13.Size = New Size(60, 20)

        lab_tab_row23.Size = New Size(60, 20)

        lab_tab_row33.Size = New Size(60, 20)

        lab_tab_row43.Size = New Size(60, 20)

        lab_tab_row53.Size = New Size(60, 20)

        lab_tab_row63.Size = New Size(60, 20)



        showtable.Controls.AddRange(New Control() {but_tab_ref, lab_tab_colhead1, lab_tab_colhead2, lab_tab_colhead3, lab_tab_colhead4, lab_tab_colhead5, lab_tab_colhead6, lab_tab_row01, lab_tab_row11, lab_tab_row21, lab_tab_row31, lab_tab_row41, lab_tab_row51, lab_tab_row61, lab_tab_row02, lab_tab_row12, lab_tab_row22, lab_tab_row32, lab_tab_row42, lab_tab_row52, lab_tab_row62, lab_tab_row03, lab_tab_row13, lab_tab_row23, lab_tab_row33, lab_tab_row43, lab_tab_row53, lab_tab_row63})

        formvisible.Location = New Point(10, 10)

        formvisible.Text = "显示背景"



        pan_form.Size = New Size(1000, 600)

        pan_form.Location = New Point(160, 80)



        pan_form.Controls.AddRange(New Control() {formvisible, showtable})



..........

''省略定义Panel若干行



       Me.Controls.AddRange(New Control() {bgpicbox, randchangebg, bgpic, pan_form, pan_dealer, pan_pic, pan_store, pan_sell, but_call_form, but_call_dealer, but_call_pic, but_call_store, but_call_sell})

 

         CType(Me.Controls.Find("lab_tab_colhead1", False)(0), Label).Text = "aaaaa"  '此句出错



    End Sub

End Class