Dim s As Integer = Tables("qrymyf").rows.count - 1
For i As Integer = 0 To s
Dim pan As WinForm.Panel = e.Form.CreateControl("Panel" & i, ControlTypeEnum.Panel)
pan.BackColor = clr1
pan.BorderStyle = BorderStyle.None
pan.Width = 220
pan.Height = 399
pan.Left = 230*i+5
pan.Top = 5
e.Form.Controls("hsr").AddControl(pan)
For i As Integer = 0 To s
Dim txt As WinForm.TextBox = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
txt.MultiLine = True
txt.BorderStyle = BorderStyle.None
txt.BackColor = clr1
txt.ForeColor = clr2
txt.Font = fnt
txt.Width = 218
txt.Height = 163
txt.Left = 230*i+6
txt.Top = 235
txt.text = vbcrlf & " 品牌: " & t.Rows(i)("kkth")
pan.AddControl(txt)
Next
Next
加好友 
发短信
Post By：2017/6/1 8:41:00 [显示全部帖子]
