Transfert d'un objet Dico de form à form

Version imprimable

28/04/2013, 02h47
patrickvier

Transfert d'un objet Dico de form à form

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

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:

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:

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

Bonjour,
D'autre solutions,

:fleche: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:

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:

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

:fleche: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:

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:

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é.

28/04/2013, 13h55
infosam76

Tout à fait d'accord avec rv26t, il y a plusieurs solutions pour ce soucis, à toi de choisir celle qui te convient le mieux
28/04/2013, 16h05
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

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:

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:

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