Просьба помочь разобраться с приложенным примером...

[Andrey Fedorov]

В приложенном примере при нажатие на Open и многократное закрытие диалога по Escape (к примеру) приводит к вылету проекта.

В принципе понятно почему это происходит - вылет идет из-за того что на окно диалога добавляется PictureBox а не форма:

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

        Set pbx = frmEmpty!pbx
        pbx.Enabled = False
        SetParent pbx.hWnd, DlgHwnd
       
        pbx.Visible = True


Однако, если написать:

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

        SetParent frmEmpty.hWnd, DlgHwnd
        frmEmpty.Visible = True
        Set pbx = frmEmpty!pbx
        pbx.Enabled = False
       
        pbx.Visible = True


То получим сообщение:

Can't show non-modal form when modal form is displayed

Где собака зарыта?
Ну или где есть примерчик на эту тему...

[Alex[fj]]

И ты сам это катал??? Ведь где-то был пример!

[Andrey Fedorov]

Э-э-х... Так никто и не ответил... Пришлось самому - решение сделано на скорую руку и без особой оптимизации - главное не глючит. Приложено.