whitelegend
Messages postés156Date d'inscriptionvendredi 13 janvier 2006StatutMembreDernière intervention 2 mars 2009
-
12 janv. 2009 à 10:25
whitelegend
Messages postés156Date d'inscriptionvendredi 13 janvier 2006StatutMembreDerniè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() !
whitelegend
Messages postés156Date d'inscriptionvendredi 13 janvier 2006StatutMembreDerniè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 :)