Функция Load

[David]

День добрый
Честно говоря не знаю что надо искать на форуме что-бы получить ответ на мою проблему
В форме есть объект "Picture" в котором я поместил "TextBox" при помощи одной "CommandButton" я дублирую "Picture" а второй кнопкой дублирую "TextBox"
Проблема, которую я не могу решить : как можно продублировать "Picture" вместе с содержимый в нем "TextBox"

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

Option Explicit

Private Sub Command1_Click()
  Dim ll As Integer
  ll = Picture1.Count
  Load Picture1(ll): Picture1(ll).ZOrder 0: Picture1(ll).Visible = True: Picture1(ll).Top = Picture1(ll - 1).Top + Picture1(ll).Height + 50
End Sub

Private Sub Command2_Click()
  Dim ll As Integer
  ll = Text1.Count
  Load Text1(ll): Text1(ll).ZOrder 0: Text1(ll).Visible = True: Text1(ll).Top = Text1(ll - 1).Top + Text1(ll).Height + 50
End Sub

Спасибо

[Mikle]

Если я правильно понял, нужно это?

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

Option Explicit

Private Sub Command1_Click()
  Dim ll As Integer

  ll = Picture1.Count
  Load Picture1(ll): Picture1(ll).ZOrder 0: Picture1(ll).Visible = True: Picture1(ll).Top = Picture1(ll - 1).Top + Picture1(ll).Height + 50
  Load Text1(ll): Text1(ll).ZOrder 0: Text1(ll).Visible = True
  Set Text1(ll).Container = Picture1(ll)
End Sub


[David]

Добрый вечер,
Только сегодня вернулся из отпуска. Очень обрадовался вашему ответу. Завтра или послезавтра попробую применить.
Большое Вам спасибо

[David]

Mikle ещё раз Вам спасибо, всё работает как я и желал
Тему можно закрыть