Foxtable(狐表)用户栏目专家坐堂 → [讨论]能否使用控件数组


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

主题:[讨论]能否使用控件数组

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


加好友 发短信
等级:幼狐 帖子:72 积分:614 威望:0 精华:0 注册:2009/5/23 10:22:00
[讨论]能否使用控件数组  发帖心情 Post By:2009/6/24 9:15:00 [只看该作者]

能否使用控件数组

 回到顶部
美女呀,离线,留言给我吧!
yangming
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/24 9:18:00 [只看该作者]

什么意思?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/24 9:44:00 [只看该作者]

控件数组是VB6时代的,现在已经没有这个概念了

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


加好友 发短信
等级:幼狐 帖子:72 积分:614 威望:0 精华:0 注册:2009/5/23 10:22:00
  发帖心情 Post By:2009/6/24 10:38:00 [只看该作者]

谢谢两位,那么现在有没有办法, 可以达到VB6时代的控件数组的效果呢?


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/24 10:42:00 [只看该作者]

现在可以随便增加删除控件,要控件数组干什么?

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


加好友 发短信
等级:幼狐 帖子:72 积分:614 威望:0 精华:0 注册:2009/5/23 10:22:00
  发帖心情 Post By:2009/6/24 10:45:00 [只看该作者]

我想用来方便定义一些相同的控件 比如有 10个 Label  我要引用这10个Label
如果控件数组的话我就用一个循环声明,现在是否要分别声明呢?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:72 积分:614 威望:0 精华:0 注册:2009/5/23 10:22:00
  发帖心情 Post By: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 = "那里"


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部
总数 12 1 2 下一页