|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Verificando se um Form está carregado
|
 |
|
|
|
Postada em 10/6/2005 por Josefh Hennyere
Public Function FormLoadedByName(FormName As String) As Boolean
Dim i As Integer, fnamelc As String
fnamelc = LCase$(FormName)
FormLoadedByName = False
For i = 0 To Forms.Count - 1
If LCase$(Forms(i).name) = fnamelc Then
FormLoadedByName = True
Exit Function
End If
Next
End Function
'Para chamar
If FormLoadedByName("Nome do Form") = True Then
MsgBox "Carregado."
Else
MsgBox "Não está carregado."
End If
'Josefh Hennyere
|
|
|
|
|
