|
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
|
|
|
|
|
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!
|
|
|
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
|
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
|
|
|