动态复选框互斥

debugcn 发表于 Dev

杰里米·甘巴

我试图在我的用户表单初始化期间添加复选框。它们必须是相互排斥的。我知道选项按钮，但我不能将它们用于我的表单。

目前，我无法将它们设置为互斥。它们在一个框架中，我已将它们的.GroupName属性设置为相同。这是我不明白为什么它不起作用的地方。我读了这篇MSDN 文章，它说“在一个容器中所有具有相同 GroupName 的复选框都是互斥的”。

我也在一个有框架和没有框架的空白用户表单上尝试过这个，但我总是可以选择多个复选框。

知道我缺少什么吗？

LS_ᴅᴇᴠ

您可以使用代码来实现相同的功能：

Private Sub CheckBox1_Click(): Check_Just CheckBox1: End Sub
Private Sub CheckBox2_Click(): Check_Just CheckBox2: End Sub
Private Sub CheckBox3_Click(): Check_Just CheckBox3: End Sub

Sub Check_Just(CheckBox)
    'Disable false triggers when unchecking boxes
    If CheckBox.Value = False Or CheckBox.GroupName = "" Then Exit Sub
    'Uncheck all other control with same groupname
    Dim ctl As control
    For Each ctl In CheckBox.Parent.Controls
        If TypeName(ctl) = "CheckBox" Then If ctl.GroupName = CheckBox.GroupName And Not ctl Is CheckBox Then ctl.Value = Unchecked
    Next
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。