Private Sub TextBox8_Change()
If CheckBox3.Value = 1 Then
TextBox8.Enabled = False
End If
If CheckBox3.Value = 0 Then
TextBox8.Enabled = True
End If
End Sub
Checkbox?
Подскажите пож-та, как связать Textbox c Checkbox'ом?
Private Sub TextBox8_Change()
If CheckBox3.Value = True Then
TextBox8.Enabled = False
End If
If CheckBox3.Value = False Then
TextBox8.Enabled = True
End If
End Sub
Что я делаю неправильно :o
Private Sub TextBox8_Change()
If CheckBox3.Value = True Then
TextBox8.Enabled = False
End If
If CheckBox3.Value = False Then
TextBox8.Enabled = True
End If
End Sub
Что я делаю неправильно :o
насколько я понял тебе надо болкирнуть текст бокс, если чек бокс включен. Если да, то:
Этот код работает, но он немного неправильный
[COLOR="Red"]лучше писать так:[/COLOR]
Код:
Этот код работает, но он немного неправильный
[COLOR="Red"]лучше писать так:[/COLOR]
Код:
Private Sub Check1_Click()
If Check1.Value = 0 Then Text1.Enabled = False
If Check1.Value = 1 Then Text1.Enabled = True
End Sub
Private Sub Form_Load()
If Check1.Value = 0 Then Text1.Enabled = False
If Check1.Value = 1 Then Text1.Enabled = True
End Sub
If Check1.Value = 0 Then Text1.Enabled = False
If Check1.Value = 1 Then Text1.Enabled = True
End Sub
Private Sub Form_Load()
If Check1.Value = 0 Then Text1.Enabled = False
If Check1.Value = 1 Then Text1.Enabled = True
End Sub
Спасибо!
[quote=ace lighting]
[/quote]
думаю лучше вызвать функцию Check1_Click() с Form_Load, чем повторять код.
В VB это помоему делается так:
Код:
Private Sub Form_Load()
If Check1.Value = 0 Then Text1.Enabled = False
If Check1.Value = 1 Then Text1.Enabled = True
End Sub
If Check1.Value = 0 Then Text1.Enabled = False
If Check1.Value = 1 Then Text1.Enabled = True
End Sub
думаю лучше вызвать функцию Check1_Click() с Form_Load, чем повторять код.
В VB это помоему делается так:
Код:
Private Sub Form_Load()
Check1_Click()
End Sub
Check1_Click()
End Sub
А я бы сказал, что лучше так :
P.S. И речь идёт о VBA
Код:
Private Sub CheckBox1_Click()
TextBox1.Enabled = Not CheckBox1.Value
End Sub
TextBox1.Enabled = Not CheckBox1.Value
End Sub
P.S. И речь идёт о VBA
[quote=pashulka]P.S. И речь идёт о VBA[/quote]
а как в данном примере ВБ отличается от ВБА?
как вы разницу видите? если не секрет.
а как в данном примере ВБ отличается от ВБА?
как вы разницу видите? если не секрет.
Разница заключается в именах элементов управления, например, CheckBox1 vs Check1, к тому же, в прошлом топике, который создал Tybor речь шла о MS Excel.
[QUOTE=OlgaKr]думаю лучше вызвать функцию Check1_Click() с Form_Load, чем повторять код.
В VB это помоему делается так:
[/QUOTE]
Без сомнения! Я просто торопился, когда писал:D
В VB это помоему делается так:
Код:
Private Sub Form_Load()
Check1_Click()
End Sub
Check1_Click()
End Sub
Без сомнения! Я просто торопился, когда писал:D