Discussion :

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim NewMDIChild As Object = ed.UsF
        NewMDIChild.MdiParent = Me
        NewMDIChild.Text = NewMDIChild.Text + "  - " + Me.MdiChildren.Length.ToString()
        FenetreMdi.DropDownItems.Add(NewMDIChild.Text)
        NewMDIChild.Show()

Je ne comprends pas, quand je click sur le bouton Csv par exemple, mon UserForm s’ouvre et je renseigne bien le menu Fenêtre. J’ai rassemblement pas tous essayé car je ne trouve pas la solution !

[Pol63]

limite un comble vu ta signature, mais j'ai rien compris au problème ...

[Invité]

Bonsoir le forum et bonsoir Pol63,
Tu te doute bien que ce n'était pas la réponse que j'attendais mais je te plussois quand même je sais déjà sur quel point je dois intervenir.

J'ai un UserForm enveloppe, quand j'ouvre un formulaire MDI, il apparaît bien dans mom menu (fenêtres) mais quand je le referme, il reste présent dans le menu (fenêtre).

J'ai cherché une propriété qui autorise un auto remove mais en vain. C'est une manipulation qui ressemble à ce que je faisais en vb6 mais là je cal!

[Pol63]

tu as essayé de le .Dispose ?

si c'est toi qui l'ajoutes dans la liste, c'est à toi de le retirer je pense

[Invité]

merci pour ta réponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim NewMDIChild As Object = ed.UsF
        NewMDIChild.MdiParent = Me
        NewMDIChild.Text = NewMDIChild.Text + "  - " + Me.MdiChildren.Length.ToString()
        FenetreMdi.DropDownItems.Add(NewMDIChild.Text)
        NewMDIChild.Show()

ici j'ajoutes mon UserForm à mon menu Fenêtre. quand je quitte le sous formulaire (MDI) j'ai essayé de le remover en sortant du formulaire mais j'ai un exception qui m'indique que le formulaire est toujours instancier! j'ai fait un test sur Form1_Disposed là je n'ais pas d'exception mais il n'y à pas de changement au niveau du menu (Fenêtre)!

[Biggy30]

sur la deuxieme form si tu mets un bouton pour la fermer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Button1_Click
  Me.Close()
  FenetreMdi.DropDownItems.Clear(NewMDIChild.Text)
End Sub

Je ne peut pas le tester pour l'instant mais de mémoire j'avais un programme dans lequel je stockais un liste des fichiers récents et j'avais ajouter une entrée de menu qui les effacaient.....