' A reusable function that merges two ArrayList objects' Example:' Dim al As New ArrayList()' al.Add("Jack")' al.Add("Mary")' val.Add("Bob")' al.Add("Tom")' ' Dim al2 As New ArrayList()' al2.Add("Frank")' al2.Add("Lee")' al2.Add("Nick")' ' al = ArrayListJoin(al, al2)Function ArrayListJoin(ByVal al1 As ArrayList, ByVal al2 As ArrayList) As _ ArrayList ' Note how we avoid time-consuming reallocations. ArrayListJoin = New ArrayList(al1.Count + al2.Count) ' Append the items in the two ArrayList arguments. ArrayListJoin.AddRange(al1) ArrayListJoin.AddRange(al2)End Function' Note: this code is taken from Francesco Balena's "Programming Microsoft ' Visual Basic .NET" book (MS Press 2002)
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
