以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54979)
--  作者：tujiu
--  发布时间：2014/8/8 11:52:00
--  增加控件

把控件定义为数组，我想通过集合的方式动态的向窗口中增加6个label控件。怎么定义？
--  作者：有点甜
--  发布时间：2014/8/8 11:54:00
--  

   参考

 

http://www.foxtable.com/help/topics/1409.htm

 
--  作者：tujiu
--  发布时间：2014/8/8 11:59:00
--  

你看一下这样写对吗？

Dim c1,c2,c3,c4,c5,c6 As WinForm.Control
c1 = e.form.controls("textbox1")
c2 = e.form.controls("textbox2")
c3 = e.form.controls("textbox3")
c4 = e.form.controls("textbox4")
c5 = e.form.controls("textbox5")
c6 = e.form.controls("textbox6")
Dim labs() As WinForm.Control = {c1,c2,c3,c4,c5,c6}
--  作者：有点甜
--  发布时间：2014/8/8 12:02:00
--  

Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = "标签1"
lbl.Left = 100
lbl.Top = 100
e.Form.AddControl(lbl)


lbl = e.Form.CreateControl("lable2", ControlTypeEnum.Label)
lbl.Text = "标签1"
lbl.Left = 200
lbl.Top = 100
e.Form.AddControl(lbl)