本文整理匯總了VB.NET中System.Type.IsPointer屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET Type.IsPointer屬性的具體用法？VB.NET Type.IsPointer怎麽用？VB.NET Type.IsPointer使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Type的用法示例。
在下文中一共展示了Type.IsPointer屬性的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: MyTypeDelegator
' 導入命名空間
Imports System.Reflection
Public Class MyTypeDelegator
Inherits TypeDelegator
Public myElementType As String = Nothing
Private myType As Type = Nothing
Public Sub New(ByVal myType As Type)
MyBase.New(myType)
Me.myType = myType
End Sub
' Override Type.HasElementTypeImpl().
Protected Overrides Function HasElementTypeImpl() As Boolean
' Determine whether the type is an array.
If myType.IsArray Then
myElementType = "array"
Return True
End If
' Determine whether the type is a reference.
If myType.IsByRef Then
myElementType = "reference"
Return True
End If
' Determine whether the type is a pointer.
If myType.IsPointer Then
myElementType = "pointer"
Return True
End If
' The type is not a reference, array, or pointer type.
Return False
End Function 'HasElementTypeImpl
End Class
Public Class Type_HasElementTypeImpl
Public Shared Sub Main()
Try
Dim myInt As Integer = 0
Dim myArray(4) As Integer
Dim myType As New MyTypeDelegator(myArray.GetType())
Console.WriteLine(ControlChars.NewLine + "Determine whether a variable refers to an array or pointer or reference type." + ControlChars.NewLine)
' Determine whether myType is an array, pointer, reference type.
If myType.HasElementType Then
Console.WriteLine("The type of myArray is {0}.", myType.myElementType.ToString())
Else
Console.WriteLine("myArray is not an array, pointer, or reference type.")
End If
myType = New MyTypeDelegator(myInt.GetType())
' Determine whether myType is an array, pointer, reference type.
If myType.HasElementType Then
Console.WriteLine("The type of myInt is {0}.", myType.myElementType.ToString())
Else
Console.WriteLine("myInt is not an array, pointer, or reference type.")
End If
Catch e As Exception
Console.WriteLine("Exception: {0}", e.Message.ToString())
End Try
End Sub
End Class