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
12 juil. 2008 à 18:42
19 déc. 2007 à 09:03
Et pour éviter un bug, pour moi je mettrais un "On Error Resume Next"...
Merci pour tout!
12 avril 2005 à 19:07
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 ?
25 mars 2005 à 17:11
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.