Array Objekte ?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von w.stoellinger.

    Array Objekte ?

    Hallo,

    ich habe ein Verständnisproblem mit Array Objekten bzw. Vererbung.

    Folgender Code funktioniert einwandfrei, wird aber bei mehreren Attribut-Objekten schnell sehr unübersichtlich.

    VB.NET-Quellcode

    1. Dim AttributeArray(1) As CoCreate.Attribute
    2. Dim Attribute1 AsNew CoCreate.Attribute()
    3. Dim Attribute2 AsNew CoCreate.Attribute()
    4. Attribute1.name = "NAME"
    5. Attribute1.value = "123"
    6. AttributeArray(0) = Attribute1
    7. Attribute2.name = "BESCHREIBUNG"
    8. Attribute2.value = "abc"
    9. AttributeArray(1) = Attribute2
    10. Item.attributes = AttributeArray


    Ich habe daher versucht die Zuweisung der Werte an die Attribut Objekte in einer Schleife zu programmieren.

    VB.NET-Quellcode

    1. Dim Attribute_Array(10) As CoCreate.Attribute
    2. Dim Attribute AsNew CoCreate.Attribute()
    3. DoWhile (i < 10)
    4. Attribute.name = ("Name-" + i.ToString)
    5. Attribute.value = ("Value-" + i.ToString)
    6. AttributeArray(i) = Attribute
    7. i = i + 1
    8. Loop
    9. Item.attributes = AttributeArray


    Leider ohne Erfolg da es sich immer um das selbe Objekt handet das ich dem Array-Objekt zuweise und damit immer die letzte Wertzuweisung gewinnt. Als Neuling in objektorientierter Programmierung mache ich da sicher was grundlegend falsch und bin für jeden Tipp dankbar.


    Danke,
    Wolfgang

    Hast du bei AttributeArray(i) = Attribute den Unterstrich vergesssen?
    Außerdem mußt du INNERHALB der Schleife der Variable Attribute mit Attribute = New Cocreate.Attribute eine neue Instanz zuweisen. Sonst hast du tatsächlich ein einziges Objekt der Klasse Cocr.Attr, dessen Referenz du an alle Arraypositionen zuweist. Damit hat der letzte Eintrag gewonnen :)
    Fiel Fergnügen

    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Danke jetzt läufts! Hier der getestete Aufruf der CoCreate WebService Funktion "createItem", vielleicht kann sie ja mal jemand brauchen.

    VB.NET-Quellcode

    1. Public Function createItem() As String
    2. Dim ExceptionMessage As String
    4. Dim OSMServiceClient As New CoCreate.OSMServiceClient()
    5. OSMServiceClient.ClientCredentials.UserName.UserName = Benutzername
    6. OSMServiceClient.ClientCredentials.UserName.Password = Passwort
    8. Dim CreateItemRequest As New CoCreate.CreateItemRequest()
    9. Dim CreateItemResponse As New CoCreate.CreateItemResponse()
    11. Dim Item As New CoCreate.Item
    12. Dim ItemArray(0) As CoCreate.Item
    14. Item.className = "STAMMDATEN"
    16. Dim i As Integer = 0
    17. Dim AnzahlAttribute As Integer = 1
    18. Dim AttributTabelle(1, 1) As String
    19. AttributTabelle(0, 0) = "NAME"
    20. AttributTabelle(0, 1) = "123"
    21. AttributTabelle(1, 0) = "BESCHREIBUNG"
    22. AttributTabelle(1, 1) = "abc"
    24. Dim Attribute_Array(AnzahlAttribute) As CoCreate.Attribute
    25. Do While (i <= AnzahlAttribute)
    26. Dim Attribute As New CoCreate.Attribute()
    27. Attribute.name = AttributTabelle(i, 0)
    28. Attribute.value = AttributTabelle(i, 1)
    29. Attribute_Array(i) = Attribute
    30. i = i + 1
    31. Loop
    32. Item.attributes = Attribute_Array
    33. ItemArray(0) = Item
    34. CreateItemRequest.items = ItemArray
    36. Try
    37. CreateItemResponse = OSMServiceClient.createItem(CreateItemRequest)
    38. Return "createItem"
    39. Catch ex As Exception
    40. ExceptionMessage = (ex.Message)
    41. Return ExceptionMessage
    42. End Try
    43. End Function

Facebook
Telefonspende