Discussion :

[patrickvier]

Bonjour,
j'ai 2 form 1 et 2.
dans ma form1 je crée un Dictionnaire :
Dim dico As New Dictionary(Of Integer, String)
Ensuite j'ouvre la form2 par :
Form2.ShowDialog(Me)
Dans cette form2, j'aimerai remplir le dico (genre dico.add(1,"bouh!!").
Quitter la form2 et revenir à ma form1 et pouvoir utiliser le contenu de mon dico.
Si je résume, juste besoin de savoir comment transférer mon dico d'une form à l'autre, puis le récupérer dans la form1...
Merci
Patrick

[infosam76]

Un méthode parmi d'autres :

Tu peux créer ta variable dico comme public dans ta form1 et passer une référence sur ta form1 lors de l'initialisation et l'appel de ta form2. Cela donne un truc du genre :

Pour 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
 
Public Class Form1
    Public variable As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        variable = 1
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dial As New Form2(Me)
 
        dial.ShowDialog()
 
        MessageBox.Show(variable.ToString())
    End Sub
End Class

Pour la form2 :

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
20
 
Public Class Form2
    Private frm As Form1
 
    Public Sub New()
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
    End Sub
 
    Public Sub New(ByRef pfrm As Form1)
        InitializeComponent()
 
        frm = pfrm
 
 
        frm.variable = 2
    End Sub
End Class

[rv26t]

Bonjour,
D'autre solutions,

Si tu dois garder ton paramètre fenetre dans le new (pas mis pour ne pas surcharger l'exemple en code)
Tu utilises une propriété
Dans Form2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private LeDico As Dictionary(Of Integer, String)
    Public Property Dico() As Dictionary(Of Integer, String)
        Get
            Return LeDico
        End Get
        Set(ByVal value As Dictionary(Of Integer, String))
            LeDico = value
        End Set
    End Property
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LeDico.Add(2, "coucou")
    End Sub

Utilisation dans Form1

Code :

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

1
2
3
4
5
6
7
8
        Dim f As Form2 = New Form2()
        Dim dico As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String)
        f.Dico = dico
        f.ShowDialog()
        ' Visu
        For Each el As KeyValuePair(Of Integer, String) In dico
            MsgBox(el.Key.ToString & " " & el.Value)
        Next

Si tu peux faire sans ton paramètre fenetre dans le new (sinon tu peux aussi faire avec 2 paramètres : la fenêtre et le dico)
Tu passes directement le dico en paramètre de la form
Dans Form2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Sub New()
        InitializeComponent()
    End Sub
 
    Private LeDico As Dictionary(Of Integer, String)
    Sub New(ByRef UnDico As Dictionary(Of Integer, String))
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        LeDico = UnDico
        LeDico.Add(1, "by new")
    End Sub

Utilisation dans Form1

Code :

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

1
2
3
4
5
6
7
        Dim dico As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String)
        Dim f As Form2  = New Form2(dico)
        f.ShowDialog()
        ' Visu
        For Each el As KeyValuePair(Of Integer, String) In dico
            MsgBox(el.Key.ToString & " " & el.Value)
        Next

Ou


Avec ses 2 méthodes form2 n'est pas lié à form1 tu peux donc réutiliser ta form2 avec d'autres fenêtres.
A+, Hervé.

[infosam76]

Tout à fait d'accord avec rv26t, il y a plusieurs solutions pour ce soucis, à toi de choisir celle qui te convient le mieux

[patrickvier]

Bonjour,
et merci à vous 2 pour ce choix de solutions.
Je pense prendre la dernière qui me parait être la plus courte et simple.
Comme je vais surement avoir à traiter un "certain" volumes de données, il me faut du code simple et efficace, à moins que vous ayez une idée encore plus courte
Merci encore et bon dimanche.
Patrick

[patrickvier]

Re-bonjour,
Pour ceux que cela intéresse, j'ai trouvé une autre solution qui n'est surement pas aussi Pro que celles proposées, mais il semble qu'elle fonctionne aussi...
Dans ma Form2 :

Code :

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

1
2
3
4
5
6
7
8
9
 
Imports...
Public Class form2
    Dim UrlEncode As New CL_WebRequest
    Public mdico As New Dictionary(Of Integer, String)
    Private Sub Request1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Request1.LostFocus
        mdico.Add(1, UrlEncode.SearchEncode(Request1.Text))
    End Sub
etc... End Class

Dans Form1, lecture du dico :

Code :

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

1
2
3
4
5
6
7
 
Private Sub RechercheToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercheToolStripMenuItem.Click
        form2.ShowDialog(Me)
        If form2.DialogResult = DialogResult.OK Then
            MsgBox("  --  mondico : " & form2.mdico.Item(1))
        End If
    End Sub

Voila, j'espère que cela servira aussi à d'autre qui tâtonnent comme moi...
En revanche si vous voyez qlq chose qui cloche dans mon code et ma façon, merci de m'en faire part
Patrick