[ASP-VBScript] Array Classetypes

[Darkvater]

Ik wil graag het volgende willen doen bijvoorbeeld:

code:

A.user(0).id , A.user(1).id , A.user(0).name

Dus ik heb een hoofdclasse A, met daarin een variabele van een bepaalde type in arrayvorm.

Ik heb VBScript tot nu toe niet zover kunnen brengen dat ik een array-variabele aan kan maken van een niet simpele type

code:

  class a
    public aa
    public ab
  end class
  
  class b
    public sub hallo
      set bb = new a
      bb(0).aa = "aa"
      bb(0).ab = "ab"
      response.write(bb(0).aa & " end<p>")
      response.write(bb(0).ab & " end<p>")
    end sub
  
    private bb
  end class

Dit werkt duidelijk niet, krijg foutmelding: Object doesn't support this property or method: 'bb'
Probeer ik dan ReDim:

code:

      set bb = new a
      redim bb(10)
      bb(0).aa = "aa"

Object required: ''
Of een normale array van type A aanmaken:

code:

      set bb(10) = new a
      bb(0).aa = "aa"

Type mismatch: 'bb'

Hoe de hell moet het dan? Ik heb er echt al een heleboel gezocht maar nergens gevonden.

[ Voor 12% gewijzigd door Darkvater op 20-04-2004 14:12 ]

[Darkvater]

Ik wil dus ipv een array van ints een array van een ander, custom datatype.

Hierbij ook een schaamteloze kick

[Gert]

Volgens mij zit je in de knoop met wat de array is, wat het object en wat je nou waar in moet stoppen.

ASP:

  Class MyClass
        Private strNick
        
        Public Property Let Nick(newNick)
               strNick = newNick
        End Property
        
        Public Property Get Nick
               Nick = strNick
        End Property
  End Class

  Dim arrClass(2)
  
  Set arrClass(0) = New MyClass
  arrClass(0).Nick = "kees"
  Set arrClass(1) = New MyClass
  arrClass(1).Nick = "Piet"
  Set arrClass(2) = New MyClass
  arrClass(2).Nick = "Jan"

  Dim x
  For x = 0 To UBound(arrClass)
      Response.Write arrClass(x).Nick & "<br />"
  Next

Dit werkt gewoon, een array met MyClass objecten.

[Darkvater]

Gert schreef op 22 april 2004 @ 13:12:
Volgens mij zit je in de knoop met wat de array is, wat het object en wat je nou waar in moet stoppen.

ASP:

  Class MyClass
        Private strNick
        
        Public Property Let Nick(newNick)
               strNick = newNick
        End Property
        
        Public Property Get Nick
               Nick = strNick
        End Property
  End Class

  Dim arrClass(2)
  
  Set arrClass(0) = New MyClass
  arrClass(0).Nick = "kees"
  Set arrClass(1) = New MyClass
  arrClass(1).Nick = "Piet"
  Set arrClass(2) = New MyClass
  arrClass(2).Nick = "Jan"

  Dim x
  For x = 0 To UBound(arrClass)
      Response.Write arrClass(x).Nick & "<br />"
  Next

Dit werkt gewoon, een array met MyClass objecten.

Een duizendmaal dank . Het is eigenlijk heel logisch hoe je het zei...maar soms kom je er gewoon niet op