Mdi exemple

0/5 (4 avis)

Vue 5 763 fois - Téléchargée 890 fois

Description

voici un exemple du fonctionement des feuilles MDI + childs

un bon apprentissage

Source / Exemple :


Dim feuilles()
Dim nombre

Private Sub MnuAjouterNouvelleFeuille_Click()
    nombre = nombre + 1
    ReDim feuilles(1 To nombre)
    Set feuilles(nombre) = New Form2
    feuilles(nombre).Caption = "feuille n°" & nombre
    feuilles(nombre).Show
End Sub

Private Sub MnuSupprimerFeuille_Click()
    If nombre <> 0 Then
        Unload feuilles(nombre)
        Set feuilles(nombre) = Nothing
        nombre = nombre - 1
    End If
End Sub

Conclusion :


supprimer une feuille, supprime la derniere creee

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_clad87 Messages postés 42 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 24 août 2015
12 juil. 2008 à 18:42
Simple et claire, merci.
pulpul74 Messages postés 77 Date d'inscription jeudi 11 octobre 2007 Statut Membre Dernière intervention 27 septembre 2010
19 déc. 2007 à 09:03
Merci pour cette source, très intéressante, surtout pour la création de nouvelle form, ca marche nickel. Bon par contre c'est vrai que pour les fermer, ca marche moins bien, ca serait bien si on pouvais toutes les supprimer une par une, mais bon dans mon cas ce n'est pas necessaire.
Et pour éviter un bug, pour moi je mettrais un "On Error Resume Next"...
Merci pour tout!
cs_Number32 Messages postés 8 Date d'inscription jeudi 18 mars 2004 Statut Membre Dernière intervention 19 décembre 2005
12 avril 2005 à 19:07
Pas mal ...
J'ai apris de nouveau truc ...

C'est utile pour un newbie en vb ..
Mais il y'as un soucis si on ferme la forme 2 (qu'il y'an a 4 d'ouverte) il bugeras apres 2 supression de form ..

(vu que le 2 est tjrs dans le tableau mais la form n'existe plus)

Une solution ?
cs_Number32 Messages postés 8 Date d'inscription jeudi 18 mars 2004 Statut Membre Dernière intervention 19 décembre 2005
25 mars 2005 à 17:11
Merci pour cette source simple mais tellement interessante.
J'ai debuté Vb y'as une semaine et c'est exactement ce dont j'aurais besoins ca vas bcp m'aider merci ...

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.