VB.NET BitVector32.Equals方法代码示例

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

本文整理汇总了VB.NET中System.Collections.Specialized.BitVector32.Equals方法的典型用法代码示例。如果您正苦于以下问题：VB.NET BitVector32.Equals方法的具体用法？VB.NET BitVector32.Equals怎么用？VB.NET BitVector32.Equals使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Collections.Specialized.BitVector32的用法示例。

在下文中一共展示了BitVector32.Equals方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于我们的系统推荐出更棒的VB.NET代码示例。

示例1: SamplesBitVector32

' 导入命名空间
Imports System.Collections.Specialized


Public Class SamplesBitVector32

   Public Shared Sub Main()
      
      ' Creates and initializes a BitVector32 with the value 123.
      ' This is the BitVector32 that will be compared to different types.
      Dim myBV As New BitVector32(123)
      
      ' Creates and initializes a new BitVector32 which will be set up as sections.
      Dim myBVsect As New BitVector32(0)
      
      ' Compares myBV and myBVsect.
      Console.WriteLine("myBV                 : {0}", myBV.ToString())
      Console.WriteLine("myBVsect             : {0}", myBVsect.ToString())
      If myBV.Equals(myBVsect) Then
         Console.WriteLine("   myBV({0}) equals myBVsect({1}).", myBV.Data, myBVsect.Data)
      Else
         Console.WriteLine("   myBV({0}) does not equal myBVsect({1}).", myBV.Data, myBVsect.Data)
      End If
      Console.WriteLine()
      
      ' Assigns values to the sections of myBVsect.
      Dim mySect1 As BitVector32.Section = BitVector32.CreateSection(5)
      Dim mySect2 As BitVector32.Section = BitVector32.CreateSection(1, mySect1)
      Dim mySect3 As BitVector32.Section = BitVector32.CreateSection(20, mySect2)
      myBVsect(mySect1) = 3
      myBVsect(mySect2) = 1
      myBVsect(mySect3) = 7
      
      ' Compares myBV and myBVsect.
      Console.WriteLine("myBV                 : {0}", myBV.ToString())
      Console.WriteLine("myBVsect with values : {0}", myBVsect.ToString())
      If myBV.Equals(myBVsect) Then
         Console.WriteLine("   myBV({0}) equals myBVsect({1}).", myBV.Data, myBVsect.Data)
      Else
         Console.WriteLine("   myBV({0}) does not equal myBVsect({1}).", myBV.Data, myBVsect.Data)
      End If
      Console.WriteLine()
      
      ' Compare myBV with an Int32.
      Console.WriteLine("Comparing myBV with an Int32: ")
      Dim myInt32 As Int32 = 123
      ' Using Equals will fail because Int32 is not compatible with BitVector32.
      If myBV.Equals(myInt32) Then
         Console.WriteLine("   Using BitVector32.Equals, myBV({0}) equals myInt32({1}).", myBV.Data, myInt32)
      Else
         Console.WriteLine("   Using BitVector32.Equals, myBV({0}) does not equal myInt32({1}).", myBV.Data, myInt32)
      End If ' To compare a BitVector32 with an Int32, use the "==" operator.
      If myBV.Data = myInt32 Then
         Console.WriteLine("   Using the ""=="" operator, myBV.Data({0}) equals myInt32({1}).", myBV.Data, myInt32)
      Else
         Console.WriteLine("   Using the ""=="" operator, myBV.Data({0}) does not equal myInt32({1}).", myBV.Data, myInt32)
      End If 

   End Sub

End Class

开发者ID:VB.NET开发者，项目名称:System.Collections.Specialized，代码行数:61，代码来源:BitVector32.Equals

输出：

myBV                 : BitVector32{00000000000000000000000001111011}
myBVsect             : BitVector32{00000000000000000000000000000000}
myBV(123) does not equal myBVsect(0).

myBV                 : BitVector32{00000000000000000000000001111011}
myBVsect with values : BitVector32{00000000000000000000000001111011}
myBV(123) equals myBVsect(123).

Comparing myBV with an Int32:
Using BitVector32.Equals, myBV(123) does not equal myInt32(123).
Using the "==" operator, myBV.Data(123) equals myInt32(123).

注：本文中的System.Collections.Specialized.BitVector32.Equals方法示例由纯净天空整理自Github/MSDocs等源码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。