|
#2
wmf20142018-02-21 10:23
 程序代码：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 |
只有本站会员才能查看附件，请 登录
如图所示：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中显示河北。
不知我这样说是否明白了？请教这样如何编写程序？
附程序界面压缩包。
只有本站会员才能查看附件，请 登录
