[VB.NET] TreeView con 2 valori differenti !!!

[race2]

Salve!

Vorrei assegnare ad un "TreeView" 2 valori differenti estratti da una
tabella di un Database, tipo:

"ID_Articolo" e "Articolo"

in modio da visualizzare nei nodi il campo "Articolo", ma poi cliccando nel
nodo estrarre il valore del campo "ID_Articolo", in modo da poterci fare
delle QUERY con quell' ID_Articolo.

Private Sub TreeView1_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TreeView1.DoubleClick

MsgBox(TreeView1.SelectedNode.Text)

End Sub



E' possibile assegnare 2 valori differenti ad un nodo ??? e poi estrarli ???
se si come ???

[race2]

Come posso aggiustare questo codice ???
Mi hanno dato una mano fino a qui'
, mica ci si puo' fare qualcosa qui ???

 
Private oConn As New SqlConnection("Data Source=127.0.0.1,1433; Network Library=DBMSSOCN; Initial Catalog=Web_Monster; User ID=sa; Password=;") 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

Dim myNode As New MyNode() 

TreeView1.BeginUpdate() 
TreeView1.Nodes.Clear() 

oConn.Open() 
Dim oComm As New SqlCommand("SELECT ID_Pratica FROM Pratiche ORDER BY ID_Pratica ASC", oConn) 
Dim oRead As SqlDataReader = oComm.ExecuteReader 
While oRead.Read() 
myNode.myProp1 = oRead("ID_Pratica") 
TreeView1.Nodes.Add("Pratica N. " & myNode.myProp1) 

End While 
oConn.Close() 

TreeView1.EndUpdate() 

End Sub 

Public Class MyNode : Inherits TreeNode 
Public myProp1, MyProp2, MyProp3 As String 
End Class 

Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect 
Dim Node As MyNode = DirectCast(TreeView1.SelectedNode, MyNode) 
Dim s As String = Node.myProp1 
MsgBox(s) 
End Sub

[race2]

Eccolo finalmente funziona tutto !!!!!!!

Solamente che non riesco a estrarre i valori contenuti nelle proprieta' delle classi in base al Nodo cliccato.

    Private sConn As String = "Data Source=127.0.0.1,1433; Network Library=DBMSSOCN; Initial Catalog=Web_Monster; User ID=sa; Password=;"
    Private oConn As New SqlConnection(sConn)
    Private oConn1 As New SqlConnection(sConn)
    Private oConn2 As New SqlConnection(sConn)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim n1 As TreeNode
        Dim n2 As TreeNode
        Dim n3 As TreeNode

        TreeView1.BeginUpdate()
        TreeView1.Nodes.Clear()

        '-- estrazione Pratiche inizio
        oConn.Open()
        Dim oComm As New SqlCommand("SELECT ID_Pratica FROM Pratiche ORDER BY ID_Pratica ASC", oConn)
        Dim oRead As SqlDataReader = oComm.ExecuteReader
        While oRead.Read()
            Dim myNodePratiche As New NodoPratiche
            myNodePratiche.Label = "Pratica"
            myNodePratiche.ID_Pratiche = oRead("ID_Pratica")
            n1 = TreeView1.Nodes.Add(myNodePratiche.Label & "_" & myNodePratiche.ID_Pratiche)

            '-- estrazione Url inizio
            oConn1.Open()
            Dim oComm1 As New SqlCommand("SELECT ID_Url,Url FROM Url WHERE ID_Pratica=" & oRead("ID_Pratica") & "", oConn1)
            Dim oRead1 As SqlDataReader = oComm1.ExecuteReader
            While oRead1.Read()
                Dim nodeUrl As New NodoUrl
                nodeUrl.ID_Url = oRead1("ID_Url")
                nodeUrl.Url = oRead1("Url")
                n2 = n1.Nodes.Add(nodeUrl.Url)

                '-- estrazione Email inizio
                oConn2.Open()
                Dim oComm2 As New SqlCommand("SELECT ID_Email,Email FROM Email WHERE ID_Pratica=" & oRead("ID_Pratica") & " AND ID_Url=" & oRead1("ID_Url") & "", oConn2)
                Dim oRead2 As SqlDataReader = oComm2.ExecuteReader
                While oRead2.Read()
                    Dim nodeEmail As New NodoEmail
                    nodeEmail.ID_Email = oRead2("ID_Email")
                    nodeEmail.Email = oRead2("Email")
                    n3 = n2.Nodes.Add(nodeEmail.Email)
                End While
                oConn2.Close()

            End While
            oConn1.Close()

        End While
        oConn.Close()

        TreeView1.EndUpdate()
    End Sub

    Public Class NodoPratiche
        Public ID_Pratiche, Label As String
    End Class

    Public Class NodoUrl
        Public ID_Url, Url As String
    End Class

    Public Class NodoEmail
        Public ID_Email, Email As String
    End Class

    Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand
        MsgBox("qui' vorrei visualizzare il valore di una proprieta' della classe in base al nodo cliccato")
    End Sub

il mio problema e' estrarre dalla classe un dato es:

da "Public Class NodoPratiche " vorrei estrarre il contenuto di "ID_Pratiche"
che contiene l'ID:Pratica del Nodo cliccato,

come posso fare ad estrarlo ???

io faccio questo:

Dim x As NodoPratiche
Dim y As Integer = x.ID_Pratiche
MsgBox(y)

e mi da :

 Riferimento a un oggetto non impostato su un'istanza di oggetto.

perche nonmi stampa l'ID_Pratiche selezionato con il click nel Nodo ???