Переход-Форма-Форма

[Денис]

Для того, чтобы ссылка на экземпляр формы оставалась доступной, можно сделать так:

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

Код удален, поскольку скопирован неправильно. Правильный вариант см. ниже.


Можно организовать ChildForm как массив и хранить все ссылки на созданные кнопкой дочерние формы. Более усложненно манипуляции с взаимодействием окон можно наблюдать в примере.

[alibek]

Для того, чтобы ссылка на экземпляр формы оставалась доступной, можно сделать так:

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

Private ChildForm as Form
________________________________________________________

Private Sub Command1_Click()

  Dim Copia As Form     'Объявляем переменную типа Form
  Dim Copia2 As Form

  Set Copia = New Form1 'Создаем экземпляр класса Form1
  Set Copia2 = Copia

    Load Copia          'Загружаем экземпляр
    Copia.Show          'Выводим на экран
 
  Set ChildForm = Copia 'Назначаем копию переменной.
  Set Copia = Nothing   'Уничтожаем ссылку на экземпляр формы (сам он остается в памяти)

End Sub

Это на конкурс по извращениям?
Почему бы просто не написать:

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

Set ChildForm  = New Form1
Load ChildForm
ChildForm .Show

[Денис]

alibek
Потому что так мы из первого экземпляра получаем ссылку на второй экземпляр и можем обращаться ко всем его публичным методам.
_____________
Ой, и так можем... Ой, чёта я действительно нагородил огород...

[alibek]

Потому что так мы из первого экземпляра получаем ссылку на второй экземпляр

А?

[Денис]

alibek
Блин, я перепутал свой код с посторонним. Вот что я на самом деле хотел добавить:

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

Private ChildForm as Form
________________________________________________________

Private Sub Command1_Click()

  Dim Copia As Form     'Объявляем переменную типа Form

  Set Copia = New Form1 'Создаем экземпляр класса Form1
    Load Copia          'Загружаем экземпляр
    Copia.Show          'Выводим на экран
  Set ChildForm = Copia 'Назначаем копию переменной.
  Set Copia = Nothing   'Уничтожаем ссылку на экземпляр формы (сам он остается в памяти)

End Sub

Теперь переделываем его в соответствии с твоей рекомендацией:

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

Private ChildForm as Form
________________________________________________________

Private Sub Command1_Click()

  Set ChildForm = New Form1 'Создаем экземпляр класса Form1
    Load ChildForm          'Загружаем экземпляр
    ChildForm.Show          'Выводим на экран

End Sub

[Viper]

Денис, вот последний вариант и есть правильный для случая, когда ссылку надо хранить. Безо всяких лишних промежуточных переменных.

[SLIM]

Ребят. Я тут задавал вопрос не совсем по этому поводу. Я именл в виду уже готовую форму - со всеми элиментами управлениями и т.д.

[Proxy]

Сори, это я наоффтопил опять. Извините пожалуйста, я больше так не буду. Весь оффтоп опять с моего поста начат( Йа креведко

[Денис]

SLIM
Да все по теме. Просто тебе надо взаимодействие между двумя формами, а мы тут обсуждали взаимодействие между экземплярами одной формы, принципы работы те же.
Вот более подходящий тебе пример:

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


'Этот код находится в Form1!

Private frmForm2 as Form2
________________________________________________________

Private Sub Command1_Click()

  Set frmForm2 = New Form2 'Создаем экземпляр класса Form1
    Load frmForm2          'Загружаем экземпляр
   
    'Раскомментируй нужную строку:
    frmForm2.Show          'Выводим на экран (получаем отдельное окно)
    'frmForm2.Show 0, me    'Выводим на экран (зависимое немодальное)
    'frmForm2.Show 1, me    'Выводим на экран (зависимое модальное)

    'Чтобы скрыть форму
    frmForm2.Hide

    'Чтобы выгрузить форму из пямяти
    Unload frmForm2
   
    'Для модальных форм все это не нужно, ибо код в основной (родительской) форме приостанавливается до полной выгрузки модального окна.
    'чтобы передать параметры в дочернюю форму - юзай публичные переменные в ней. Чтобы вернуть значения из формы, юзай публичные переменные в родительской форме, а в дочерней заведи публичную переменную типа Form и передавай ей ссылку на родительскую форму.
End Sub

[SLIM]

Денис Давай попорядку. Есть Форма1. В ней при загрузке из БД вытягвается некий список. Есть Форма2, из которой собственно загружается Форма1. Вот в таком случае представь код для примера. Как я задам ссылку на существующую форму...

[Денис]

SLIM
А причем тут БД?
Когда ты в форме №2 делаешь Load Form1, то форма №1 загружается и генерирует событие Form_Load. Вот и выполняй все необходимые действия там. И у каждого экземпляра формы будет свой экземпляр события со своим экземпляром рекордсета

[SLIM]

Да БД тут просто пример. Просто при загрузке формы нужно проверять наличие данных в БД, и если их нет, то выгрузить либо отменить загрузку формы.