Элемент доступен только для чтения

[skafiend]

Здравствуйте. Есть процедура:

'Ïðîöåäóðà äëÿ î÷èñòêè âñåõ TextBox ôîðìû
Public Sub DeleteAllTextBox(fmForm As Form)
  Dim Contrl As Control
  For Each Contrl In fmForm.Controls
  If (TypeOf Contrl Is TextBox) Then Contrl.Text = ""
  Next Contrl
End Sub

Но на форме присутствует поле на подлежащее реадктированию, как добавить проверку на возможность редактирования?

[R Dmitry]

Сообщение от skafiend

Здравствуйте. Есть процедура:

'Ïðîöåäóðà äëÿ î÷èñòêè âñåõ TextBox ôîðìû
Public Sub DeleteAllTextBox(fmForm As Form)
  Dim Contrl As Control
  For Each Contrl In fmForm.Controls
  If (TypeOf Contrl Is TextBox) Then Contrl.Text = ""
  Next Contrl
End Sub

Но на форме присутствует поле на подлежащее реадктированию, как добавить проверку на возможность редактирования?

примерно так,

if contrl.locked = true then msgbox "контрол заблокирован"

или

if contrl.enabled = false then msgbox "контрол конкретно заблокирован "

как то так
с Уважением, Дмитрий

[skafiend]

Спасибо, действительно помогло)