Collection og max size

Ahhhhh.. Kan det nu or pas!!

Hvad er det der sker, der gør at du tror du ikke kan smide mere end 256 ind i denne collection??? Kommer der en fejl eller hva!!

Har selv lige prøvet med følgende kode, der virker uden problemer

Private Sub Form_Load()
  Dim a As New Collection
  Dim i As Integer
  Dim var As Variant
  Dim x As Collection
 
  For i = 0 To 3000
    Set x = New Collection
    x.Add i
    a.Add x
  Next i
 
  For Each var In a
    Debug.Print var(1)
  Next
 
 
 
End Sub


//Nolle_K

Hmm.... nae, nej, det var mig der blev bange over mit "Locals" vinduet, da det af en eller anden grund kun viser optil 256. Jeg troede ikke at collectionen var laengere... men det er den kan jeg se. Selv dit eks. viser kun 256 i "Locals" vinduet. Men der er altsaa flere i

nolle lige inden du modtager dine point. Jeg er lige startet paa VB, og har undret mig over de to ting man erklarer under parametrene i et functions kald: ByRef og ByVal. Hvad betyder disse.

ByVal betyder at du overfører en parameter til en funktion som en værdi(en kopi af variablen) ByVal betyder at du i praksis overfører en reference til din variabel til funktionen.

Kedde

Den sidste skulle selvfølgelig være ByRef ;-))

Kig på dette lille eksempel, det skulle forklare meningen ;-)

Private Sub Command1_Click()
    Dim j As Integer
    j = 0
    Debug.Print j
    tmp1 j
    Debug.Print j
    tmp2 j
    Debug.Print j
End Sub
Public Function tmp1(ByVal i As Integer)
    i = i + 1
End Function
Public Function tmp2(ByRef i As Integer)
    i = i + 1
End Function

Iøvrigt skal du være opmærksom på at hvis du ikke skriver noget så overføres parametre ByRef.

Kedde

Hmmmm!!! Man undres!! Egentlig var det jo mig, der svarede eller redegjorde for problemet men en anden svarer på et andet spørgsmålene og får pointene!!! Hmmmmmmmmmmm.....