Ajouter un commentaire

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 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

Filtered HTML

Plain text

CAPTCHA
Cette question permet de vérifier que vous n'êtes pas un robot spammeur :-)
 N   N  ZZZZZ  TTTTTT  V     V   CCC 
NN N Z TT V V C
N N N Z TT V V C
N NN Z TT V V C
N N ZZZZZ TT V CCC