Немодальная форма, которая все еще приостанавливает выполнение кода
Есть ли в любом случае пользовательская форма, которая действует немодально, но в то же время приостанавливает выполнение кода, как модальная форма?
Мне бы хотелось, чтобы пользовательская форма показывалась, но все же позволяла взаимодействовать с родительской программой. Модальные формы блокируют взаимодействие с родительской программой. Будет работать немодальная форма, но я бы хотел, чтобы выполнение кода приостанавливалось, пока форма работает.
Мы работали над этим, создавая бесконечный цикл, который проверяет, видна ли форма, но это выглядит немного странно.
Public Sub GetFormInfoAndDoStuff
ufForm.show vbModeless
Do while ufForm.Visible
DoEvents
Loop
' Do other stuff dependent on form
End Sub
ИЗМЕНЕНО для уточнения того, что существует код после .show, который должен выполняться после заполнения пользовательской формы.