Модальность

[Alexanbar]

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

[GSerg]

А вот нефиг идеологию винды нарушать

[tyomitch]

А вот нефиг идеологию винды нарушать

Я где-то читал, что в Винде модальность есть только у диалогов в очень ограниченных случаях.
В VB же вся модальность контролируется рантаймом, а не Виндой.

А определить, наверное, самое простое - завести публичную переменную и устанавливать её во что надо перед вызовом Show.

[Alexanbar]

Идеологию- то мы и не планируем особенно нарушать. Только форму, которую хочет показать модальная, используется при вызове как из немодальных, так и из модальных форм.
Пока пришлось сделать примерно так, как советует tyomitch, точнее, передаю в качестве параметра модальность.
Одно мне не по душе - раз есть ругань, то бишь, сообщение об ошибке, должно быть средство избежать её, кроме способа отлавливания ошибки.

[tyomitch]

Пока пришлось сделать примерно так, как советует tyomitch, точнее, передаю в качестве параметра модальность.
Одно мне не по душе - раз есть ругань, то бишь, сообщение об ошибке, должно быть средство избежать её, кроме способа отлавливания ошибки.

Можно всё инкапсулировать во что-нибудь вроде

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

Public Sub ShowEx(ByVal Form As Form, ByVal Modal As Boolean, ByVal Owner As Form)
    If Owner.Modal Then Modal = True
    Form.Modal = Modal
    Form.Show IIf(Modal, vbModal, vbModeless), Owner
End Sub


Будет гораздо красивее

[Vi]

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

' Проект prjSurModal содержит две формы (может быть и одна)

' Форма frmSurModal1 содержит две кнопки
' Command1(0) .Caption = "Modeless"
' Command1(1) .Caption = "Modal"

' Форма frmSurModal2 не содержит ничего (м.б. заменена на frmSurModal1)

Dim WithEvents slvfrm As Form

Private Sub Command1_Click(Index As Integer)
  Dim frm As New frmSurModal2     ' м.б. frmSurModal1
  If Index = 1 Then
    Set slvfrm = frm
  End If
  frm.Show , Me                    ' или vbModeless, Me
End Sub

Private Sub slvfrm_Load()
  Me.Enabled = False
End Sub

Private Sub slvfrm_Unload(Cancel As Integer)
  Me.Enabled = True
End Sub

Запускающая форма (здесь frmSurModal1) может запустить подчиненную форму (здесь frmSurModal2 или frmSurModal1) в режиме vbModeless, устанавливая для себя возможный режим работы vbModeless или vbModal.