Discussion :

[Mickou35]

Bonjour,

Au lancement de mon programme, je remplie un dictionnaire initialisé de la façon suivante

Code :

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

1
2
3
4
5
Dim dico As New Dictionary(Of String, String)
 
dico.Add("mickael", "46")
dico.Add("christophe", "48")
'....

et je peux accèder aux valeurs comme cela

Code :

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

Debug.Print(dico.Item("mickael"))

resultat 46

tout va bien au sein du module lui même

Comment faire pour accèder au dictionnaire depuis un autre module ?
J'ai tenté ceci sans effet

Code :

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

Public dico As Object

Merci de votre aide :-)

[nicolast]

Bonjour,

Si dans ton premier module tu déclares une variable publique :

Code :

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

Public dico As New Dictionary(Of String, String)

et que tu la remplisses dans le Sub (ou autre) qui est appelé au lancement de ton programme. Tu dois pouvoir l'appeler depuis un autre module en faisant :

Code :

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

Debug.Print(nomdupremiermodule.dico.Item("mickael"))

voir directement

Code :

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

Debug.Print(dico.Item("mickael"))

En espérant ne pas dire de bêtise :S

[jopopmk]

Salut,

VB.NET c'est pas trop mon truc, mais ça doit ressembler à un truc comac :

Code :

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

1
2
3
4
' le module avec un entier en global
Module MyModule
    Public MyGlobal As Integer = 123
End Module

Code :

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

1
2
3
4
5
6
' le module qui utilise la globale de l'autre module
Module OtherModule
    Public Function SomeAdd(val as Integer) As Integer
        return (MyModule.MyGlobal + val)
    End Function
End Module

[MABROUKI]

bonjour

Une autre façon plus expéditive est de déclarer ce module (celui du dictionnary )comme Public
Le code de l' "ubiquitous" (omnipresent) module est donné ci-après:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
' "ubiquitous"
Public Module Module1
    Public dico As New Dictionary(Of String, String)
End Module
 
 
'  module non public 
Module Module2
    Public Sub SomeAdd(ByVal key As String, ByVal value As String)
        dico.Add(key, value)
    End Sub
End Module

et le form:

Code :

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

1
2
3
4
5
6
7
8
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        dico.Add("k1", "boho")
    End Sub
End Class

bon code...