BitArray.Set Method
[ This article is for Windows Phone 8 developers. If you’re developing for Windows 10, see the latest documentation. ]
Sets the bit at a specific position in the BitArray to the specified value.
Assembly: mscorlib (in mscorlib.dll)
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.
| Exception | Condition |
|---|---|
| ArgumentOutOfRangeException | index is less than zero. -or- index is greater than or equal to the number of elements in the BitArray. |
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
Show: