| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1189 人关注过本帖
标题:关于控件数组的问题
只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏
已结贴  问题点数:20 回复次数:2 
关于控件数组的问题
在Form1中有3个Label,制作成控件数组,Index = 0 TO 2,每个的Caption都不同,点击其中任意一个Label,跳出Form2,Form2上有一个TextBOX和一个Command,TextBOX读取Form1的所点击的Label的Caption,(截止到这,以上都已实现,问题在下方),在Form2.Text1.Text 中的进行修改,点击Command,Form2关闭,Form1中所点击的Label的Caption被重新赋值成Form2.Text1.Text 修改后的内容。

说得简单点,就是将Form1中的已成为控件数组的Label其中之一的Caption通过Form2.Text1.Text内容改名。

请教:以上标红部分代码怎么写呢?
搜索更多相关主题的帖子: 制作 
2016-06-01 15:40
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:20 
很简单。使用模式窗口打开即可,代码如下:
'form1代码
Private Sub Label1_Click(Index As Integer)
  Label1(Index).Caption = Form2.setcap
End Sub

'form2代码
Dim retcap As String
Public Function setcap() As String
  Me.Show 1
  setcap = retcap
End Function

Private Sub Command1_Click()
  Unload Me
End Sub

Private Sub Text1_Change()
  retcap = Text1
End Sub

能编个毛线衣吗?
2016-06-01 17:55
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
收藏
得分:0 
非常感谢专家的回复,我的问题已经解决!再次谢谢!
2016-06-01 23:08
快速回复:关于控件数组的问题
数据加载中...
 
   



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

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