Обращение к программно созданным элементам. / Visual Basic

ReSQL.ru

2.0.55

Полная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обращение к программно созданным элементам. / 3 сообщений из 3, страница 1 из 1

17.04.2011, 14:31

#37220351

ДаркТМ

Гость

Обращение к программно созданным элементам.

Программно создаю тексбоксы.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub Form_Load()
ots =  0 
For n =  0  To  99 
Form1.Controls.Add "Vb.Textbox", "Control" & Form1.Controls.Count
Form1.Controls(Form1.Controls.Count -  1 ).Left =  1500 
Form1.Controls(Form1.Controls.Count -  1 ).Top =  3500  + ots
Form1.Controls(Form1.Controls.Count -  1 ).Width =  1000 
Form1.Controls(Form1.Controls.Count -  1 ).Height =  300 
Form1.Controls(Form1.Controls.Count -  1 ).Visible = True
Form1.Controls(Form1.Controls.Count -  1 ).text = text(n)
ots = ots +  400 
Next n

Вопрос - как дальше к ним обращаться*?
То бишь пр форм лоаде они создаются, а надо, чтобы по нажатию кнопки оттуда вытаскивалась в программу инфа.
Может быть у них индекс свой создается... не могу понять...

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2011, 15:06

#37220370

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Обращение к программно созданным элементам.

1) по имени созданного контрола:

Код: plaintext

Form1.Controls("Control5").Visible = True

2) По заранее определенной объектной переменной (или массиву переменных, если хочется иметь индекс):

Код: plaintext

1.
2.

Dim MyTextBox As TextBox
Set MyTextBox = Form1.Controls.Add("Vb.Textbox", "Control5", Me)
MyTextBox.Visible = True

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2011, 20:27

#37220667

ДаркТМ

Гость

Обращение к программно созданным элементам.

Благодарю.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tablet=1&tid=2158795]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	57ms
get topic data:	13ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	12ms

total:	165ms