لود بودن فرم

[amin_amin]

سلام
ببخشید جه راهی هست که بتونیم بفهمیم یه فرم از برناممون لود شده یا نه ؟

[far_222000]

if form2.visible = True then msgbox "Load" Else "Unload"

[amin_amin]

if form2.visible = True then msgbox "Load" Else "Unload"

visible چه ربطی به لود بودن داره ؟
خوب شاید فرم لود شده باشه ولی اینویزش کرده باشن !

[hamed_Arfaee]

با سلام

کد:

Public Function IsLoad(Name As String) As Boolean

    Dim fcount  As Integer, i As Integer
    
    fcount = Forms.Count - 1
        For i = 0 To fcount
        If UCase$(Forms(i).Name) = UCase$(Name) Then
            IsLoad = True
            Exit For
        End If
    Next
End Function

مثال :

کد:

If IsLoad("Form1") Then Msgbox "Loaded"  ' Form load