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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como Listar nomes dos Formulários do Projeto?
Fortunao
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 26/10/2004 16:29 hs            
Gostaria de saber como eu posso listar os nome de todos os formularios de um projeto.
 
Desde ja agredesço
 
Fortunao
   
Manigni
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 26/10/2004 17:47 hs         
Você poderá abrir o seu projeto usando o bloco de notas. Você abre o .vbp, lá constam todas as informações necessárias sobre seu projeto, inclusive o nome dos forms. Procure por linhas que estejam começando com Form=, aí vc verá seu form, ex:
Form=MeuForm.Frm
 
Depois é só copiar as linhas desejadas p/ outro arquivo de texto e TOMAR MUITO CUIDADO PARA NÃO ALTERAR O SEU .VBP ORIGINAL...
 
Não sei se é isso q vc precisa, mas espero ter ajudado...
 
t+
   
Los Zeus®
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 26/10/2004 19:59 hs            
Opa e ai cara....quando fui te responder no MSN vc já tinha saido.....bom fiz uma rotininha aqui que vai quebrar mó galhão.....
 
'No General do form
Dim Frm As Form
Dim vNum As Integer
------------------------------------------------------------------------------
Private Sub Command1_Click()
Form2.Show
Form2.Hide
'Aqui no caso to usando apenas 2 form's.....dei um "show" depois um "hide" pois o form tem que estar "instanciados" (carregados na memória) como diria meu amigo Roberto....rs
vNum = 0
    For Each Frm In Forms
        If Frm.Count <> vNum Then
            List1.AddItem Frm.Name
            vNum = vNum + 1
        End If
    Next Frm
End Sub
'No final se vc quiser vc pode dar um Unload para descarregar a memória.....
-------------------------------------------------------------------------------
É isso ae qualquer coisa me fale.....
TÓPICO EDITADO
 
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