16,552
社区成员
发帖
与我相关
我的任务
分享
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