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

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Procedimento que abre um form através do nome armazenado numa variável string
Postada em 31/7/2003 por cacá            
Private Sub LoadForm(NomeForm As String)
    
    On Error goto trata_erros

    Dim FormToLoad As Form
    Set FormToLoad = Forms.Add(NomeForm)
    Load FormToLoad
    FormToLoad.Show

    Exit Sub

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

End Sub


Para chamar o Form use:

LoadForm "NomeForm"
 


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