在 Visual Basic（不是 VB.NET）中创建 object 而不使用“新建”

Question

我被告知要跳出框框思考，想办法在 VB 中创建 object 而不使用 new 关键字。 有人告诉我这是可能的，但我很难弄清楚。 我知道原始数据存储在堆栈中，并且对对象的引用也存储在那里，但是 object 的实际 memory 空间在堆中，而新的空间对我们来说是这样的。 当我在没有新的情况下尝试它时，我大多得到 null 参考异常，关于这怎么可能的任何想法？

Dim objTest as TestOne()

'some class named TestOne with empty Constructor

Answer 1

In VB you can use the CreateObject function if you have an existing class defined in a COM library that you've created - or a COM library that already exists.

例如，创建对 Microsoft 脚本运行时 COM 库 (scrrun.dll) 的项目引用。 为此，请在 VB IDE select项目的参考文献中选择参考文献“ Microsoft Scripting Runtime ”。 然后，您可以编写以下代码：

Dim fso As Object
fso = CreateObject("Scripting.FileSystemObject")

Answer 2

我已经有一段时间没有做过VB了，但是激活器存在于C#和VB中。 这里有几行 C# 可以转换为 VB：

var newThing = (TestOne)Activator.CreateInstance(typeof(TestOne));
newThing.ID = 5;

CreateInstance方法返回一个 object，我将其转换为正确的 class

(TestOne)

这是用于类型转换的 C# 语法。 抱歉，我忘记了如何在 VB 中执行此操作。

其中 class 'TestOne' 看起来像：

class TestOne {
    public int ID { get; set; }
}

请注意，“激活器”是 .NET 反射的一部分。

Answer 3

如果我正确理解您的要求，则在执行时会返回具有两个属性Name和Price的匿名类型实例的集合。

Dim productQuery = From product In products
                   Select product.Name, product.Price   

For Each prod In productQuery
    Console.WriteLine(prod.Name & ": " & prod.Price)  
Next