Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Need Some Help
Message
Information générale
Forum:
Visual Basic
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00603741
Message ID:
00604578
Vues:
20
Forms.add doesn't return an object, you'll need to loop through
the forms collection after adding it and you'll be all set:

Dim sForm As String
sForm = "Form1"
VB.Forms.Add sForm
For Each oForm In VB.Forms
If oForm.Name = sForm Then
oForm.Show
End If
Next oForm


>I want to open a form by passing the name of the form as a string
>to a function. I have:
>
>
>Public Sub LaunchForm(sFormName As String)
>
>  Dim oWinObj As New WindowObj
>  Dim oForm As Form
>
>  Set oWinObj = New WindowObj
>
>  oForm = oWinObj.OpenForm(sFormName)
>
>End Sub
>

>
>oWinObj is in a class:
>
>
>Public Function OpenForm(sFormName As String) As Form
>
>  Dim oForm As Form
>
>  Set oForm = Forms.Add(sFormName)
>  oForm.Show
>
>  OpenForm = oForm
>
>End Function
>

>
>Now it I don't try to return the instance of the form (oForm), it
>works fine. In other words, if the function above is defined as
>a Sub instead of a Function.
>
>I get the error 'Invalid use of property'
>
>Can someone help please?
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform