在VB6中如上让上面的复选框按鼠标选择顺序排序在下面的文本中，比如我先点击第四个复选框小牛就排在第一位，再点击第一个复选框小猪排在第二位，以此类推，取消选择时相应内容也取消，如何做到，小白一枚，努力学习中，希望大神们解答，有代码学习更好，谢谢各位。

很简单，使用数组控件 + 字符串变量，就能够实现，代码如下：

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编辑过]

非常感谢，受教了。