COMO SABER SE O FORM ESTA ABERTO? VB5
COMO SABER SE O FORM ESTA ABERTO? VB5
Boa tarde,
Eu desenvolvi ou peguei aqui nao lembro mais ta ai.
Funcao
______________________________________________________
Public Function FormAberto(FrmNome As String) As Boolean
Dim frm As Form
FormAberto= False
For Each frm In Forms
If LCase(frm.Name) = LCase(frmNome) Then
FormAberto = True
Exit Function
End If
Next frm
End Function
----------------------
e para chama-la
If FormAberto([Ô]NOMEDOFORM[Ô]) = True Then
msgbox [Ô]Form Aberto![Ô]
end if
Espero ter ajudado um excelente final de semana a todos e como diz alguém que não lembro agora do fórum.
[Ô]SE TRABALHAR FOSSE BOM NÃO NOS PAGARIAM PARA ISTO[Ô]
Eu desenvolvi ou peguei aqui nao lembro mais ta ai.
Funcao
______________________________________________________
Public Function FormAberto(FrmNome As String) As Boolean
Dim frm As Form
FormAberto= False
For Each frm In Forms
If LCase(frm.Name) = LCase(frmNome) Then
FormAberto = True
Exit Function
End If
Next frm
End Function
----------------------
e para chama-la
If FormAberto([Ô]NOMEDOFORM[Ô]) = True Then
msgbox [Ô]Form Aberto![Ô]
end if
Espero ter ajudado um excelente final de semana a todos e como diz alguém que não lembro agora do fórum.
[Ô]SE TRABALHAR FOSSE BOM NÃO NOS PAGARIAM PARA ISTO[Ô]
Tópico encerrado , respostas não são mais permitidas