标题:动态添加按钮时,如何先判断是否存在,不存在才动态添加呢?
取消只看楼主
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
结帖率:86.25%
已结贴  问题点数:20 回复次数:2 
动态添加按钮时,如何先判断是否存在,不存在才动态添加呢?
动态添加按钮时,如何先判断是否存在,不存在才动态添加呢?
Private Sub cmdadd_Click()
    Dim i As Integer
    Dim cmdw As Integer
    cmdw = cmd1(0).Width
    cmd1(0).Visible = True
    For i = 1 To 10
        '如何先进行判断,如果动态添加了,就不加了
        Load cmd1(i)    '如果第二次运行就会出现,因为已经创建了
        cmd1(i).Tag = "A"     'tag标记
        cmd1(i).Top = cmd1(i - 1).Top
        cmd1(i).Left = cmd1(i - 1).Left + cmdw + 10
        cmd1(i).Visible = True
    Next
End Sub
搜索更多相关主题的帖子: 动态 按钮 判断 
2009-08-03 09:53
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
得分:0 
我不想用忽略错误的办法.
请再给点别的思路.

2009-08-03 13:20
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
得分:0 
以下是引用wdeast在2009-8-4 14:12的发言:cmd1是集合嘛,用集合的特点解决。
请教一下您的思路,如何用集合的办法解决。我认为加tag标记是最简单的办法了,还是更好的办法吗?

2009-08-24 15:25



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-281399-1-1.html




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

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