Discussion :

[fxbrg]

Bonjour,

Je suis en train de faire un bout de projet qui permette de saisir/modifier les données de base du projet. Chaque donnée de base à son formulaire de saisie/édition. Le problème est qu'il y a y paquet de données de base. Alors plutôt que faire un formulaire "Menu" avec un "paquet" de boutons vers chaque formulaire d'édition, je voulais (comme je le fais sous Access et ça marche bien :-), remplir une combobox avec les noms des formulaires présents dans le projet, puis après sélection et clic sur un seul bouton, afficher le formulaire d'édition. Mais je ne trouve pas comment parcourir la collection Forms du projet. Je n'ai trouvé que My.Application.Openforms, ce qui, comme son nom l'indique, ne renvoie que les forms ouverts...

Et autre question, corollaire : comment passer une variable pour ouvrir un form depuis ma ComboBox?

Merci de votre aide,

Amicalement,

JFB

[smyley]

hum ?
http://faqvbnet.developpez.com/?page...rm_ListerForms

[fxbrg]

Super Smyley, le pire c'est que j'étais tombé dessus, avais trouvé ça trop compliqué et zappé... Ca marche super pour faire la liste des forms... Un grand merci!!

Reste à récupérer le nom du form dans la combobox et le passer au bouton, et là je patine sur la syntaxe de cette foutue variable...

Encore un petit coup de pouce, voire de main?

Amicalement,

JFB

[smyley]

Ben une fois que l'on a la liste des forms on peut faire un For Each sur cette liste et les rajouter dans la ComboBox avec ZeComboBox.Items.Add(laForm).

Pour modifier le texte affiché pour une form dans la ComboBox il faut redéfinir la méthode ToString() de la form en question et y mettre ce qu'on veux.

Enfin, pour obtenir la sélection dans un bouton il faut utiliser ZeComboBox.SelectedItem

[fxbrg]

Merci encore Smiley,

Le premier point, je gère... J'ai juste ajouté
Me.ComboBox1.DataSource = resultat au code cité ci-dessus.

Ca marche, les lignes sont là, mais vierges...

Le second... je butte!

Le troisième, ça marche! En fait je passais f.name à la Combobox pour voir le nom des forms, du coup quand je faisais un me;combobox.selecteditem.show, il recevait un String, ça marchait pas... Je fais ça à l'aveugle, mais ça fonctionne.

Donc en résumé, il ne me reste "plus qu'à" comprendre comment afficher le nom de mes forms dans mon combo... Faut-il faire un Array à deux dimensions avec f et f.ToString (ou f.name) pour pouvoir afficher?

je viens d'essayer de faire un BindingSource, puis d'en faire la source de mon Combo en mode graphique (j'utilise Visual Studio 2008), mais même problème.

Un dictionnaire peut-être?...

Encore merci d'avance,

Amicalement,

JFB

[fxbrg]

Je mets ce post en résolu, voici la solution qui fonctionne pour moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Dim resultat As New ArrayList
   Dim a As Reflection.Assembly = System.Reflection.Assembly.GetAssembly(Me.GetType)
   For Each t As Type In a.GetTypes
     If GetType(Form).IsAssignableFrom(t) Then
       Dim f As Form = CType(Activator.CreateInstance(t), Form)
       Me.ComboBox1.Items.Add(f.Name)
     End If
  Next
End Sub

Merci à tous,

Amicalement,

JFB