依据复选框选定内容向textbox实时填充内容

suemagical

有一组复选框和一个文本框，需要实现以下效果：1）文本框的内容需要根据复选框的勾选内容项目  2）要实现实时显示的功能，即勾选AB，则即时显示AB，再选择C则显示ABC  3）文本框的内容与勾选的顺序无关，即按先后勾选C-B-A、B-A-C的结果都能实时显示ABC这个顺序
按以下代码，用change事件，不能做到实时显示和解决勾选顺序不同显示的结果相同，请各位老师解惑，谢谢！
Private Sub TextBox1_Change()
Dim i  As Integer
Dim st As String
With userform1.frame1
   For i = 1 To 10
   If .Controls("CheckBox" & i).Value = True Then
        st = st & .Controls("CheckBox" & i).Caption
    End If
    Next
End With
TextBox1.Value = st
End Sub

山菊花

Private Sub CheckBox1_Click()
    Call 更新
End Sub
Private Sub CheckBox2_Click()
    Call 更新
End Sub
Private Sub CheckBox3_Click()
    Call 更新
End Sub
Private Sub CheckBox4_Click()
    Call 更新
End Sub
Private Sub CheckBox5_Click()
    Call 更新
End Sub
Private Sub CheckBox6_Click()
    Call 更新
End Sub
Private Sub CheckBox7_Click()
    Call 更新
End Sub
Private Sub CheckBox8_Click()
    Call 更新
End Sub
Private Sub CheckBox9_Click()
    Call 更新
End Sub
Private Sub CheckBox10_Click()
    Call 更新
End Sub



Sub 更新()
    Dim i  As Integer
    Dim st As String
   
    With userform1.frame1
       For i = 1 To 10
       If .Controls("CheckBox" & i).Value = True Then
            st = st & .Controls("CheckBox" & i).Caption
        End If
        Next
    End With
    TextBox1.Value = st

End Sub

suemagical

山菊花 发表于 2016-12-13 15:57
Private Sub CheckBox1_Click()
    Call 更新
End Sub

谢谢老师！

chenhu1981

谢谢分享 ~~~~~~