обращение к однотипным элементам

[nat-z]

Рассказываю все заново и доходчиво
На форме есть какое-то количество однотипных элементов (LABEL или что - не важно) с именами LABELi (i от 1 донапример 20).
В зависимости от внешних данных мне нужно сделать например xxx.LABEL1.visible= true
xxx.LABEL1.caption = "qqqq"
для каких-то элементов

Допустим в текст перем ttt я сформировала "xxx.LABEL1.caption", в qqq сформировала текст. А как выглядит сам оператор присвоения (что-то вроде &ttt = &qqq в Clipper).

Теперь доходчиво?

[Twister]

А что мешало создать массив контролов? Они бы все имели одно имя, а различались индексом...

[alibek]

Теперь доходчиво?

Почему-то такой тон не вызывает желания отвечать.
Но все-же советую оценить коллекцию Controls или метод CallByName.

[Konst_One]

еще раз объясняю доходчиво: создайте массив своих однотипных элементов Label, указав у первого свойство Index=0, затем вы сможете к ним обращаться по индексу:

Код: Выделить всё

Dim i as Integer

For i=0 to Ubound(MyLabel)
MyLabel(i).Caption="Всем сразу эту строку!"
Next

[nat-z]

еще раз объясняю доходчиво: создайте массив своих однотипных элементов Label, указав у первого свойство Index=0, затем вы сможете к ним обращаться по индексу:

Код: Выделить всё

Dim i as Integer

For i=0 to Ubound(MyLabel)
MyLabel(i).Caption="Всем сразу эту строку!"
Next

Спасибо. А если все-таки без индексов?

Есть ttt1 = "xxx.label.caption" и ttt2 = "aaaaa"
Как сделать присвоение?
Мне такое может понадобиться!!

[Twister]

Перебор коллекции Controls, как уже сказал Алибек...

[nat-z]

Теперь доходчиво?

Почему-то такой тон не вызывает желания отвечать.
Но все-же советую оценить коллекцию Controls или метод CallByName.

А можно было бы просто название темы заменить, тем более тут не так просто назвать!!
А у меня инет очень медленный - я полчаса плакала и заново все набирала!!!
оценить коллекцию Controls или метод CallByName - чтобы заценить - надо знать, что это такое. И где его искать - в Гугле?

[Twister]

Для начала можно нажать F2 в IDE бейсика и посмотреть там.

[nat-z]

Dim i as Integer

For i=0 to Ubound(MyLabel)
MyLabel(i).Caption="Всем сразу эту строку!"
Next

А что такое - Ubound(MyLabel) ?
Перебор коллекции Controls - а где это найти?

[Konst_One]

бес попутал

Код: Выделить всё

For i = 0 To MyLabel.Count - 1

[Konst_One]

Код: Выделить всё

Dim ctl As Control

For Each ctl In Me.Controls
    If TypeOf ctl Is Label Then
        ctl.Caption = "Новое название"
    End If
Next

[alibek]

бес попутал

Ну не так уж, чтобы совсем попутал.
MyLabel.UBound тоже можно использовать.

[nat-z]

For i = 0 To MyLabel.Count - 1 - это понятно
For Each ctl In Me.Controls - а что это такое или опять надо мной смеяться?

[Konst_One]

Me.Controls

подразумевается, что ваш код находится внутри модуля вашей формы, где расположены указанные вами контролы

[nat-z]

Для начала можно нажать F2 в IDE бейсика и посмотреть там.

Нажала F2 и поиск по Controls.
Там: Library, Class, Member.
И что и где мне там искать?

[nat-z]

Me.Controls

подразумевается, что ваш код находится внутри модуля вашей формы, где расположены указанные вами контролы

А где он на самом деле находится? И какие контролы я должна указать?

[Konst_One]

Me - это класс твоей текущей формы
Controls - коллекция всех контролов данной формы

что еще не понятно

[RayShade]

Me это не класс, а ссылка на экземпляр объекта класса

[Konst_One]

мы же для начинающих объясняем , а не для профессионалов
Me - это просто текущая форма, простым человеческим языком

[nat-z]

Me - это класс твоей текущей формы
Controls - коллекция всех контролов данной формы

что еще не понятно

Все остальное непонятно!
Набрала Me.Controls и ".", а никакие подсказки не высветились!!
Как его можно использовать или посмотреть? И что такое контролы - это подпрограммы?
Вы только не смейтесь и потерпите до выходных! А я тогда в город съезжу и книжку какую куплю!
И у меняеще там рядом вопросы - я уже боюсь все в одну тему ложить, опять ругаться будут!

[Konst_One]

Controls - это коллекция (Collection) объектов типа Control
т.е. в ней содержатся все твои контролчики , которые у тебя на форме: Label, Command, TextBox, Combo и тд и тп

[nat-z]

Controls - это коллекция (Collection) объектов типа Control
т.е. в ней содержатся все твои контролчики , которые у тебя на форме: Label, Command, TextBox, Combo и тд и тп

И как все это увидеть и использовать?
Что мне это даст?

[Konst_One]

см мои посты ранее, я предложил вам два варианта работы:
1. сделать массив ваших Label
2. использовать коллецию Controls

за вами остался выбор и реализация

[nat-z]

см мои посты ранее, я предложил вам два варианта работы:
1. сделать массив ваших Label
2. использовать коллецию Controls

за вами остался выбор и реализация

А что значит использовать коллекцию? Как ее создать? Какая-то кнопка для этого?

[Amed]

Вот наводящий код

Код: Выделить всё

Private Sub Form_Load()
Dim Ctl As Control

For Each Ctl In Controls
    MsgBox Ctl.Name

    If Ctl.Name="MyLabel" Then Ctl.Caption="Working!!!"
Next Ctl
End Sub

Киньте на форму пару контролов и запустите.

UPD: MsgBox, а не MessageBox, конечно!

[nat-z]

Вот наводящий код

Код: Выделить всё

Private Sub Form_Load()
Dim Ctl As Control

For Each Ctl In Controls
    MessageBox Ctl.Name
Next Ctl
End Sub

Киньте на форму пару контролов и запустите.

Что значит контролов? Просто всяких комбобох и прочего?

[Amed]

nat-z, именно так.

[Хакер]

Только не

Код: Выделить всё

MessageBox Ctl.Name


а

Код: Выделить всё

MsgBox Ctl.Name


Amed, с чего ты взял что у него там эта API задекларированна?
_________________
Мой вариант наводящего кода:

Код: Выделить всё

Private Sub Form_Load()
Dim Ctl As Control

For Each Ctl In Controls
    MsgBox Ctl.Name + " это контрол класса " + TypeName(Ctl)
Next Ctl
End Sub

ЗЫ. Накидай на форму кучу всяких контроллов (комбобоксов, лайнов, кнопок, шейпов, таймеров, хоть чего...) и дай им любые имена. Потом запусти.


[Antonariy]

Amed, с чего ты взял что у него там эта API задекларированна?

Набрала Me.Controls и ".", а никакие подсказки не высветились!!

Телепатия все-таки штука ненадежная.

[Amed]

Хакер, все верно. Машинально написал с какой-то стати (притом, что MessageBox в вб вообще не использую). Поправил пост.

nat-z, хинт: нужные контролы можно отличать по префиксу имени.