Récupérer un objet de winform1 dans winform2

Bonjour tout le monde
Voici mon probleme :
je possede un hashtable d'objets declarée dans winform1 comme propriete :

Code:

---

Friend shared autorisations as new Hashtable

---

Cette hashtable contient des objets de type Autorisation( ID, Value)
dont la clé de chaque element Autorisation est ID.

les clés du hashtable sont visibles via une liste, quand l'utilisateur selectionne un ID, un nouveau winform2 modal s'ouvre.

en recuperant l'ID ( je le stocke dans une variable que je passe aussi a winform2) selectionné ainsi que HashTable autorisations dans winform2 je n'arrive pas a afficher Value de l'element selectionné à partir de ma Hashtable

Je stocke l'ID dans une variable que je passe aussi a winform2)

Code:

---

1 2	friend ID as integer '( variable de winform1) ID = list.selectedValue

---

voici comment je recupere hashtable et l'ID selectionné dans winform2:

Code:

---

1 2 3

Dim ID2 as integer = winform1.ID Dim autorisations2 as new HashTable autorisations2 = winform1.autorisations

---

en essayant d'afficher la valeur de l'ID recuperer :

Code:

---

lbl_value.Text = autorisations2(ID2).Value

---

j'obtient le fameux message :

Citation:

---

NullReferenceException :
La référence d'objet n'est pas définie à une instance d'un objet

---

Merci de m'aider à regler mon probleme.

Code:

---

1 2 3 4 5 6 7

if autorisations2 is nothing then msgbox ("y a un truc qui cloche") end if   if not autorisations2.contains(id2) then msgbox ("j'ai du rater un truc, et je programme en pensant que ca être bon mais sans vérifier à l'exécution") end if

---

et au passage, le new sert à instancier

Code:

---

1 2	Dim autorisations2 as new HashTable autorisations2 = winform1.autorisations

---

ici ca ne sert à rien d'instancier un new hashtable pour le mettre dans autorisations2 sachant que tu le recouvres pas une autre valeur

=>

Code:

---

1 2	Dim autorisations2 as HashTable autorisations2 = winform1.autorisations

---

Citation:

---

Envoyé par Pol63

Code:

---

1 2 3 4 5 6 7

if autorisations2 is nothing then msgbox ("y a un truc qui cloche") end if   if not autorisations2.contains(id2) then msgbox ("j'ai du rater un truc, et je programme en pensant que ca être bon mais sans vérifier à l'exécution") end if

---

et au passage, le new sert à instancier

Code:

---

1 2	Dim autorisations2 as new HashTable autorisations2 = winform1.autorisations

---

ici ca ne sert à rien d'instancier un new hashtable pour le mettre dans autorisations2 sachant que tu le recouvres pas une autre valeur

=>

Code:

---

1 2	Dim autorisations2 as HashTable autorisations2 = winform1.autorisations

---

---

Merci d'avoir repondu,
la valeur n'est pas recuprée si je fais le test que t'as mis

je fais quoi alors :( ???

si tu n'as d'add pas l'élément dans la collection il n'y est pas ...

Citation:

---

Envoyé par Pol63

si tu n'as d'add pas l'élément dans la collection il n'y est pas ...

---

je te comprends bien, mais en parcourant la hashtable avec for each
j'arrive a recuperer toutes les valeurs ...

as tu une solution plus pratique ?

non
et je ne connais pas trop le hashtable, pourquoi as tu besoin d'un hashtable ?

Citation:

---

Envoyé par Pol63

non
et je ne connais pas trop le hashtable, pourquoi as tu besoin d'un hashtable ?

---

j'ai simplié l'objet autorisation dans le but de facilité la comprehesion du probleme

puisque tu veux le savoir :

l'objet Autorisation comporte un ID, val1, val2 et liste d'objets de type Ligne(id _ligne, destination, designation... + liste d'Objets localite (id, heure depart, heure d'arrivée ) )
le recours un hashtable me facilite l'acces direct au contenu de l'objet Autorisation et donc de le modifier au cas ou existe sinon de l'ajouter sinon.

chaque liste d'objet a sa propore interface graphique, et grace à la clé de la table je peux acceder directement a l'objet desiré

au final, le traitement a faire doit etre effectuer a l'ensemble des objets sinon rien ne passera

je viens de regarder le hashtable, quand j'ai besoin d'un truc dans le genre je prend un collections.generics.dictionary(of T, T)
ca permet de choisir le type de la clé et le type des objets

au passage j'ai fait le test que je craignais:

Code:

---

1 2 3 4 5 6 7 8 9

Dim d As Integer = 2 Dim d2 As Long = 2   Dim h As New Hashtable h.Add(d, Nothing) If Not h.Contains(d2) Then MsgBox("non") End If

---

avec ce code le messagebox s'affiche, certes 2=2 mais ils n'ont pas le même type


après je ne vais pas pouvoir t'aider plus, on a que 4 pauvres lignes de code ...