| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大佬一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 177 人关注过本帖
标题:求助,关于动态添加删除窗体控件
只看楼主 加入收藏
taking168
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2018-8-13
结帖率:60%
收藏
已结贴  问题点数:20 回复次数:3 
求助,关于动态添加删除窗体控件
'新增
Private Sub Command1_Click()
Static i
i = i + 1
          Load Me.Text1(i)
          Text1(i).Top = Text1(i - 1).Top + Text1(i - 1).Height
          Text1(i).Text = ""
          Text1(i).Visible = True
          Load Me.Text2(i)
          Text2(i).Top = Text2(i - 1).Top + Text2(i - 1).Height
          Text2(i).Text = ""
          Text2(i).Visible = True
          Load Me.Text3(i)
          Text3(i).Top = Text3(i - 1).Top + Text3(i - 1).Height
          Text3(i).Text = ""
          Text3(i).Visible = True
          Load Me.Text4(i)
          Text4(i).Top = Text4(i - 1).Top + Text4(i - 1).Height
          Text4(i).Text = ""
          Text4(i).Visible = True
          Load Me.Text5(i)
          Text5(i).Top = Text5(i - 1).Top + Text5(i - 1).Height
          Text5(i).Text = ""
          Text5(i).Visible = True
          j = i
 End Sub
 '删除
Private Sub Command2_Click(Index As Integer)
If j < 1 Then Exit Sub
     Unload Me.Text1(j)
     Unload Me.Text2(j)
     Unload Me.Text3(j)
     Unload Me.Text4(j)
     Unload Me.Text5(j)
     j = j - 1
     i = i - 1
End Sub

问题是:当把动态添加的控件删除后,再点新增的时候Static i的值是叠加的,老是显示控件数组元素不存在
搜索更多相关主题的帖子: 控件 Top Sub Text Text1 
2021-10-03 10:09
apull
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:三体星系
等 级:版主
威 望:86
帖 子:934
专家分:4920
注 册:2010-3-16
收藏
得分:14 
static i l提到外面当全局变量
2021-10-03 12:21
taking168
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2018-8-13
收藏
得分:0 
回复 2楼 apull
Static 好像不能做全局变量吧
2021-10-04 14:32
apull
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:三体星系
等 级:版主
威 望:86
帖 子:934
专家分:4920
注 册:2010-3-16
收藏
得分:0 
意思是i,j作为全局变量参与2个函数的运算过程。
你既然知道i是局部变量,删除里的i的赋值就没有任何意义了。
2021-10-04 19:38
快速回复:求助,关于动态添加删除窗体控件
数据加载中...
 
   



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

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