Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Mouse
-
- Начинающий

-
-
- Сообщения: 5
- Зарегистрирован: 13.04.2003 (Вс) 11:26
Mouse » 13.04.2003 (Вс) 15:13
У меня 20 текстовых полей. Все их надо одинаково обработать. Как создать массив?

-
Firestorm
-
- Постоялец

-

-
- Сообщения: 946
- Зарегистрирован: 02.05.2002 (Чт) 14:36
- Откуда: Russia
-
Firestorm » 13.04.2003 (Вс) 19:05
пример очищения всех текстбоксов...
Private Sub Command1_Click()
Dim Ctl As Control
For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" Then
Ctl.Text = Empty
End If
Next
End Sub
...просто гламурный падонак...
_________________
reborn! v.2
_________________
-
Amed
-
- Алфизик

-
-
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
-
Amed » 13.04.2003 (Вс) 19:20
Кстати, установи у редактируемых textbox параметр tag в, скажем, "edited", тогда можно редактировать только нужные поля:
Private Sub Command1_Click()
Dim Ctl As Control
For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" and Ctl.Tag="edited" Then
Ctl.Text = Empty
End If
Next
End Sub
-
alibek
-
- Большой Человек

-
-
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 14.04.2003 (Пн) 9:55
Amed, хочу тебя поправить
- Код: Выделить всё
Private Sub Command1_Click()
Dim Ctl As Control
For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" Then
If Ctl.Tag="edited" Then
Ctl.Text = Empty
End If
End If
Next
End Sub
У контрола может и не оказаться свойства .Tag, тогда твой код вызовет ошибку.
И я бы использовал не TypeName, а
- Код: Выделить всё
If TypeOf Ctl Is TextBox Then
Lasciate ogni speranza, voi ch'entrate.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, SemrushBot и гости: 3