| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 273 人关注过本帖
标题:比较名称找出没有名称的Index
只看楼主 加入收藏
sdhtli
Rank: 1
等 级:新手上路
帖 子:115
专家分:0
注 册:2008-10-6
结帖率:72.22%
收藏
已结贴  问题点数:20 回复次数:3 
比较名称找出没有名称的Index
有一个按钮数组Command1,5个按钮,其Index为不连续的

Command1(1).Caption="qq"  
Command1(2).Caption ="aa"
Command1(4).Caption ="zz"
Command1(5).Caption ="ww"
Command1(7).Caption ="ss"

有数量不固定的Label控件


比如:
Label1.Caption="qq"  
Label2.Caption="aa"  
Label4.Caption="ss"
 
怎么根据Label的Caption比较找出按钮数组Command1中Caption与Label的Caption不相同的Index呢
 For Each pp In Label
  pp.Caption Then
 Next pp

2012-05-24 14:14
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:20 
object.item(index)
control("label" & i)

不要選我當版主
2012-05-24 15:13
sdhtli
Rank: 1
等 级:新手上路
帖 子:115
专家分:0
注 册:2008-10-6
收藏
得分:0 
谢谢,具体代码怎么写呢
2012-05-24 15:27
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
以下是引用sdhtli在2012-5-24 15:27:34的发言:

谢谢,具体代码怎么写呢


(0) + Command1(1) + Command1(3) + ...
程序代码:
Private Sub Form_Load()
Dim MyObject, MyCollection
    Set MyCollection = Me.Controls
    For Each MyObject In MyCollection
        MsgBox MyObject.Index
    Next
End Sub


+ Command2 + Command3 + ...
程序代码:
Private Sub Form_Load()
Dim MyObject, MyCollection
    Set MyCollection = Me.Controls
    For Each MyObject In MyCollection
        MsgBox MyObject.Name
    Next
End Sub


至于找出来做啥就自己加吧...

不要選我當版主
2012-05-24 19:10
快速回复:比较名称找出没有名称的Index
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058303 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved