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