Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Динамическое создание объектов

1.8K
02 августа 2006 года
Валериус
190 / / 14.07.2006
Как это делать справшивать не буду - дайте ссылку где об этом почитать можно :)
403
02 августа 2006 года
ace lighting
411 / / 05.05.2006
вот как раз ссылку я тебе и не дам... нету:) я лучше скажу как ето сделать :
создаёшь обычный проект и в коде пишешь вот это:
Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub

этот пример создаст кнопку с названием Hello.
вместо btnObj можешь написать другое имя, например тот же commandbutton1...
1.8K
02 августа 2006 года
Валериус
190 / / 14.07.2006
Всё ясно. Спасибо! :)
15K
10 августа 2006 года
KAN
40 / / 08.08.2006
а я б делал через массив контролов, а потом load <control>
типа: создаешь на форме контрол, допустим label1, ставишь ему .index=0
это уже не контрол, а массив контролов, с именем label1 :)
а дальше - проще: конда надо загрузить ещё один label1, пишешь
 
Код:
load label1(ubound(label1)+1)
403
10 августа 2006 года
ace lighting
411 / / 05.05.2006
тоже хорошее решение... возму на вооружение :D
79K
10 января 2012 года
Leonid_A11_24_3
1 / / 10.01.2012
load label1(ubound(label1)+1) по вашей рекомендации ошибка выполнения а --> load label1(label1.index+1) проходит
но все равно спасибо за идею, под рукой книжки не было, а Ваша рекомендация помогла С уважением Leonid_A11_24_3
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог