InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comWed, 03 Dec 2008 22:34:42 GMT20http://www.relib.com/forums/Topic911590-1-1.aspx<DIV>пасиб...помогло....</DIV><DIV> </DIV><DIV>а мона пояснить че такое Each и TypeOf ?</DIV>Wed, 28 Mar 2007 13:56:46 GMTcorvushttp://www.relib.com/forums/Topic911590-1-1.aspxКоманч прав! Конечно, это - самое правильное решение!Sun, 25 Mar 2007 22:16:49 GMTCatsTailhttp://www.relib.com/forums/Topic911590-1-1.aspxМ.б. лучше так?<P>[code]Dim cnt as Control<BR>for each cnt in Controls<BR> if TypeOf cnt Is TextBox then cnt.text=""<BR>Next[/code]Sun, 25 Mar 2007 15:08:39 GMTComanchehttp://www.relib.com/forums/Topic911590-1-1.aspxВот универсальный способ очистить ВСЕ текстбоксы на форме (в массивах или нет):</P><P>Dim cnt as Control</P><P>for each cnt in Controls</P><P> if Ucase$(Left$(cnt.Name),4)="TEXT" then cnt.text=""</P><P>Next</P><P>Правда, требуется, чтобы имена всех текстбоксов начинались на "TEXT"Sun, 25 Mar 2007 13:30:00 GMTCatsTailhttp://www.relib.com/forums/Topic911590-1-1.aspxPrivate Sub Очистить()<BR>For i = 0 To Текст1.Count - 1<BR>Текст1(i).Text = ""<BR>Next i<BR>End Sub</P><P>Текст1 должны быть в массивеThu, 15 Mar 2007 22:26:55 GMTAlex77http://www.relib.com/forums/Topic911590-1-1.aspx<DIV>помогите плиз....есть куча TextBox (более 100), их переодически нуна все очистить...</DIV><DIV>все прошарил где тока мог в цикл никак впихнуть не получилось</DIV><DIV> </DIV><DIV>решил просто тупо перебрать их все путем</DIV><DIV>[code]Text2.Text = ""<BR>Text3.Text = ""<BR>...[/code]</DIV><DIV>но как результат плюет в меня ошибкой </DIV><DIV> </DIV><DIV><EM>Compile error</EM></DIV><DIV><EM>variable not defined</EM> </DIV><DIV> </DIV><DIV>и происходит это у меня почему на 104 тексте...</DIV>Thu, 15 Mar 2007 15:53:29 GMTcorvus