Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Copies BitArray to a compatible one-dimensional Array

Imports System Imports System.Collections Public Class SamplesBitArray     Public Shared Sub Main()         Dim myBA As New BitArray(4)         myBA(0) = True         myBA(1) = True         myBA(2) = True         myBA(3) = True         Dim myBoolArray(7) As Boolean         myBoolArray(0) = False         myBoolArray(1) = False         PrintValues(myBoolArray)         myBA.CopyTo(myBoolArray, 3)         PrintValues(myBoolArray)     End Sub 'Main     Public Shared Sub PrintValues(myArr As IEnumerable)         Dim obj As [Object]         For Each obj In  myArr             Console.Write("{0,8}", obj)         Next obj     End Sub  End Class