| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 563 人关注过本帖
标题:如何Check勾选后把随后的Label内容填入Text中?
只看楼主 加入收藏
ictest
Rank: 2
等 级:论坛游民
帖 子:224
专家分:77
注 册:2010-2-17
结帖率:75%
  已结贴   问题点数:20  回复次数:2   
如何Check勾选后把随后的Label内容填入Text中?


如图所示:10个Check控件数组和10个Label控件数组,想要达到的效果如下:
1、随意勾选某个Check,Check后面相应Label内容自动填入后面Text中,最多勾选4个;
2、取消某个已勾选Check,后面Text中已显示的相应Label内容清空;
3、新勾选某个新的Check,新的Check后面相应Label内容自动填入刚才空出的Text中。

举实例说就是:
1、我按北京、山东、重庆、浙江的顺序分别进行勾选(再多选就跳Msgbox),后面四个Text中就按照我勾选的顺序分别显示北京、山东、重庆、浙江;
2、我取消已勾选的山东,第二个Text空出;
3、我再勾选中河北,第二个Text中显示河北。

不知我这样说是否明白了?请教这样如何编写程序?

附程序界面压缩包。
附件: 您没有浏览附件的权限,请 登录注册
2018-02-21 00:49
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:147
帖 子:1693
专家分:9437
注 册:2014-12-6
  得分:20 
程序代码:
Private Sub Check1_Click(Index As Integer)
  Dim i As Integer, j As Integer
  j = 0
  For i = 0 To Check1.Count - 1
    j = j + Check1(i).Value
  Next
  If j > 4 Then
    MsgBox "最多选择4个城市"
    Check1(Index).Value = 0
    Exit Sub
  End If
  j = 0
  Text1 = ""
  Text2 = ""
  Text3 = ""
  Text4 = ""
  For i = 0 To Check1.Count - 1
    If Check1(i).Value = 1 And j < 4 Then
      If j = 0 Then Text1 = Label1(i)
      If j = 1 Then Text2 = Label1(i)
      If j = 2 Then Text3 = Label1(i)
      If j = 3 Then Text4 = Label1(i)
      j = j + 1
    End If
  Next
End Sub

能编个毛线衣吗?
2018-02-21 10:23
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:0 
楼主在论坛也算是老人了,为什么还是总在问这么简单的问题?感觉你的水平一点都没有提高
2018-02-27 17:02







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

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