USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Detectar FORM
rogerioos
ESTEIO
RS - BRASIL
ENUNCIADA !
Postada em 29/06/2007 16:22 hs         
Pessoal, como posso fazer uma rotina que detecte cada form existente no meu projeto e que eu consiga pegar o nome de cada um deles......obrigado a todos.
   
JSFF
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 29/06/2007 16:47 hs            
Boa tarde.
 
Amigo, use esse exemplo como base:
 
Dim i As Integer
For i = 0 To Forms.Count
         List1.AddItem Forms(i).Name
Next i
 
 
JSFF
TÓPICO EDITADO
 
Waldir Júnior
POÇOS DE CALDAS
MG - BRASIL
ENUNCIADA !
Postada em 29/06/2007 16:51 hs            
'Verificar se Determinado FORM esta aberto
 
Public Function FormIsLoaded(stFrmName As String) As Boolean
    Dim frmTmp As Form
    Dim blLoaded As Boolean
    blLoaded = False
    stFrmName = UCase$(stFrmName)
    For Each frmTmp In Forms
        If (UCase$(frmTmp.Name) = stFrmName) Then
            blLoaded = True
            Exit For
        End If
    Next
    FormIsLoaded = blLoaded
End Function
If FormIsLoaded("frmMain") Then
    MsgBox "O formulario principal ja esta aberto."
 Else
    MsgBox "O formulario principal nao esta aberto."
End If

________________________

Té +

Que NIMB role bons Dados! Emoções

   
rogerioos
não registrado
ENUNCIADA !
Postada em 29/06/2007 18:36 hs   
valeu pela dica pessoal, porém essas duas maneiras só me retorna os forms que já estão abertos, teria alguma maneira de fazer um FOR pegando todos os forms do projeto, independente se o form está aberto ou fechado ?? obrigado pessoal.
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 29/06/2007 19:42 hs         
cria um arquivo .ini com nomes dos forms do projeto e carregue quando iniciar a aplicação estou buscando uma solução + prática a muito tempo e até agora não consegui nada
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página