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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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