FormIsLoad
sub IsLoaded(strCaption) Dim i% For i% = 0 To Forms.Count -1 If (Forms(i%).Caption =strCaption) Then Msgbox "The form/window is loaded" Else Msgbox "the form isn't loaded" End If Next i% End Sub
sub IsLoaded(strCaption)
Dim i%
For i% = 0 To Forms.Count -1
If (Forms(i%).Caption =strCaption) Then
Msgbox "The form/window is loaded"
Else
Msgbox "the form isn't loaded"
End If
Next i%
End Sub
( formisload.html )- by Paolo Puglisi
- Modifica del 17/12/2023