调用传递类型参数问题的函数答案

【问题标题】：Calling a function passing a Type parameter issue调用传递类型参数问题的函数
【发布时间】：2014-02-06 20:35:24
【问题描述】：

在一个类中，我编写了一些方法来检索一些文件，现在为了简化代码编写，我编写了这个需要类型的私有函数：

Private Shared Function GetDeletedItems(Of T)(Optional ByVal DriveLetter As Char = Nothing) As T()

    Return (From Item As ShellObject In RecycleBin
            Where Item.GetType = GetType(T) _
                  AndAlso If(DriveLetter = Nothing,
                             Nothing,
                             Item.Name.StartsWith(DriveLetter,
                                                  StringComparison.InvariantCultureIgnoreCase))).
            Cast(Of T).
            ToArray()

End Function

然后只应该从类中调用这个公共函数，我尝试设置正确的类型来调用私有函数并返回数据：

Public Shared Function GetDeletedItems(ByVal ItemType As ShellItemType,
                                       Optional ByVal DriveLetter As Char = Nothing)

    Dim CurrentType As Type = Nothing

    Select Case ItemType

        Case ShellItemType.All
            CurrentType = GetType(ShellObject)

        Case ShellItemType.Files
            CurrentType = GetType(ShellFile)

        Case ShellItemType.Folders
            CurrentType = GetType(ShellFolder)

    End Select

    Return GetDeletedItems(Of CurrentType)(DriveLetter)

End Function

问题是我在 Return 指令中遇到错误，因为它说 CurrentType 没有定义，我做错了什么？

【问题讨论】：

Type 是System.Type 不同于Of T 是“类型参数”，类型参数需要在编译时知道
感谢您的评论，但是我需要进行哪些修改？不能像我尝试使用类型那样在 var 中定义类型参数？
@ElektroStudios，您将不得不使用反射在运行时构建正确的泛型类型。我可以用 C# 编写它，但是在 VB 中我需要很长时间，所以我可能无法提供尽可能多的帮助。

标签： .net vb.net function types

【解决方案1】：

首先你不需要变量CurrentType，编译器不会很乐意编译它。摆脱它。

这符合您的要求吗？

Public Shared Function GetDeletedItems(ByVal ItemType As ShellItemType,
                                       Optional ByVal DriveLetter As Char = Nothing)
    Select Case ItemType

        Case ShellItemType.All
            Return  GetDeletedItems(Of ShellObject)(DriveLetter)
        Case ShellItemType.Files
            Return  GetDeletedItems(Of ShellFile)(DriveLetter)
        Case ShellItemType.Folders
            Return  GetDeletedItems(Of ShellFolder)(DriveLetter)
    End Select

End Function

【讨论】：

是的，每次返回都是我的另一种选择，但不是我所要求的，无论如何，非常感谢。 +1
@ElektroStudios 是的，我知道，但是您要求的不可能：(
我很确定这是不可能的。等待更好的答案，如果有人接受它:)
希望没有冒犯到您，抱歉，我不确定您所说的“不可能”是什么意思，我的英语不好，再次感谢
@ElektroStudios 从来没有，事实上象征性地表明我没有被冒犯，我使用了:)happy 笑脸。干杯，如果有人提供更好的答案，您可以愉快地接受另一个答案。顺便说一句，我的英语也不好:)

【解决方案2】：

查看您的代码，我没有看到拆分为两个函数的原因。我认为你的外部函数应该是通用的，你应该完全杀死 ShellItemType。

该方法只是您的内部私有方法，只有您将其公开：

Public Shared Function GetDeletedItems(Of T)(Optional ByVal DriveLetter As Char = Nothing) As T()

    Return (From Item As ShellObject In RecycleBin
            Where Item.GetType = GetType(T) _
                  AndAlso If(DriveLetter = Nothing,
                             Nothing,
                             Item.Name.StartsWith(DriveLetter,
                                                  StringComparison.InvariantCultureIgnoreCase))).
            Cast(Of T).
            ToArray()

End Function

那么你可以这样称呼它：

Dim results = GetDeletedItems(Of ShellObject)(driveLetter)

您似乎是根据类型在方法之外设置 ShellItemType 变量，因此您实际上可以直接将该类型本身发送进去。

【讨论】：

谢谢您的回答，我知道我可以直接调用您在示例中编写的私有函数，但我喜欢添加一个枚举以在公共函数中使用它，以记住我可以使用的接口（ShellObject、ShellItem、ShellFolder、ShellLink）让我更容易记住它们。谢谢+1