SetAll Method

BitArray.SetAll Method

Sets all bits in the BitArray to the specified value.

Namespace:  System.Collections
Assembly:  mscorlib (in mscorlib.dll)

'Declaration
Public Sub SetAll ( _
	value As Boolean _
)

Parameters

value
Type: System.Boolean
The Boolean value to assign to all bits.

This method is an O(n) operation, where n is Count.

The following code example shows how to set and get specific elements in a BitArray.


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



Silverlight

Supported in: 5, 4, 3

Silverlight for Windows Phone

Supported in: Windows Phone OS 7.1, Windows Phone OS 7.0

XNA Framework

Supported in: Xbox 360, Windows Phone OS 7.0

For a list of the operating systems and browsers that are supported by Silverlight, see Supported Operating Systems and Browsers.

Community Additions

ADD
Show:
© 2016 Microsoft