Hallo,

ich habe ein Problem bei der Deklaration bzw. Wertzuweisung an ein Array Objekt.

Code Version 1

VB.NET-Quellcode

1. Dim CreateItemRequest_Attributes(1) As CoCreate.Attribute
2. CreateItemRequest_Attributes(0).name = "TEILENUMMER"
3. CreateItemRequest_Attributes(0).value = "123"
4. CreateItemRequest_Attributes(1).name = "BENENNUNG"
5. CreateItemRequest_Attributes(1).value = "abc"
6. CreateItemRequest_Item.attributes = CreateItemRequest_Attributes

Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt, ... Schlüsselwort "new". Aber das darf ich bei einem Array nicht.

Code Version 2

VB.NET-Quellcode

1. Dim CreateItemRequest_Attributes() As CoCreate.Attribute
2. CreateItemRequest_Attributes.name = {"TEILENUMMER", "BENENNUNG"}
3. CreateItemRequest_Attributes.value = {"123", "abc"}
4. CreateItemRequest_Item.attributes = CreateItemRequest_Attributes

Fehler: "name" ist kein Member von "System.Array".

Code Version 3

VB.NET-Quellcode

1. Dim CreateItemRequest_Attributes As CoCreate.Attribute
2. CreateItemRequest_Attributes.name = "TEILENUMMER"
3. CreateItemRequest_Attributes.value = "123"
4. CreateItemRequest_Item.attributes = CreateItemRequest_Attributes

Fehler: Der Wert ... kann nicht in 1-dimesionales Array konvertriert werden.

Bitte um Eure Unterstützung. Ich blicke da nicht mehr durch.

Danke,

Wolfgang

Hier der Aufruf der Funktion die ich benötige und Auszüge aus den Klassen.

VB.NET-Quellcode

1. Partial Public Class CreateItemRequest
2. Inherits ServiceRequest
3. Private itemsField() As Item
5. Partial Public Class Item
6. Inherits Object
7. Implements System.ComponentModel.INotifyPropertyChanged
8. Private attributesField() As Attribute
9. Private classNameField As String
11. '''<remarks/>
12. <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true, Order:=0)> _
13. Public Property attributes() As Attribute()
14. Get
15. Return Me.attributesField
16. End Get
17. Set
18. Me.attributesField = value
19. Me.RaisePropertyChanged("attributes")
20. End Set
21. End Property
23. Partial Public Class Attribute
24. Inherits Object
25. Implements System.ComponentModel.INotifyPropertyChanged
26. Private nameField As String
27. Private valueField As String
28. '''<remarks/>
29. <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true, Order:=4)> _
30. Public Property name() As String
31. Get
32. Return Me.nameField
33. End Get
34. Set
35. Me.nameField = value
36. Me.RaisePropertyChanged("name")
37. End Set
38. End Property
40. '''<remarks/>
41. <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true, Order:=7)> _
42. Public Property value() As String
43. Get
44. Return Me.valueField
45. End Get
46. Set
47. Me.valueField = value
48. Me.RaisePropertyChanged("value")
49. End Set
50. End Property

Danke, das habe ich schon versucht, aber Array's können nicht mit "New" deklariert werden. Zumindest behauptet das VB.

Sobald ich in die Zeile Dim CreateItemRequest_Attributes(1) As CoCreate.Attribute das New Einfüge kann ich den Code nicht mehr ausführen. Auch nicht wenn ich die Zeile CreateItemRequest_Item.attributes = CreateItemRequest_Attributes auskommentiere.

CreateItemRequest_Item.className ist nicht "Nothing", denn CreateItemRequest_Item.className kann ich einen Wert zuweisen.

CoCreate habe ich als Name für eine "Service Reference" vergeben die ich über Projekt => Dienstverweis hinzufügen erstellt habe. Die Definition der Klassen CreateItemRequest, Item und Attribute stehen auszugsweise in meiner Frage.

Hier noch der aktuelle Code der Funktion die mich zur Verzweiflung treibt.

In der Klasse steht "Private attributesField() As Attribute", also für mich schaut das schon nach dem Array aus.