Тема: Программа с CheckBox. Почему нет стабильности.
Имею такую конструкцию для трех CheckBox:
'на форме:
--------------------------------- Private Sub UserForm_Initialize() CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False End Sub -------------------------------------- Private Sub CheckBox1__Click() If CheckBox1.Value = True Then cb1 = 1 Else cb1 = 0 End If End Sub --------------------------------- Private Sub CheckBox2_Click() If CheckBox2.Value = True Then cb2 = 1 Else cb2 = 0 End If End Sub -------------------------------- Private Sub CheckBox3_Click() If CheckBox3.Value = True Then cb3 = 1 Else cb3 = 0 End If End Sub -----------------------
далее в Module:
------------------- Public cb1 As Integer Public cb2 As Integer Public cb3 As Integer --------------------------- Private Sub Draw() If cb1 = 1 Then ................ End If If cb2 = 1 Then ................ End If If cb3 = 1 Then ................ End If End Sub
Включение/выключение происходит хаотично. Никак не могу найти систему.
Где моя ошибка или недоработка?
p.s. Стажу в VBA 1.5 дня :)
