无法将此代码从vb6转换为vb.net - SET string = New Application

Question

我有一些vb6代码，我试图在我的Vb.net应用程序中使用但是我遇到了非常困难的时间

这是来自VB6的代码......

Dim CurrentVersion as cApplication

Set currentVerion = New Application

我有一个名为-getLatestInformation的函数在一个不同的类中，有几个参数看起来像这样....

GetLatestVersion(VaID As Integer, VaMode As Integer, ValueID As Integer)

在我的vb6应用程序中，我这样称呼它......

currentVersion.getLatestVersion 3,4,5

除了DIM currentVersion作为CApplication，我无法做任何事情。这有点困难。

Answer 1

“Set”不再是对象分配关键字。相反，你可以做

Dim currentVersion As cApplication = New Application()

或

Dim currentVersion As cApplication
currentVersion = New Application()

假设cApplication是与Application兼容的类型。两种方式都创建一个“Application”对象并将其分配给currentVersion变量。

然后您将使用

进行呼叫

currentVersion.getLatestVersion(3, 4, 5)

VB.NET以这种方式改变了很多语法 - 您可能希望获得一个文本来帮助您完成所有更改。