VERIFICAR FORMULARIO
Como faço para saber se um formulario ja esta aberto, (a propriedade visible não serve)
Adriano
Se você especificar em qual situação ficaria mais fácil, mas se puder verificar pela CAPTION:
Public Function FormAberto(sCaptionForm As String) as Boolean
Dim cForms As Form
For Each cForms In Forms
If cForms.Caption = sCaptionForm Then
FormAberto = True
cForms.Show
cForms.ZOrder 0
Exit Sub
End If
Next
End Function
Se estiver aberto ele já "puxa para cima" o Form procurado.
Espero ter ajudado. Até Breve.
[s68]
Se você especificar em qual situação ficaria mais fácil, mas se puder verificar pela CAPTION:
Public Function FormAberto(sCaptionForm As String) as Boolean
Dim cForms As Form
For Each cForms In Forms
If cForms.Caption = sCaptionForm Then
FormAberto = True
cForms.Show
cForms.ZOrder 0
Exit Sub
End If
Next
End Function
Se estiver aberto ele já "puxa para cima" o Form procurado.
Espero ter ajudado. Até Breve.
[s68]
Tópico encerrado , respostas não são mais permitidas