当前位置: 首页>>代码示例>>VB.NET>>正文


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

本文整理汇总了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;未经允许,请勿转载。