Mdi exemple

Soyez le premier à donner votre avis sur cette source.

Vue 5 624 fois - Téléchargée 887 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
Messages postés
42
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
24 août 2015

Simple et claire, merci.
Messages postés
77
Date d'inscription
jeudi 11 octobre 2007
Statut
Membre
Dernière intervention
27 septembre 2010

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!
Messages postés
8
Date d'inscription
jeudi 18 mars 2004
Statut
Membre
Dernière intervention
19 décembre 2005

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 ?
Messages postés
8
Date d'inscription
jeudi 18 mars 2004
Statut
Membre
Dernière intervention
19 décembre 2005

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.