Динамическое создание контролов

[mar_val]

Только не ругайтесь, что тема заезжена.
Требуется: Создать, удалить, снова создать, ... несколько элементов на форме
Нашел тут на форуме описание того как это создать. Попытался воссоздать, вот что получилось:

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

Dim FormControls() As Object
...
Private Sub Adjust_Form(step)
...
    ReDim FormControls(4)
    Dim tControl As Object

    Set tControl = Controls.Add("VB.Label", tControl)

        tControl.Visible = True
        tControl.Move 0, 0
        tControl.Enabled = True
       
    Set FormControls(1) = tControl
...

При исплонении возникает ошибка 13 "Несовпадение типов" в строке

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

Set tControl = Controls.Add("VB.Label", tControl)

Где ошибка?

[RayShade]

DNA?

[mar_val]

RayShade
Едва ли

[mar_val]

Пример взят отсюда: http://bbs.vbstreets.ru/viewtopic.php?t=15288

[mar_val]

Да, гоню уже - кавычки-то забыл... Первый вопрос снят
Но почему контрол не отображается? (Caption задал, чтобы не думали что отображается пустой лейбл)
И как разместить этот новый элемент на фрейм присутствующий на форме?

[Amed]

DNA, DNA.

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

With Me
    .Controls.Add("vb.label", "newlabel").Visible = True
    .Controls("newlabel").Caption = "sss"
    .Controls("newlabel").Move 0, 0
    .Controls("newlabel").Enabled = True
End With

[Amed]

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

    Set .Controls("newlabel").Container = .Frame1

[mar_val]

Amed
Спасибо!

Логичное продолжение темы - как добавить обработчики событий на этих контролах?
И второе - как можно получить список контроллов формы?

[mar_val]

Please help!

[Amed]

1. Хуки.
2. Смотри коллекцию Controls.

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

Dim A As Control

For Each A In Controls
    MsgBox A.Name
Next

[mar_val]

Amed
Да, спасибо. Коллекцию именно и смотрю.
А как с хуками работать? Точнее говоря, как их создавать в данном конкретном случае?

[mar_val]

Amed
Возможно ли поставить обработчик события на контрол, а не на окно. Или единственный вариант - вешать хук на окно и по позиции мыши определять где было нажато?

[Amed]

То, что имеет hwnd - окно в широком смысле слова.

Значит, хуки можно ставить на CommandButton'ы, PictureBox'ы, ComboBox'ы и т.д.
Если же надо проверить клик на Label'е, скажем, то Вы сказали правильно. Надо вешать хук на окно и по позиции мыши определять где было нажато.

[GB826]

Вот и мне интересно стало если я заранее на пишу обработчик событиz

типа newlabel_click(Index as integer)

и потом буду создавать метки с названием newlabel и новым индексом
по идее должно такое работать без хуков?

[Amed]

Да.