VB.Net by API/System.Collections/ArrayList

Материал из VB Эксперт
Версия от 15:51, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

ArrayList.Add

<source lang="vbnet">

Imports System Imports System.Collections Public Class MainClass 

   Shared Sub Main()
      Dim empArray As New ArrayList(  )
      Dim intArray As New ArrayList(  )
      "populate the arraylists
      Dim i As Integer
      For i = 0 To 4
          empArray.Add(New Employee(i + 100))
          intArray.Add((i * 5))
      Next i
      "print each member of the array
      For Each i In intArray
          Console.Write("{0} ", i.ToString(  ))
      Next i
      Console.WriteLine(ControlChars.Lf)
      "print each employee
      Dim e As Employee
      For Each e In empArray
          Console.Write("{0} ", e.ToString(  ))
      Next e
      Console.WriteLine(ControlChars.Lf)
      Console.WriteLine("empArray.Capacity: {0}", empArray.Capacity)
  End Sub

End Class 

    Public Class Employee
        Private myEmpID As Integer
        Public Sub New(ByVal empID As Integer)
            Me.myEmpID = empID
        End Sub "New
        Public Overrides Function ToString(  ) As String
            Return myEmpID.ToString(  )
        End Function "ToString
        Public Property EmpID(  ) As Integer
            Get
                Return myEmpID
            End Get
            Set(ByVal Value As Integer)
                myEmpID = Value
            End Set
        End Property
    End Class "Employee
  
   
 </source>


ArrayList.Capacity

<source lang="vbnet">

Imports System Imports System.Collections Public Class MainClass 

   Shared Sub Main()
      Dim empArray As New ArrayList(  )
      Dim intArray As New ArrayList(  )
      "populate the arraylists
      Dim i As Integer
      For i = 0 To 4
          empArray.Add(New Employee(i + 100))
          intArray.Add((i * 5))
      Next i
      "print each member of the array
      For Each i In intArray
          Console.Write("{0} ", i.ToString(  ))
      Next i
      Console.WriteLine(ControlChars.Lf)
      "print each employee
      Dim e As Employee
      For Each e In empArray
          Console.Write("{0} ", e.ToString(  ))
      Next e
      Console.WriteLine(ControlChars.Lf)
      Console.WriteLine("empArray.Capacity: {0}", empArray.Capacity)
  End Sub

End Class 

    Public Class Employee
        Private myEmpID As Integer
        Public Sub New(ByVal empID As Integer)
            Me.myEmpID = empID
        End Sub "New
        Public Overrides Function ToString(  ) As String
            Return myEmpID.ToString(  )
        End Function "ToString
        Public Property EmpID(  ) As Integer
            Get
                Return myEmpID
            End Get
            Set(ByVal Value As Integer)
                myEmpID = Value
            End Set
        End Property
    End Class "Employee
  
   
 </source>


ArrayList.Contains

<source lang="vbnet">

Imports System Imports System.Collections Public Class MainClass 

  Public Shared Sub Main()
     Dim arrayList As arrayList = New arrayList(1)
     arrayList.Add("a")
     try
         Console.WriteLine(arrayList(0))
     Catch outOfRange As ArgumentOutOfRangeException
         Console.WriteLine(outOfRange.ToString())
     End Try
     Console.WriteLine(arrayList.Count)
     Console.WriteLine(arrayList.Contains("a"))
     
     Console.WriteLine(arrayList.IndexOf("a"))
     arrayList.Remove("a")
     arrayList.TrimToSize()
     Console.WriteLine(arrayList.Capacity)
     arrayList.Add("a")
     Dim enumerator As IEnumerator = arrayList.GetEnumerator()
     While enumerator.MoveNext()
        Console.WriteLine(enumerator.Current )
     End While 
  End Sub

End Class 


 </source>


ArrayList.Count

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass 

  Public Shared Sub Main()
     Dim arrayList As arrayList = New arrayList(1)
     arrayList.Add("a")
     try
         Console.WriteLine(arrayList(0))
     Catch outOfRange As ArgumentOutOfRangeException
         Console.WriteLine(outOfRange.ToString())
     End Try
     Console.WriteLine(arrayList.Count)
     Console.WriteLine(arrayList.Contains("a"))
     
     Console.WriteLine(arrayList.IndexOf("a"))
     arrayList.Remove("a")
     arrayList.TrimToSize()
     Console.WriteLine(arrayList.Capacity)
     arrayList.Add("a")
     Dim enumerator As IEnumerator = arrayList.GetEnumerator()
     While enumerator.MoveNext()
        Console.WriteLine(enumerator.Current )
     End While 
  End Sub

End Class 


 </source>


ArrayList.GetEnumerator

<source lang="vbnet">

Imports System Imports System.Collections Public Class MainClass 

  Public Shared Sub Main()
     Dim arrayList As arrayList = New arrayList(1)
     arrayList.Add("a")
     try
         Console.WriteLine(arrayList(0))
     Catch outOfRange As ArgumentOutOfRangeException
         Console.WriteLine(outOfRange.ToString())
     End Try
     Console.WriteLine(arrayList.Count)
     Console.WriteLine(arrayList.Contains("a"))
     
     Console.WriteLine(arrayList.IndexOf("a"))
     arrayList.Remove("a")
     arrayList.TrimToSize()
     Console.WriteLine(arrayList.Capacity)
     arrayList.Add("a")
     Dim enumerator As IEnumerator = arrayList.GetEnumerator()
     While enumerator.MoveNext()
        Console.WriteLine(enumerator.Current )
     End While 
  End Sub

End Class 


 </source>


ArrayList.IndexOf

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass 

  Public Shared Sub Main()
     Dim arrayList As arrayList = New arrayList(1)
     arrayList.Add("a")
     try
         Console.WriteLine(arrayList(0))
     Catch outOfRange As ArgumentOutOfRangeException
         Console.WriteLine(outOfRange.ToString())
     End Try
     Console.WriteLine(arrayList.Count)
     Console.WriteLine(arrayList.Contains("a"))
     
     Console.WriteLine(arrayList.IndexOf("a"))
     arrayList.Remove("a")
     arrayList.TrimToSize()
     Console.WriteLine(arrayList.Capacity)
     arrayList.Add("a")
     Dim enumerator As IEnumerator = arrayList.GetEnumerator()
     While enumerator.MoveNext()
        Console.WriteLine(enumerator.Current )
     End While 
  End Sub

End Class 


 </source>


ArrayList.Remove

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass 

  Public Shared Sub Main()
     Dim arrayList As arrayList = New arrayList(1)
     arrayList.Add("a")
     try
         Console.WriteLine(arrayList(0))
     Catch outOfRange As ArgumentOutOfRangeException
         Console.WriteLine(outOfRange.ToString())
     End Try
     Console.WriteLine(arrayList.Count)
     Console.WriteLine(arrayList.Contains("a"))
     
     Console.WriteLine(arrayList.IndexOf("a"))
     arrayList.Remove("a")
     arrayList.TrimToSize()
     Console.WriteLine(arrayList.Capacity)
     arrayList.Add("a")
     Dim enumerator As IEnumerator = arrayList.GetEnumerator()
     While enumerator.MoveNext()
        Console.WriteLine(enumerator.Current )
     End While 
  End Sub

End Class 


 </source>


ArrayList.ToArray()

<source lang="vbnet"> Imports System Imports System.Collections

Public Class MainClass 

   Shared Sub Main(ByVal args As String())
       Dim array_list As New ArrayList
       array_list.Add("A")
       array_list.Add("B")
       array_list.Add("C")
       " Array of objects.
       Dim obj_array() As Object
       obj_array = array_list.ToArray()
       " Array of strings.
       Dim string_array() As String
       string_array = DirectCast(array_list.ToArray(GetType(String)), String())
       " Array object of objects.
       Dim astring_array As Array
       astring_array = array_list.ToArray()

   End Sub

End Class 


 </source>


ArrayList.TrimToSize

<source lang="vbnet">

Imports System Imports System.Collections Public Class MainClass 

  Public Shared Sub Main()
     Dim arrayList As arrayList = New arrayList(1)
     arrayList.Add("a")
     try
         Console.WriteLine(arrayList(0))
     Catch outOfRange As ArgumentOutOfRangeException
         Console.WriteLine(outOfRange.ToString())
     End Try
     Console.WriteLine(arrayList.Count)
     Console.WriteLine(arrayList.Contains("a"))
     
     Console.WriteLine(arrayList.IndexOf("a"))
     arrayList.Remove("a")
     arrayList.TrimToSize()
     Console.WriteLine(arrayList.Capacity)
     arrayList.Add("a")
     Dim enumerator As IEnumerator = arrayList.GetEnumerator()
     While enumerator.MoveNext()
        Console.WriteLine(enumerator.Current )
     End While 
  End Sub

End Class 


 </source>
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Collections/ArrayList&oldid=2548»