Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
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
        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


Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap