Как создать массив контролов?

Программирование на 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

пример очищения всех текстбоксов... :lol:

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 :twisted:
_________________

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

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 4

    TopList  
cron