Функция Load

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
David
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

Функция Load

Сообщение David » 22.08.2021 (Вс) 15:33

День добрый
Честно говоря не знаю что надо искать на форуме что-бы получить ответ на мою проблему
В форме есть объект "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
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4148
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Функция Load

Сообщение Mikle » 22.08.2021 (Вс) 19:15

Если я правильно понял, нужно это?
Код: Выделить всё
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
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

Re: Функция Load

Сообщение David » 08.09.2021 (Ср) 0:17

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

David
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

Re: Функция Load

Сообщение David » 08.09.2021 (Ср) 11:39

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 43

    TopList