Очистить все TextBox на форме, кроме одного - VB

Формулировка задачи:

Private Sub Image1_Click()
Dim cntr As Control
        For Each cntr In Me.Controls
            If TypeOf cntr Is TextBox Then
                cntr.Text = ""
            End If
     Next
End Sub

Здравствуйте. Так очищаю всю форму, а как сюда вставить исключение для одного textbox'са какого-нибудь? Очень признателен =*

Решение задачи: «Очистить все TextBox на форме, кроме одного»

textual
                            Листинг программы 
                        

                            Private Sub Image1_Click()
Dim cntr As Control
        For Each cntr In Me.Controls
            If TypeOf cntr Is TextBox Then
              If cntr.Name <> "Text1" Then cntr.Text = ""
            End If
     Next
End Sub
                        

Оцени полезность:

7 голосов , оценка 3.857 из 5

Похожие ответы