BitArray.SetAll Method

Imports System.Collections

Public Class Example

   Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)

      ' Creates and initializes a BitArray.
      Dim myBA As New BitArray(5)

      ' Displays the properties and values of the BitArray.
      outputBlock.Text &= "myBA values:" & vbCrLf
      PrintIndexAndValues(outputBlock, myBA)

      ' Sets all the elements to true.
      myBA.SetAll(True)

      ' Displays the properties and values of the BitArray.
      outputBlock.Text &= String.Format("After setting all elements to true,") & vbCrLf
      PrintIndexAndValues(outputBlock, myBA)

      ' Sets the last index to false.
      myBA.Set(myBA.Count - 1, False)

      ' Displays the properties and values of the BitArray.
      outputBlock.Text &= String.Format("After setting the last element to false,") & vbCrLf
      PrintIndexAndValues(outputBlock, myBA)

      ' Gets the value of the last two elements.
      outputBlock.Text &= "The last two elements are: " & vbCrLf
      outputBlock.Text &= String.Format("    at index {0} : {1}", _
         myBA.Count - 2, myBA.Get(myBA.Count - 2)) & vbCrLf
      outputBlock.Text &= String.Format("    at index {0} : {1}", _
         myBA.Count - 1, myBA.Get(myBA.Count - 1)) & vbCrLf
   End Sub 'Main

   Public Shared Sub PrintIndexAndValues(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal myCol As IEnumerable)
      Dim i As Integer
      Dim obj As Object
      i = 0
      For Each obj In myCol
         outputBlock.Text &= String.Format("    [{0}]:    {1}", i, obj) & vbCrLf
         i = i + 1
      Next obj
      outputBlock.Text &= vbCrLf
   End Sub 'PrintValues

End Class

' This code produces the following output.
' 
' myBA values:
'     [0]:    False
'     [1]:    False
'     [2]:    False
'     [3]:    False
'     [4]:    False
' 
' After setting all elements to true,
'     [0]:    True
'     [1]:    True
'     [2]:    True
'     [3]:    True
'     [4]:    True
' 
' After setting the last element to false,
'     [0]:    True
'     [1]:    True
'     [2]:    True
'     [3]:    True
'     [4]:    False
' 
' The last two elements are:
'     at index 3 : True
'     at index 4 : False