Class array

dim i
dim objs(10) as MyObject

for i = lbound(objs) to ubound(objs)
  set objs(i) = new MyObject
next

'-- Hent object 3 og udfør en procedure

objs(2).DoYourStuff

Mvh

Okay. Men hvis jeg erstatter 10'tallet i sætningen: dim objs(10) as MyObject
med en integer variabel får jeg fejlen: constant expression required. Problemet er at jeg ikke ved hvor mange obbjekter der bliver oprettet. Hvordan kan man løse det?

Ups. Måske misforstod jeg noget. prøver lige koden af.

Du kan jo evt. pruge Collection objektet.

Nedenstående kode skulle gerne give et lille indblik i hvordan Collection bruges.

--

Private Objs as New Collection

Private Sub Main
  ' Opret to nye Classes af typen MyClass
  Dim newClsA as New MyClass
  Dim newClsB as New MyClass
  ' Tildel værdier til den første Class
  newClsA.Navn = "Test 1"
  newClsA.Tekst = "Dette er en lille test"
  ' Tildel værdier til den anden Class
  newClsB.Navn = "Test 2"
  newClsB.Tekst = "Dette er endnu lille test"
  ' Gem de to Classes i "samlingen" ved navn Objs
  Objs.Add newClsA, newClsA.Navn
  Objs.Add newClsB, newClsB.Navn

  ' Udskriv alle Classes
  Dim i As Double
  For i = 1 to Objs.Count
    Debug.Print Objs.Item("Test 1").Navn & " = " & Objs.Item("Test 1").Tekst
  Next i
End Sub

--

Med venlig hilsen
Internørden WinKill

Måske kan du benytte ReDim til at ændre dimensionen af dit array. Jeg ved dog ikke lige om det virker med objecter...

Redim objs(MitNyeAntal)

Mvh

Baunsgaard > Selvfølgeligt virker det.

Ikke sikkert. Jeg kan ikke få VB til det, men det behøver selv. ikke være ensbetydende med at det ikke kan.
Med Baunsgaard's første svar virkede fint nok. Bare mig der havde misforstået noget. Takker