програмно создать компонент

[Invader]

есть на форме 10 label , они в виде таблицы - 5 колонок и в 2 строки
в них передаю значения, всё работает...
но проблема стала когда расчет надо передать в цикле
если i от 1 до 3
отображаться
должно три таблицы и количество label естественно должно увеличиться= 30шт.

код:

Dim dafmin As Single
Dim dafmax As Single
Dim s As Single
Dim i As Single
Private Sub Command1_Click()
Dim daf As Long

Cls
For daf = dafmin To dafmax
s = dafmin - 1
i = daf - s
Label3(i).Top = i * 10
Label3(i).Caption = daf
Next daf
End Sub

[Twister]

Эх... На VB не писал сто лет, да и нет его под рукой. Но по старой памяти в голову лезет код примерно такого вида:

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

Dim lbl as Label
Set lbl = New Label
lbl.Visible = true

Я мог ошибиться, но направление верное, сто пудов.

[Viper]

Twister, не совсем...
Invader, думай в сторону массива контролов и Load.

[Invader]

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

Dim lbl as Label
Set lbl = New Label
lbl.Visible = true

Пробую код , но basic ругается:
" Invalid use of New keyword"

[RayShade]

Мне никогда не нравились массивы контролов и Load. И я всегда пользовался Form.Controls.Add

[Invader]

благодарен за все идеи , отдельно Viper, идея с массивом - гуд,
но как но как объяснить что ячейка массива есть контрл-label
упрощу вопрос: как вообще грамотно добавить label, textbox....
программно на форму
заранее прошу прощения, но гугл достал сылками на VBNet, ASP.NET
и VBA c Exelёm's

[Twister]

Twister, не совсем...

Ну значит я уже успел основательно забыть VB. Да, а принципе, и слава богу...

[Zenitchik]

но как объяснить что ячейка массива есть контрл-label

Какой массив - такой и контрол. Если у тебя на форме массив Label'ей - ничего другого ты в него не добавишь.

[Invader]

что есть массив labels?
я понимаю массив это
типа:

Option Base 1
Dim element(10) As Long
Dim x As Long
Private Sub Form_Load()
For x = 1 To 10
element(x) = x
Next x
End Sub

как element приравнять к несуществующему пока на форме Label

[Zenitchik]

Речь не об этом.

У объекта Label есть аттрибут Index - найдите его в окне свойств.
Если Index имеет какое-то значение - значит мы имеем дело с элементом массива.
Да что я вам рассказываю, когда вы копируете и вставляете элемент на форме, он у вас спрашивает что-то типа "Вы хотите создать массив элементов". Нажмите "да" и посмотрите что будет.
Я лично нигде ничего про это не читал, до всего дошел экспериментальным методом.

Когда поймете, что такое массив элементов управления - разбирайтесь с оператором Load - не может быть, чтобы про него нигде еще не писали.

[Viper]

Исходно должен существовать один Label с Index = 0 и, например, с именем lblArray. Далее в нужном месте кода пришется следуюший код:

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

Load lblArray(i)

где i соотвествующий индекс нового элемента типа Label. После этого присваиваем новому элементу нужные свойства и готово дело. Обратная операция проиводится при помощи Unload.

[Zenitchik]

присваиваем новому элементу нужные свойства

Не забываем присвоить
lblArray(i).Visible=True

[Invader]

ну вот это меня и интересовало!!!
я уже статью нашёл как программно
через api создать елемент, 300 строчек кода.
Про index забыл, но помнил что решение простое огромное спасибо всем.
извеняюсь за не внимательность

[Andrey Fedorov]

Люди вы о чем???

Человеку элементарный Grid нужен, а не огород городить...

[Invader]

нет элемент Grid это очень здорово, но интерес был вспомнить как множить элементы.
да и для интерфейса моей проги Grid не очень подходил

[Денис]

Вот, чтобы не перегружать форум новыми топиками, задам вопрос сюда. Как организовать подобие двумерного массива контролов? Надо, чтоб они на форме прямоугольной матрицей лежали и обращаться бы к ним можно было по координатам.

[Invader]

ДЕНИС,
на форму влепи кнопку, label с индексом 0, visible в false, назови label - lb

и далее код:

Option Explicit
Dim x As Long
Dim y As Long
Dim s As Long
Private Sub Command1_Click()
For y = 1 To 20

For x = 1 To 10
s = y * 10 + x
Load lb(s)
lb(s).Visible = True
lb(s).Top = x * 500
lb(s).Left = y * 1500
Next x
Next y
End Sub

[Хакер]

Денис
Никак. Массив контроллов -- он даже вовсе и не массив, потому что не обязан быть непрерывным. Это скорее, коллекция. Коллекции многоуровневыми не бывают.

[Денис]

Invader
А как обращаться к ним по координатам (x, y), например, установить цвет ярлычка с координатами (5, 5)?

[Хакер]

Денис
Подумай об операторах Mod и \

[Денис]

Хакер
Подумал. Работает... Только как это с последней строкой баг поправить? Проверять чтоли, не является ли Y последним и прибавлять 1 к предыдущему Y? Выглядит как-то некрасиво...

[Хакер]

((Index - 1) Mod mX) + 1

[Денис]

Да. Я тоже так сделал.

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


  Dim iX As Long
  Dim iY As Long
 
  iX = Index \ mX
  iY = Index Mod mX
 
  If iY = 0 Then
    iX = (Index \ mX) - 1
    iY = ((Index - 1) Mod mX) + 1
  End If
   
  Lb(Index).Caption = "X=" & CStr(iX) & vbCrLf & "Y=" & CStr(iY)

[Invader]

народ я по моему первый откликнулся на вопрос Дениса, программа была написана на его вопрос мгновенно.
я думал что в общем я решил его проблему а насчет определения ,
я думаю что есть у элементов параметры left, top и тд. так что дерзайте, рабочий день у меня закончен и возможно завтра загляну на форум. Всем огромное спасибо за обсуждение темы, на которую в начале ни кто не обращал внимания

[Денис]

Ля, как прикольно!

[ZOD]

Подскажите, как из функции в модуле получить доступ к созданным программно контролам?
У меня есть форма, на ней PictureBox, а на нем уже массив лэйблов. Из функции, расположенной в модуле, при попытке обращения к лэйблам выдает сообщение "Method or data memver not found". Как сделать эти лейблы Global или Public, или как это называется.
----------------------------
Все, решил:

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

frmSearch.Controls("lblThumb")(Index).Caption

[Хакер]

ZOD
Они и так диспатчатся как публичные мемберы.

[Viper]

Все гораздо проще

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

frmSearch.lblThumb(Index).Caption

[ZOD]

Странно, она ж в контейнере ПикчерБоксе... Ну ладо, буду знать. Спасибо.

[Viper]

Странно, она ж в контейнере ПикчерБоксе... Ну ладо, буду знать. Спасибо.

Тот факт, что лэйблы в контейнере здесь не при чем.