|
|
|
Forum Member
 
участник
Last Login: 15.08.2008 21:32
Сообщ.: 33,
Visits: 346
|
|
помогите плиз....есть куча TextBox (более 100), их переодически нуна все очистить... все прошарил где тока мог в цикл никак впихнуть не получилось решил просто тупо перебрать их все путем Text2.Text = ""
Text3.Text = ""
... но как результат плюет в меня ошибкой Compile error variable not defined и происходит это у меня почему на 104 тексте...
|
|
|
|
|
Supreme Being
участник
Last Login: 27.01.2008 1:11
Сообщ.: 152,
Visits: 1 701
|
|
Private Sub Очистить()
For i = 0 To Текст1.Count - 1
Текст1(i).Text = ""
Next i
End SubТекст1 должны быть в массиве
|
|
|
|
|
Supreme Being
участник
Last Login: 20.01.2008 13:51
Сообщ.: 216,
Visits: 2 222
|
|
| Вот универсальный способ очистить ВСЕ текстбоксы на форме (в массивах или нет): Dim cnt as Control for each cnt in Controls if Ucase$(Left$(cnt.Name),4)="TEXT" then cnt.text="" Next Правда, требуется, чтобы имена всех текстбоксов начинались на "TEXT"
|
|
|
|
|
Supreme Being
модератор
Last Login: 13.12.2007 18:51
Сообщ.: 3 047,
Visits: 33 391
|
|
М.б. лучше так?Dim cnt as Control
for each cnt in Controls
if TypeOf cnt Is TextBox then cnt.text=""
Next
While (!Life.EOF) { You.Money ++; You.Girls.Add(new Girl(90,60,90)); BeHappy(); }
|
|
|
|
|
Supreme Being
участник
Last Login: 20.01.2008 13:51
Сообщ.: 216,
Visits: 2 222
|
|
| Команч прав! Конечно, это - самое правильное решение!
|
|
|
|
|
Forum Member
участник
Last Login: 15.08.2008 21:32
Сообщ.: 33,
Visits: 346
|
|
пасиб...помогло.... а мона пояснить че такое Each и TypeOf ?
|
|
|
|