|
#2
ZHRXJR2020-06-16 13:24
很简单，使用数组控件 + 字符串变量，就能够实现，代码如下：
 程序代码：Dim ZMZ As String '在通用部分定义变量 Private Sub Check1_Click(Index As Integer) Text1.Text = "" Dim NN As Integer '过程级变量 NN = Index If Check1(NN).Value = 1 Then '选择时 ZMZ = ZMZ & Check1(NN).Caption & Space(2) '在 ZMZ 变量添加控件文本 End If If Check1(NN).Value = 0 Then '取消选择时 ZMZ = Replace(ZMZ, Check1(NN).Caption & Space(2), "") '在 ZMZ 变量取消控件文本 End If Text1.Text = ZMZ '在文本框显示控件文本 End Sub Check1是控件数组，下标是0、1、2、3、4 [此贴子已经被作者于2020-6-16 13:26编辑过] |
只有本站会员才能查看附件，请 登录
在VB6中如上让上面的复选框按鼠标选择顺序排序在下面的文本中，比如我先点击第四个复选框小牛就排在第一位，再点击第一个复选框小猪排在第二位，以此类推，取消选择时相应内容也取消，如何做到，小白一枚，努力学习中，希望大神们解答，有代码学习更好，谢谢各位。