FORM TRANSPARENTE / FORM JA CARREGADO

USUARIO.EXCLUIDOS 07/05/2006 22:56:16
#145422
1-Como faço pra um form MDI-child ser transparente??

2-Como posso saber se um form ja está aberto?
Ex:
Eu tenho um menu e clico em clientes e abre o form de clientes. até ai eu uso "form.show", mas depois que eu clico novamente no menu, eu quero que apareca uma mensagem dizendo que ja foi aberto.
LIONHEART 08/05/2006 09:37:49
#145440 Resposta escolhida
1) em Anexo

2)
Chame assim, por exemplo:
  IF FormIsLoaded ("frmCliente") then
     msgbox "carregado"
     frmCliente.SetFocus
  else
     msgbox "NÃO carregado"
     frmCliente.Show
  end if


Função abaixo


Public Function FormIsLoaded(NomeForm As String) As Boolean
    Dim myForm As Form
    FormIsLoaded = False
    
    For Each myForm In Forms
         If UCase(myForm.Name) = UCase(NomeForm) Then FormIsLoaded = True
    Next
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar