CARREGAR FORM A PARTIR DE UMA STRING

USUARIO.EXCLUIDOS 14/07/2005 11:33:15
#94100
Olah amigos,

Olha soh... preciso carregar um form:

form.show vbmodal

soh q eh o segunte, o nome do form eh passado pra mim atraves de uma variavel
String. Se eu declaro a variavel como form, dah erro de tipo errado. Se deixo
como String dah erro do mesmo jeito.

Ajuda...

knsuper
WEBER 14/07/2005 11:38:11
#94104
Defina a variavel como objeto e set ela para criar o objeto
Dim vform As Object
Set vform = nomedoform
vform.Show (1)
USUARIO.EXCLUIDOS 14/07/2005 11:40:54
#94106 
Option Explicit 

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long 

Dim TheForm as String

Private Sub Command1_Click() 
  TheForm = Nome_Formulario

   ExecuteLine "Load " & TheForm & " : " & TheForm & ".Show" , False 
End Sub 

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean 

   ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0 

End Function


Prontinho... problema resolvido...
USUARIO.EXCLUIDOS 14/07/2005 11:42:42
#94108
WWEBER soução bem sisples e também fununcia......
PAGANINI 14/07/2005 12:20:35
#94126 Resposta escolhida
Faça assim que funciona

Option Explicit

Private Sub Command1_Click()
    Dim F As Form
    Dim NomeForm As String
    NomeForm = "Form2"
    Set F = Forms.Add(NomeForm)
    F.Show
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar