ESCOLHA DE FORMULARIO EM TEMPO DE EXECUCAO

USUARIO.EXCLUIDOS 11/04/2007 21:02:08
#211371
Cria um arquivo.txt, contendo o nome dos forms, assim basta varrer o arquivo pegando os respectivos nomes, assim, quando for acrescentar um novo form, ele vai ser criado, setando o nome que você colocou no arquivo.

Formularios.txt
ALMARTI 11/04/2007 21:26:34
#211373
Seria mais lento que o metodos case ou elseif. Acessar arquivos externos é um caso a se pensar. O método proposto pelo Bruno é o que eu havia sugerido anteriormente, porem acreditonão ser viável uma vez que voce disse que são mais de 100 forms.
MORDOR 11/04/2007 21:45:11
#211374
Use essa funçãozinha que criei para carregar através de uma string.

Private Function LoadForm(ByVal formName As String, ByVal show As Boolean) As Form
    
    On Error GoTo trata_erros

    Dim frm As Form
    Set frm = Forms.Add(formName)
    Load frm
    
    If show Then frm.show
    
    Set LoadForm = frm

    Exit Function

trata_erros:
    If Err.Number = 424 Then
       MsgBox "O Form informado não existe!", vbExclamation
    Else
       MsgBox "Houve um erro!" & vbCrLf & Err.Description
    End If

End Function


Para carregar e exibir o Form:

LoadForm "Form2", True


Para carregar, configurar alguma propriedade e exibir:

Dim frm As Form
Set frm = LoadForm("Form2", False)
frm.Caption = "Título"
frm.show
USUARIO.EXCLUIDOS 12/04/2007 01:26:18
#211394
Gente, não procuram não, óh: CHAMAR FORM PELO NOME
USUARIO.EXCLUIDOS 12/04/2007 08:38:47
#211411
Pessoal.. Muitisssisssissimo obrigado..

Era exatamente isso que eu precisava..!!!

Obrigado novamente.. salvaram o dia..
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar