ايران ويج

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

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

far_222000 نوشته است:if form2.visible = True then msgbox "Load" Else "Unload"

visible چه ربطی به لود بودن داره ؟ Shy

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

با سلام

کد: 
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

amin_amin

far_222000

amin_amin

hamed_Arfaee