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


VB.NET Oid.FriendlyName属性代码示例

本文整理汇总了VB.NET中System.Security.Cryptography.Oid.FriendlyName属性的典型用法代码示例。如果您正苦于以下问题:VB.NET Oid.FriendlyName属性的具体用法?VB.NET Oid.FriendlyName怎么用?VB.NET Oid.FriendlyName使用的例子?那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在System.Security.Cryptography.Oid的用法示例。


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

示例1: OidSample

' 导入命名空间
Imports System.Security.Cryptography


Public Class OidSample
   Shared msg As String
   Public Shared Sub Main()
      ' Assign values to strings.
      Dim Value1 As String = "1.2.840.113549.1.1.1"
      Dim Name1 As String = "3DES"
      Dim Value2 As String = "1.3.6.1.4.1.311.20.2"
      Dim InvalidName As String = "This name is not a valid name"
      Dim InvalidValue As String = "1.1.1.1.1.1.1.1"
      
      ' Create new Oid objects using the specified values.
      ' Note that the corresponding Value or Friendly Name property is automatically added to the object.
      Dim o1 As New Oid(Value1)
      Dim o2 As New Oid(Name1)
      
      ' Create a new Oid object using the specified Value and Friendly Name properties.
      ' Note that the two are not compared to determine if the Value is associated 
      '  with the Friendly Name.
      Dim o3 As New Oid(Value2, InvalidName)
      
      'Create a new Oid object using the specified Value. Note that if the value
      '  is invalid or not known, no value is assigned to the Friendly Name property.
      Dim o4 As New Oid(InvalidValue)
      
      'Write out the property information of the Oid objects.
    msg = "Oid1: Automatically assigned Friendly Name: " & o1.FriendlyName & ", " & o1.Value
    MsgBox(msg)
      'Console.WriteLine("Oid1: Automatically assigned Friendly Name: {0}, {1}", o1.FriendlyName, o1.Value)


      'Console.WriteLine("Oid2: Automatically assigned Value: {0}, {1}", o2.FriendlyName, o2.Value)
    msg = "Oid2: Automatically assigned Value: " & o2.FriendlyName & ", " & o2.Value
    MsgBox(msg)


      'Console.WriteLine("Oid3: Name and Value not compared: {0}, {1}", o3.FriendlyName, o3.Value)
    msg = "Oid3: Name and Value not compared: " & o3.FriendlyName & ", " & o3.Value
    MsgBox(msg)



     ' Console.WriteLine("Oid4: Invalid Value used: {0}, {1} {2}", o4.FriendlyName, o4.Value, Environment.NewLine)
    msg = "Oid4: Invalid Value used: " & o4.FriendlyName & ", " & o4.Value
    MsgBox(msg)
 

     
      'Create an Oid collection and add several Oid objects.
      Dim oc As New OidCollection()
      oc.Add(o1)
      oc.Add(o2)
      oc.Add(o3)
     ' Console.WriteLine("Number of Oids in the collection: {0}", oc.Count)
      ' Console.WriteLine("Is synchronized: {0} {1}", oc.IsSynchronized, Environment.NewLine)

    msg = "Number of Oids in the collection: " & oc.Count
    MsgBox(msg)
    msg = "Is synchronized: " & oc.IsSynchronized
    MsgBox(msg)

      
      'Create an enumerator for moving through the collection.
      Dim oe As OidEnumerator = oc.GetEnumerator()
      'You must execute a MoveNext() to get to the first item in the collection.
      oe.MoveNext()
      ' Write out Oids in the collection.
      'Console.WriteLine("First Oid in collection: {0},{1}", oe.Current.FriendlyName, oe.Current.Value)
    msg = "First Oid in collection: " & oe.Current.FriendlyName & ", " & oe.Current.Value
    MsgBox(msg)

      oe.MoveNext()
     ' Console.WriteLine("Second Oid in collection: {0},{1}", oe.Current.FriendlyName, oe.Current.Value)
    msg = "Second Oid in collection: " & oe.Current.FriendlyName & ", " & oe.Current.Value
    MsgBox(msg)

      'Return index in the collection to the beginning.
      oe.Reset()
   End Sub
End Class
开发者ID:VB.NET开发者,项目名称:System.Security.Cryptography,代码行数:83,代码来源:Oid.FriendlyName


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