Создание массива своего контрола

[SeT]

Есть контрол, компилирующийся вместе с прогой. У него один серьёзный недостаток - нельзя массив сделать. Подскажите как его переделать? Ну или хоть намекните.

[AndreyIl]

Что за контрол? Пример есть?

[Antonariy]

Почему нельзя? Любой контрол можно замассивить. Положи его на форму и поставь свойтсво Index=0

[Slavicos]

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

        Me.Label(1).Caption = txtColName2
        Me.Label(1).ToolTipText = txtColName2
        Me.Text(1).Text = "-"
        For intI = 2 To Val(txtCols) Step 1
            txtColName1 = .....
            txtColName2 = .....
            Load Me.Label(intI)
            With Me.Label(intI)
                .Top = Me.Label(intI - 1).Top + 360
                    .Caption = txtColName2
                Me.Label(intI).ToolTipText = txtColName2
                .Visible = True
            End With
            Load Me.Text(intI)
            With Me.Text(intI)
                .Top = Me.Text(intI - 1).Top + 360
                .Text = "-"
                .Visible = True
            End With
            'займемся внешним видом - опустим все, что надо
            Me.Label2.Top = Me.Label2.Top + 360
            Me.Label3.Top = Me.Label3.Top + 360
            Me.cmdPrevious.Top = Me.cmdPrevious.Top + 360
            Me.cmdNext.Top = Me.cmdNext.Top + 360
            Me.Height = Me.Height + 360
        Next intI
[syntax]
Здесь предполагается, что у LABEL и TEXT индексы равны "1"
Эти две вещи стоят на форме по умолчанию.

[SeT]

Вы видать не про те контролы говорите. Нужный мне контрол типа сокетного, только работает пошустрее. А вот массивность в нём не продумана. Как в нём задать index?

[ANDLL]

Массивность не придусмотрена не в одном контроле.
Это делает VB, причем делает для любого контрола.

[AndreyIl]

Выложи контрол, попробуем.

[SeT]

http://dasharm.com/uploads/vbsocket.rar
контрол не мой, а DaSharm'а. Вот только он никак массив сделать не может.

[Antonariy]

С контролом все в порядке, массивы делаются.

[alibek]

Скорее всего контрол написан неправильно.
Просмотри код модуля, особенно те функции, которые обеспечивают каллбэки и события. Скорее всего в них используются глобальные переменные для хэндлов, их надо будет заменить на массивы.

[SeT]

Так вроде VB ругается, что массивы здесь объявлять нельзя?

[Antonariy]

В архиве форма с массивами.

[SeT]

Всё, разобрался. Спасибо. Тема закрыта!