... прям TextBox'ом по башке...

[Alex_2005]

Короткий вопрос: мне нужно сделать опрос всех текстовых полей формы и удалить текст, делаю это так:

Код: Выделить всё



        Dim Txt As TextBox
            For Each Txt In Form1.Controls
                Txt.Text = ""
            Next


но почемуто происходит ошибка 13. Кто то может подсказать?

[MVG]

По-моему с помощью For Each Next нельзя вносить изменения в элементы массива

[Alex_2005]

может и так, я незнаю... но в том то идело, что ошибка выдаётся не при передачи значиния текста а в строке

Код: Выделить всё

For Each Txt In Form1.Controls


[Amed]

Код: Выделить всё

Dim Txt
            For Each Txt In Form1.Controls
                If TypeOf Txt Is TextBox then Txt.Text = ""
            Next

[Alex_2005]

to Amed

Можешь объяснить поподробней , для чево опрос нужен? я ведь объявил уже как текстбокс? Да к тому же обишка появляется всё так же да и в том же месте...

[Amed]

Опрос? :/

For Each TextBox In Controls - нельзя писать. Не все контролы в коллекции Controls - текстбоксы, но все они объекты типа Object (переменная типа Variable). Можно написать Dim Txt As Object.

То есть, перебираем все объекты в коллекции контролов, и если тип текущего объекта - текстбокс, то обнуляем его. Доходчиво объяснил?

[Alex_2005]

Спасибо, объяснил ты отлично. Теперь знаю к кому обращаться

[alibek]

Можно написать Dim Txt As Object.

А еще лучше Dim Txt As Control