Как программно узнать, модальная форма или немодальная

[Jupiter]

У меня одна и та же форма из одних мест вызывается как модальная, из других - как немодальная. Как изнутри эта форма может узнать свой режим модальности? Хочу чтобы было так:

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

If Me.IsModal Then ....

[GSerg]

Хотелось бы узнать, что после then...

[Jupiter]

Хотелось бы узнать, что после then...

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

If Me.IsModal Then
    ' Результат выбора пользователя запомнить в
    '  (глобальной) переменной
   Unload Me ' Закрыть модальную форму
Else
    FrmParent.OnChoice  ' Прямо отсюда сообщить о событии родителю
     ' ... и остаться работать
End If


[alibek]

А в чем необходимость модального и немодального режима?
Кроме того, уведомлять о событиях можно разными способами. Например, RaiseEvent.

[Antonariy]

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

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

Dim vMode as FormShowConstants

Public sub ShowForm(Mode as FormShowConstants)
    vMode = Mode
   Me.Show Mode
End Sub

[Jupiter]

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

Понятно. Ну, способов сохранить эту информацию самому - куча. Можно и внутри формы иметь такую переменную-флаг. Я думал есть что-то более естественное.

[alibek]

Наверное, можно стиль окна получить и по нему смотреть.

[Jupiter]

Наверное, можно стиль окна получить и по нему смотреть.

Сейчас только проверил.

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

GetWindowLong(Me.hWnd, GWL_STYLE)
GetWindowLong(Me.hWnd, GWL_EXSTYLE)

выдают одно и то же для модального вызова формы и для немодального, соответственно.

[Antonariy]

А ковырять стили окна это более естественно?

[Amed]

frmMain:

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

Dim x As New frmForm

Private Sub cmdShowModal_Click()
    x.Tag = "Modal"
    x.Show vbModal
End Sub

Private Sub cmdShowNonModal_Click()
    x.Tag = "Modeless"
    x.Show vbModeless
End Sub

Private Sub Form_Load()
    Load x
End Sub

frmForm:

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

Private Sub Form_Click()
    MsgBox Me.Tag
End Sub

[_ae_]

Amed
Этот код уже был в пятом посте.

[Viper]

в пятом посте код был несколько другой... посему автору предлагается выбор между глобальной переменной и использования свойства Tag

[alibek]

Ну это косметические различия, которые роли не играют.

[kuhtiov]

брр кхе, модальная форма это что? Извеняюсь за глупость

[Viper]

в двух словах: модальная форма - это форма созданная таким образом, что до тех пор пока ты ее не закроешь ты не сможешь переключиться на другие формы приложения. Модальными формами например являются диалоги. А ваще google тебе в руки

[Amed]

modal
Describes a window or dialog box that requires the user to take some action before the focus can switch to another form or dialog box.

Модальная - форма, фокус с которой не может быть перемещен на другую форму приложения до ее [модальной формы] закрытия.

[kuhtiov]

Понятно. У меня с терминалогией хреново

[EUGY]

Ну вы блин даете.
Первое что в голову приходит:
Модальная форма обязана блокировать родителя.
Вот в стиле родителя и надо искать WS_DISABLED.