Создать сложный объект по нажатию на кнопку - VB

Формулировка задачи:

Здравствуйте почитал темы из интересующего нашел как создать N текстов :
for j=1 to N  
Load Text1(J)...
Next j
Все работает. У меня задача дублировать объект посложнее типа Frame c вложенными в него лабелами и текстами

Код к задаче: «Создать сложный объект по нажатию на кнопку - VB»

textual
Private Sub cmdButton_Click(Index As Integer)
    Dim I As Long, C As Long
    ' Клонирование фрейма
    I = fraContainer.Count
    Load fraContainer(I)
    fraContainer(I).Move fraContainer(I - 1).Left + fraContainer(I - 1).Width + 5, fraContainer(I - 1).Top
    fraContainer(I).Visible = True
    ' Клонирование кнопки
    C = cmdButton.Count
    Load cmdButton(C)
    Set cmdButton(C).Container = fraContainer(I)
    cmdButton(C).Visible = True
    ' Клонирование лейбла
    C = lblLabel.Count
    Load lblLabel(C)
    Set lblLabel(C).Container = fraContainer(I)
    lblLabel(C).Visible = True
    ' Клонирование полосы прокрутки
    C = hsbScroll.Count
    Load hsbScroll(C)
    Set hsbScroll(C).Container = fraContainer(I)
    hsbScroll(C).Visible = True
    ' Клонирование текстового поля
    C = txtText.Count
    Load txtText(C)
    Set txtText(C).Container = fraContainer(I)
    txtText(C).Visible = True
    
    Me.Width = ScaleX(fraContainer(I).Left + fraContainer(I).Width + 10, vbPixels, vbTwips)
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

10   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ