Discussion :

[Hobbi1]

Bonjour,

J'ai une Form1 qui peut appeler une Form2.
Cette Form2 sert à manipuler des données dont certaines sont affichées dans une ListView dans la Form1.

Form2 est appelé par une ShowDialog()

Je voudrais que les données ajoutées dans Form2 soient ajoutées dans la ListView de Form1.
Je fais :

Code :

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

1
2
3
4
5
6
7
Form2.ShowDialog()
 
Dim monListViewItem As New ListViewItem
monListViewItem.Text = TextBox1
monListViewItem.SubItems.Add(TextBox2)
...
Form1.ListView.Items.Add(monListViewItem)

Le problème c'est que ce code me regénère un nouveau Form1. J'ai remarqué en effet que le code passe par Sub New() de Form1.
Donc ca ne marche pas.

Merci de votre aide.

[infosam76]

Bonjour

Essayer ceci ce n'est peut être pas le plus propre mais cela semble répondre à vos besoins :

Code de la Form1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dial As New Form2
 
        ' Passe une référence sur la form courante qui sera stockée dans 
        ' une  variable de la Form2
        dial.FormParent = Me
 
        dial.ShowDialog()
 
    End Sub
 
    Public Sub Add(ByVal sChaine As String)
        ' ListBox1 = Un simple ListBox ajouté par l'EDI
        ListBox1.Items.Add(sChaine)
    End Sub
End Class

Code de la Form2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Class Form2
 
    ' Servira de "pointeur" sur la Form1
    Public FormParent As Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Appel de la fonction public Add de la Form1 qui ajoute une chaine 
        ' dans la listbox
        FormParent.Add("Chaine 1")
    End Sub
End Class

Il doit y avoir plus propre comme méthode mais je suis un peu "rouillé" en vb.net, mais cela devrait vous dépanner

[Hobbi1]

Merci binou76
Ta solution fonctionne comme je le veux

Et même si tu ne trouves pas cette solution propre, je vais l'adopter car il n'y a pas eu beaucoup de réponses (à cause des vacances je suppose )