Imports System.Collections
public class AddElementsToArrayLista
public Shared Sub Main
Dim alist1 As New ArrayList()
alist1.Add("Hello") 'Add a System.String
alist1.Add(714) 'Add a System.Int32
alist1.Add(New DateTime(2003, 1, 1)) 'Add a System.DateTime
alist1.Add(#1/1/2003#) 'Add a System.DateTime
alist1.Add(4.5) 'Add a System.Double
alist1.Add(4.5F) 'Add a System.Single
Dim o As Object
For Each o In alist1
Console.WriteLine(o & ": " & o.GetType().ToString())
Next
End Sub
End class
|