Hello,
En fait ton soucis vient du fait que tu déclarait voiture comme une structure et non comme une classe.
Ce site indique la différence entre les deux (je connaissais pas nn plus) :
http://www.startvbdotnet.com/oop/structure.aspx
Ce code la marche parfaitement:
Module Module1
Public Class voiture
Public marque, serie, couleur, cinacheteur, matricule, type As String
End Class
Dim voitures As New Collection
Sub Main()
Dim v1, v2, v3 As New voiture
v1.marque = "Mercedes"
v1.serie = "SLK"
v1.couleur = "Noir"
v1.matricule = "0001"
v1.type = "Essence"
voitures.Add(v1, v1.matricule)
v2.marque = "Volkswagen"
v2.serie = "TDI"
v2.couleur = "Vert"
v2.matricule = "0002"
v2.type = "Diesel"
voitures.Add(v2, v2.matricule)
v3.marque = "Porsh"
v3.serie = "Caenn"
v3.couleur = "Jaune"
v3.matricule = "0003"
v3.type = "Essence"
voitures.Add(v3, v3.matricule)
voitures.Item(3).marque = "aa"
Console.WriteLine(voitures.Item(3).marque)
Console.WriteLine("")
Console.Read()
End Sub
End Module
Par contre la seule inconnue encore, c'est le message d'erreur que tu avais, je l'ai reproduit mais c'est du chinois pour moi...
Bonne chance,
Niroken
Hello,
En fait ton soucis vient du fait que tu déclarait voiture comme une structure et non comme une classe.
Ce site indique la différence entre les deux (je connaissais pas nn plus) :
http://www.startvbdotnet.com/oop/structure.aspx
Ce code la marche parfaitement:
Module Module1 Public Class voiture Public marque, serie, couleur, cinacheteur, matricule, type As String End Class Dim voitures As New Collection Sub Main() Dim v1, v2, v3 As New voiture v1.marque = "Mercedes" v1.serie = "SLK" v1.couleur = "Noir" v1.matricule = "0001" v1.type = "Essence" voitures.Add(v1, v1.matricule) v2.marque = "Volkswagen" v2.serie = "TDI" v2.couleur = "Vert" v2.matricule = "0002" v2.type = "Diesel" voitures.Add(v2, v2.matricule) v3.marque = "Porsh" v3.serie = "Caenn" v3.couleur = "Jaune" v3.matricule = "0003" v3.type = "Essence" voitures.Add(v3, v3.matricule) voitures.Item(3).marque = "aa" Console.WriteLine(voitures.Item(3).marque) Console.WriteLine("") Console.Read() End Sub End ModulePar contre la seule inconnue encore, c'est le message d'erreur que tu avais, je l'ai reproduit mais c'est du chinois pour moi...
Bonne chance,
Niroken