Export (0) Print
Expand All

BitArray.Set Method

Sets the bit at a specific position in the BitArray to the specified value.

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

'Declaration
Public Sub Set ( _
	index As Integer, _
	value As Boolean _
)

Parameters

index
Type: System.Int32
The zero-based index of the bit to set.
value
Type: System.Boolean
The Boolean value to assign to the bit.

ExceptionCondition
ArgumentOutOfRangeException

index is less than zero.

-or-

index is greater than or equal to the number of elements in the BitArray.

This method is an O(1) operation.

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:
© 2015 Microsoft