ساختن arraylist در VB6

[m_mx2009]

سلام به همگی دوستان...
میخوام بدونم آیا تو VB6 چیزی به اسم Arraylist وجود داره یا نه؟....
تو #C همچین چیزی هست...
یه آرایه که تعداد اندیسشو نمیدونیم....
یعنی هر لحظه یکی به تعداد اندیس هاش اضافه میشه....
اگه به طور پیش فزض در VB6 وجود نداره...میشه اونو ساخت؟
اگه میشه لطفا راهنمایی کنین..
مرسی

 

[the_king]

سلام به همگی دوستان...
میخوام بدونم آیا تو VB6 چیزی به اسم Arraylist وجود داره یا نه؟....
تو #C همچین چیزی هست...
یه آرایه که تعداد اندیسشو نمیدونیم....
یعنی هر لحظه یکی به تعداد اندیس هاش اضافه میشه....
اگه به طور پیش فزض در VB6 وجود نداره...میشه اونو ساخت؟
اگه میشه لطفا راهنمایی کنین..
مرسی

همچین چیزی نداره، Collection هست اما کاربرد اش خیلی محدوده.
میشه یک کلاس ArrayList نوشت، Show رو برای تست کردن کلاس اضافه کردم :

    Dim a1 As New ArrayList
    Dim a2 As ArrayList
    Dim arr() As Variant
    Dim x As Long
    a1.Add "a"
    a1.Add 2
    arr = Array(3, "four", 5)
    a1.AddRange arr
    a1.Show
    x = a1.Capacity
    Set a2 = a1.Clone()
    MsgBox a1.Contains(3)
    a1.Clear
    MsgBox a1.Contains(3)
    ReDim arr(0 To a2.Count)
    a2.CopyTo 0, arr, 0, a2.Count
    x = a1.Count
    x = a2.IndexOf("four")
    arr = Array("w", "y", "z", "z")
    a1.InsertRange 0, arr
    a1.Insert 1, "x"
    MsgBox a1.Item(1)
    x = a1.LastIndexOf("z")
    a1.Remove "y"
    a1.RemoveAt 0
    a2.RemoveRange 0, 2
    a1.Reverse
    a1.Show
    a2.Show

ArrayList.zip