Dim tab1 As WinForm.TabControl
tab1 = e.Form.CreateControl("tab1", ControlTypeEnum.TabControl)
tab1.width =1000
tab1.height =2000
tab1.Left = 0
tab1.Top = 0
e.Form.AddControl(tab1)
'e.Form.Controls("tab1").basecontrol.ItemSize=new Size(100,25)
tab1.Multiline=True
Dim cmddt As New SQLCommand
'cmddt.ConnectionName = _Connection1
cmddt.CommandText = "select * from {ft_sn_bt_key} "
Dim dt As DataTable = cmddt.ExecuteReader
Dim btn As WinForm.button
Dim i As Integer =0
Dim ls As New List(Of String)
Dim s As String="男手牌|女手牌"
ls.addrange(s.split("|"))
Dim x As Integer
Dim str As String
Dim pan As WinForm.Panel
For x =0 To ls.Count-1
str=ls(x)
tab1.TabPages.Add(str,str)
pan = e.Form.CreateControl("pan" & ls(x), ControlTypeEnum.panel)
pan.width=1000
pan.height=2000
pan.left=10
pan.Top=10
pan.BackColor = color.white
e.Form.Controls("tab1").basecontrol.tabpages(str).addcontrol(pan)
Next
Dim s2() As String = {"01","02"}
For x =0 To ls.Count-1
i=0
For Each dr As DataRow In dt.Select("ckeylbno = '" & s2(x) & "'")
'If dr("fjlx")=ls(x) Then
btn = e.Form.CreateControl("btn" & dr("ckeyname").trim(), ControlTypeEnum.button)
btn.width=120
btn.height=120
btn.Text = dr("ckeyname").trim()
btn.TextAlign=ContentAlignment.MiddleCenter
btn.Font=New font("宋体", 20, FontStyle.bold)
btn.Left = 10+(i Mod 7)*120
btn.Top = 10+(i\7)*120
btn.Image = GetImage("noselect.png")
btn.TextImageRelation = TextImageRelation.ImageBeforeText
btn.basecontrol.tag=0
e.Form.Controls("pan" & ls(x)).AddControl(btn)
i=i+1
'End If
Next
Next
加好友 
发短信
Post By：2020/4/16 22:22:00 [只看该作者]
