Foxtable(狐表)用户栏目专家坐堂 → 動態增加的TextBox,NumericComboBox無法獲取?


  共有10473人关注过本帖树形打印复制链接

主题:動態增加的TextBox,NumericComboBox無法獲取?

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/10 9:32:00 [显示全部帖子]

呵呵,收到,我会处理好的。

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/24 15:07:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/24 17:36:00 [显示全部帖子]

收到,确实有问题。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/26 14:49:00 [显示全部帖子]

呵呵,不用给啦,下次更新前会搞定的。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/26 15:23:00 [显示全部帖子]

呵呵,收到。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/8/8 21:06:00 [显示全部帖子]

呵呵,今天抽空准备处理这个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,所以当时也没有细看,惭愧。

 

图片点击可在新窗口打开查看

 

 


 回到顶部