Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Mar 3, 2001

MakeModalForm - Make a modeless form modal

' make a modeless form modal
' this procedure should be called by passing TRUE
' in the 2nd argument to make the form modal, and
' called again with FALSE in the 2nd argument when
' the form is being unloaded.
' Private Sub Form_Load()
'    MakeModalForm Me, True
' End Sub
' Private Sub Form_Unload(Cancel As Integer)
'    MakeModalForm Me, False
' End Sub

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
    ElseIf Not (saveForms Is Nothing) Then
        ' restore the Enabled property of other forms
        For Each f In saveForms
            f.enabled = True
        Set saveForms = Nothing
    End If
End Sub

Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date