TypeOf 是 myType

Question

作为对象的公共 MyObj

Public Function Test(t as Type) as Boolean
 Return TypeOf MyObj is t ' does not work
End Function

谢谢。

* 编辑

================================================ ======================

为了清楚起见，我将使用一个完整的示例，最初的想法稍作修改。

我使用一个接口，并且想知道传入参数的对象（实现 I）是否与内部字段类型相同（I; A:I; AA:A; B:I强>)。

首先，(a)我需要准确的类标识（仅A=A, B=B, AA=AA） 而且我还希望 (b) 具有“继承等价性”（A=A and A=AA but AB）

Option Strict On
Option Explicit On

Public Class Form1
  ' object to test
  Private objI As I

  Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
    Dim aObj As New A
    Dim aaObj As New AA
    Dim bObj As New B

    'assing the object to test - A
    Me.objI = New A

    'test it
    MessageBox.Show(SameTypeAs(aObj).ToString()) ' need True here
    MessageBox.Show(SameTypeAs(bObj).ToString()) ' need False here
    MessageBox.Show(SameTypeAs(aaObj).ToString()) ' need a)Flase and b)True here
  End Sub

  Function SameTypeAs(ByVal iObj As I) As Boolean
    ' here is the "problem":
    ' how to detect the same (sub)types of I?
    Return Me.objI Is iObj
  End Function

  ' interface..........
  Interface I
  End Interface

  ' class A..........
  Class A
    Implements I
  End Class

  ' class B..........
  Class B
    Implements I
  End Class

  ' class AA..........
  Class AA
    Inherits A
  End Class
End Class

Answer 1

最后，对于 a) 点，我似乎找到了解决方案：

  Function SameTypeAs(ByVal iObj As I) As Boolean
    Return CType(iObj, Object).GetType Is CType(Me.objI, Object).GetType()
  End Function

或通用变体

  Function SameTypeAs(Of T As I)() As Boolean
    Return TypeOf Me.objI Is T
  End Function

至于 b)...

Answer 2

您可能想使用Type.IsAssignableFrom，而不是比较类型是否相等：

return t.IsAssignableFrom(MyObj.GetType())

如果您查看TypeOf ... Is ... 运算符文档，您会发现它需要类型 name 作为第二个操作数。此类型名称在编译时解析。

编辑：如果你真的想要 exact 平等，那么 TypeOf ... Is ... 无论如何都不会为你工作。

至于区别，请考虑：

MyObj = New MemoryStream()

...

Dim result = Test(GetType(Stream))

你想让result 是真还是假？如果你想让它为假，你应该使用简单的相等：

return t is MyObj.GetType()

如果您希望它为真，因为MyObj 与Stream 是分配兼容，您应该使用此答案顶部的代码。这就是TypeOf MyObject Is Stream 的行为，这就是我最初回答的原因。

编辑：好的，回答更改后的问题：

Function SameTypeAs(ByVal iObj As I) As Boolean
  Return Me.objI.GetType() = iObj.GetType()
End Function

Function CompatibleType(ByVal iObj As I) As Boolean
  Return Me.objI.GetType().IsAssignableFrom(iObj.GetType())
  ' Or this depending on which way round you want compatibility
  ' Return iObj.GetType().IsAssignableFrom(Me.objI.GetType())
End Function

请注意，这不是 null 安全的 - 如果您传入 Nothing 或如果 Me.objI 什么都不是，您将在调用 GetType() 时得到一个 NullReferenceException。

Answer 3

你可以这样做：

Return GetType(MyObj).Equals(t)