COMO SABER SE UM FORM ESTA ABERTO E OUTRA PERGUNTA

USUARIO.EXCLUIDOS 30/09/2004 13:57:28
#44061
como eu faco pra saber se um form esta aberto e como eu sei se um objeto esta no focus?

valeu
USUARIO.EXCLUIDOS 01/10/2004 13:35:32
#44207 Resposta escolhida
Um form está aberto quando o mesmo está na coleção forms


Function FormEstaAberto(FormName As String) As Boolean
    Dim f As Form
    For Each f In Forms
        If f.Name = FormName Then
            FormEstaAberto = True
            Exit Function
        End If
    Next
End Function


O objeto que está com foco pegue no ActiveControl

  Msgbox "O Controle  " & activeControl.Name & " está com foco"
Tópico encerrado , respostas não são mais permitidas
Voltar