Acessibilité des variables tableaux DOTNET

whitelegend Messages postés 156 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 2 mars 2009 - 12 janv. 2009 à 10:25
whitelegend Messages postés 156 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 2 mars 2009 - 12 janv. 2009 à 16:24
Tout d'abord meilleurs vœux et heureuse année à vous communauté de VBFrance :)

Me revoilà avec un nouveau problème ... ^^

J'ai créé une classe contenant 3 string "NOM" , "CODE" et "ADRESSE"

Public Class SousTraitant
    Structure SousTraitant
        Public Nom As String
        Public code As Integer
        Public Adresse As String
    End Structure
End Class

Voila maintenant mon code :

Imports System.Xml
____________________________________________________________________________________
Public Class fmPrinc

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btQuitter.Click
        End
    End Sub
____________________________________________________________________________________
    Public Sub fmPrinc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\lstSST.XML")

        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("SST")

        Dim SST(element.Count) As SousTraitant.SousTraitant

        Dim i As Integer = 0
        Dim noeud, noeudEnf As XmlNode
        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = "NOM" Then
                    SST(i).Nom = noeudEnf.InnerText
                    cbNOM.Items.Add(SST(i).Nom)
                Else
                    If (noeudEnf.LocalName = "CODE") Then
                        SST(i).code = noeudEnf.InnerText
                    Else
                        If (noeudEnf.LocalName = "ADRESSEMAIL") Then
                            SST(i).Adresse = noeudEnf.InnerText
                        End If
                    End If
                End If
            Next noeudEnf
            i = i + 1
        Next noeud
    End Sub
____________________________________________________________________________________
    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        End
    End Sub
____________________________________________________________________________________
    Private Sub cbNOM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbNOM.SelectedIndexChanged

    End Sub
End Class
____________________________________________________________________________________

Mon problème est que dans cette dernière sub ( qui correspond à une combobox)  je n'arrive pas à accéder à mon tableau " SST()" ...

Je voudrais écrire "label1.text = SST(cbNOM.Items.Item).CODE" mais impossible d'acceder à ce SST() !

Voilà j'espère que vous pourrez m'aider :)

merci d'avance

LC

1 réponse

whitelegend Messages postés 156 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 2 mars 2009
12 janv. 2009 à 16:24
OYE OYE :)

Après des heures et des heures de recherches j'ai enfin trouvé ... et la solution est ... enfantine j'ai honte... je n'ai tout simplement pas déclaré mon tableau au bon endroit :p

Il le faut le déclarer en dehors d'un procédure sub.

Affaire réglé merci quand même à ceux qui auront lu :)

LC
0