• Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Тема: Вызов формы-диалога из основной формы и возврат из формы-диалога в основную

Предположим есть основная форма программы. Нам надо вызвать дополнительную форму на экран в которой надо отобразить свойства выделенного объекта чертежа и поменять некоторые свойства. Эту форму мы вызываем следующим кодом:

UserForm_Dialog.Show

После завершения редактирования свойств мы нажимаем кнопку "Выход" на форме-диалоге, при этом запускается на выполнение следующий код

UserForm_Dialog.Hide

При этом строка выполнения в отладчике застревает на строке где мы эту форму вызывали методом Show и чтобы сдвинуть эту жёлтенькую строку дальше уже не помогают никакие методы Hide в вызываемой форме-диалоге.
Как можно сделать так, чтобы продолжился процесс выполнения программы в основной форме после закрытия формы-диалога?
Если этого сделать нельзя, то неужели эта проблема всего VBA из-за которой на этом языке нельзя создавать полноценные многооконные диалоги в процессе выполнения программы и это наверное самое слабое место VBA, из-за которого программирование на этом языке выглядит не вполне полноценным?

  • Dron
  • Восстановленный участник
  • На форуме с 17 марта 2007г.
  • Сообщений: 97
  • Спасибо: 0

Re: Вызов формы-диалога из основной формы и возврат из формы-диалога в основную

Если честно не совсем понял вопрос.
Во первых, форму нужно скрыть или вообще вугрузить.
Если выгрузить,то: Unload UserForm_Dialog
Второе, формы модальные или нет, или гибрид?
А вообще, просто поставьте бригпоинт на строку после строки загрузки формы
и дойдя трасировкой до её загрузки запустите код на выполнение.

  • Lama
  • Восстановленный участник
  • На форуме с 20 мая 2007г.
  • Сообщений: 15
  • Спасибо: 0

Re: Вызов формы-диалога из основной формы и возврат из формы-диалога в основную

Никаких затруднений с "диалоговыми" юзерформами, вызванными из других юзерформ - небыло. За исключением случаев непоименного вызова этих самых форм.
Попробуйте во второй форме для скрытия формы на кнопку повешать код:
Private Sub CommandButton2_Click()
    Me.Hide ' вместо UserForm_Dialog.Hide
End Sub