Динамические флажки взаимоисключающие - PullRequest
Новая
       6

Динамические флажки взаимоисключающие

0 голосов
/ 29 мая 2018

Я пытаюсь добавить флажки во время инициализации моей пользовательской формы.Они должны быть взаимоисключающими.Я знаю о кнопках параметров, но не могу использовать их для своей формы.

На данный момент я не могу сделать их взаимоисключающими.Они в рамке, и я установил их свойство .GroupName одинаковым.Вот где я не понимаю, почему это не сработает.Я прочитал эту статью MSDN , в которой говорится, что «Все флажки с одним и тем же GroupName в одном контейнере являются взаимоисключающими».

Я также пробовал это на пустой пользовательской форме с и безкадры, но я всегда могу выбрать несколько флажков.

Есть идеи о том, что мне не хватает?

1 Ответ

0 голосов
/ 29 мая 2018

Вы можете использовать код для достижения той же функциональности: 

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
...