本文整理匯總了VB.NET中System.Type.GetHashCode方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET Type.GetHashCode方法的具體用法？VB.NET Type.GetHashCode怎麽用？VB.NET Type.GetHashCode使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Type的用法示例。
在下文中一共展示了Type.GetHashCode方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: FieldsSample
' 導入命名空間
Imports System.Security
Imports System.Reflection
' Compile this sample using the following command line:
' vbc type_gethashcode_getfields.vb /r:"System.Windows.Forms.dll" /r:"System.dll"
Class FieldsSample
Public Shared Sub Main()
Dim myType As Type = GetType(System.Net.IPAddress)
Dim myFields As FieldInfo() = myType.GetFields((BindingFlags.Static Or BindingFlags.NonPublic))
Console.WriteLine(ControlChars.Lf & "The IPAddress class has the following nonpublic fields: ")
Dim myField As FieldInfo
For Each myField In myFields
Console.WriteLine(myField.ToString())
Next myField
Dim myType1 As Type = GetType(System.Net.IPAddress)
Dim myFields1 As FieldInfo() = myType1.GetFields()
Console.WriteLine(ControlChars.Lf & "The IPAddress class has the following public fields: ")
Dim myField1 As FieldInfo
For Each myField1 In myFields1
Console.WriteLine(myField.ToString())
Next myField1
Try
Console.WriteLine("The HashCode of the System.Windows.Forms.Button type is: {0}", GetType(System.Windows.Forms.Button).GetHashCode())
Catch e As SecurityException
Console.WriteLine("An exception occurred.")
Console.WriteLine(("Message: " & e.Message))
Catch e As Exception
Console.WriteLine("An exception occurred.")
Console.WriteLine(("Message: " & e.Message))
End Try
End Sub
End Class示例2: Type.GetHashCode()
' 導入命名空間
Imports System
public class MainClass
Shared Sub Main()
Dim i As Integer = 15
Console.WriteLine(i.ToString())
Console.WriteLine("Hash is: " + i.GetHashCode().ToString())
Console.WriteLine("Type is: " + i.GetType().ToString)
Console.WriteLine("Type full name is: " + i.GetType().FullName())
Console.WriteLine("Type assembly qualified name is: " + i.GetType().AssemblyQualifiedName)
Console.WriteLine("Namespace is: " + i.GetType().Namespace)
End Sub
End Class