faravani Ответов: 3

для каждого элемента управления во мне.

Привет Всем
Я хочу отключить все текстовые поля в моей форме, используя для каждой команды такие как
for each control ontrol in me.controls
    if control.gettype is gettype textbox then
         control.enable=false
    end if
next

Но я написал код ошибки пожалуйста помогите мне
спасибо

3 Ответов

Рейтинг:
2

Abhinav S

Попробуй

for each control ontrol in me.controls
    if ontrol.gettype is gettype textbox then
         ontrol.enable=false
    end if
next

Рейтинг:
2

codejet

Вот и ты 

For Each ctl As Control in Me.Controls 
 If TypeOf(ctl) Is TextBox Then 
    ctl.Enabled = False
 End If 
Next

Richard MacCutchan

Копирование чужого кода восьмилетней давности на самом деле не является правильным решением.

codejet

Я наткнулся на этот код в учебном наборе для MCSD (VB 6.0), когда еще был студентом в 2006 году. Я не претендую на то, чтобы быть автором Кодекса. Итак, поскольку я не являюсь автором кода, который дисквалифицирует его как действительное решение?

Richard MacCutchan

Вопрос был решен восемь лет назад. И похоже, что вы просто скопировали существующее решение и разместили его как свое собственное. Но в любом случае, пожалуйста, придерживайтесь текущих открытых вопросов, не воскрешайте те, которые давно неактивны.

Рейтинг:
0

OriginalGriff

Попробуй:

For Each c As Control In Controls
    Dim t As TextBox = TryCast(c, TextBox)
    If t IsNot Nothing Then
        t.Enabled = False
    End If
Next

Sergey Alexandrovich Kryukov

Конечно, 5.
--СА