| |
Форма: создание модальной формы |
|
| |
Если у вас в программе запущено несколько форм, и вам необходимо сделать одну форму более модальной :) по отношению к другим, используйте данную процедуру. Добавьте к вашему проекту еще 2 формы, а также расположите на форме 3 CommandButton.
Sub MakeModalForm(frm As Form, ByVal State As Boolean)
Static saveForms As Collection
Dim f As Form
If State Then
' disable all other forms in the project
' but remember which were enabled
Set saveForms = New Collection
For Each f In Forms
If Not (f Is frm) And frm.Enabled Then
saveForms.Add f
f.Enabled = False
End If
Next
ElseIf Not (saveForms Is Nothing) Then
' restore the Enabled property of other forms
For Each f In saveForms
f.Enabled = True
Next
Set saveForms = Nothing
End If
End Sub
Private Sub Command1_Click()
Form2.Show
Form3.Show
End Sub
Private Sub Command2_Click()
MakeModalForm Me, True
End Sub
Private Sub Command3_Click()
MakeModalForm Me, False
End Sub
Private Sub Form_Unload(Cancel As Integer)
MakeModalForm Me, False
End Sub
|
|
| |
|
|
|
|