Charger une mdichild

Commenter

Contenu du snippet

Ce bout de code permet de charger une form fille que si elle n'est pas deja chargée.
Vous devez specifier un Tag different pour chaque form fille.

Source / Exemple : 


' code a mettre dans la form mere

    Public Sub LoadChildForm(ByVal ParentForm As Form, ByVal ChildForm As Form, ByVal Tag As String)
        Dim Compt As Integer
        Dim Index As Integer
        Index = -1
        For Compt = 0 To ParentForm.MdiChildren.Length - 1
            If ParentForm.MdiChildren(Compt).Tag = Tag Then Index = Compt
        Next
        If Index = -1 Then
            ChildForm.MdiParent = Me
            ChildForm.Show()
        Else
            ParentForm.MdiChildren(Index).Activate()
        End If
    End Sub

Conclusion :


ex: LoadChildForm(Me, New Fille(), "tagcorrespondant")

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lumesh)