呵呵,今天抽空准备处理这个bug,结果发现不是bug,是你的代码问题呢:
Dim Grb10Lbs As String = "Lb1,姓:,25,23,20|Lb2,名:,25,49,20|Lb3,姓別:,13,78,32|Lb4,公司:,13,135,32|Lb5,HKID:,8,106,37|" _
& "Lb6,地址:,13,162,32|Lb7,住宅:,13,226,32|Lb8,工作:,150,226,32|Lb9,手機:,13,254,32|Lb10,傳真:,153,253,32|Lb11,電郵:,13,281,32"
Dim s1,s2 As String
Dim vs(4) As String
Dim vs1(3) As String
Dim lbl As WinForm.Label
Dim Ttb1 As WinForm.TextBox
Dim Cob1 As WinForm.ComboBox
cob1=e.form.CreateControl("ComboBox1", ControlTypeEnum.ComboBox)
cob1.Left = 47
cob1.Top = 77
cob1.Width = 50
cob1.Height = 30
e.form.Controls("GroupBox1").AddControl(cob1)
For Each s1 In GrB10Lbs.split("|")
vs=s1.split(",")
lbl = e.form.CreateControl(vs(0), ControlTypeEnum.Label)
lbl.Text = vs(1)
lbl.Left = vs(2)
lbl.Top = vs(3)
lbl.Width = vs(4)
e.form.Controls("GroupBox1").AddControl(lbl)
Next
Dim Grb10Txbs As String = "T1,47, 21, 250|T2,47, 49, 250|T3,47, 105, 250|T4,47, 133, 250|T6,47, 222, 103|T7,189, 222, 108|T8,47, 251, 103|T9,189, 251, 108|T10,46, 279, 251"
For Each s1 In GrB10Txbs.split("|")
vs1=s1.split(",")
Ttb1 = e.form.CreateControl(vs1(0), ControlTypeEnum.TextBox)
Ttb1.Left = vs1(1)
Ttb1.Top = vs1(2)
Ttb1.Width = vs1(3)
messagebox.show(ttb1.name)
e.form.Controls("GroupBox1").AddControl(Ttb1)
Next
你原来红色的位置是vs(0),这样和前面的label同名了,所以显示不出来。
我以为你搞不定的问题,绝对是个bug,所以当时也没有细看,惭愧。
