以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]能否使用控件数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3264)
--  作者：sohper
--  发布时间：2009/6/24 9:15:00
--  [讨论]能否使用控件数组
能否使用控件数组
--  作者：yangming
--  发布时间：2009/6/24 9:18:00
--  
什么意思?
--  作者：狐狸爸爸
--  发布时间：2009/6/24 9:44:00
--  
控件数组是VB6时代的，现在已经没有这个概念了
--  作者：sohper
--  发布时间：2009/6/24 10:38:00
--  

谢谢两位,那么现在有没有办法, 可以达到VB6时代的控件数组的效果呢?
--  作者：狐狸爸爸
--  发布时间：2009/6/24 10:42:00
--  
现在可以随便增加删除控件，要控件数组干什么？
--  作者：sohper
--  发布时间：2009/6/24 10:45:00
--  
我想用来方便定义一些相同的控件　比如有 10个 Label  我要引用这10个Label
如果控件数组的话我就用一个循环声明，现在是否要分别声明呢？
--  作者：狐狸爸爸
--  发布时间：2009/6/24 10:48:00
--  

用有规律的名称，例如 lb1,lb2,lb3...

for i as integer = 0 to x
   e.Form.Controls("lb" & i).Text =  "ddd"
next
--  作者：yangming
--  发布时间：2009/6/24 10:59:00
--  
以下是引用狐狸爸爸在2009-6-24 10:48:00的发言：

用有规律的名称，例如 lb1,lb2,lb3...

for i as integer = 0 to x
   e.Form.Controls("lb" & i).Text =  "ddd"
next

我前段时间还在为这个烦呢,正好收藏了
--  作者：sohper
--  发布时间：2009/6/24 11:06:00
--  

假如我现在有5个Label需要改Text参数 而且，内容都不一样。

比如有 Label1 至 Label5 我想引用的话

For i = 1 To 5
      Dim Lb (这里可以怎么做) As WinForm.Label = e.Form.Controls("Label" & i)

Next

Lb1.Text = "这里"
Lb2.Text = "哪里"
Lb3.Text = "那里"
--  作者：狐狸爸爸
--  发布时间：2009/6/24 11:14:00
--  
用数组啊：

Dim lb(4) As WinFrom.Label
For i = 0 To 4
      Dim Lb (这里可以怎么做) As WinForm.Label = e.Form.Controls("Label" & (i+1) )

Next