- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请老师帮忙看一下，为啥男手牌不在起始位置生成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148860)
-- 发布时间：2020/4/16 22:22:00
-- 请老师帮忙看一下，为啥男手牌不在起始位置生成
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
请老师帮忙看一下，为啥男手牌不在起始位置生成，哪个语句我写错了，谢谢！
-- 发布时间：2020/4/16 22:43:00
--
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