Question

我正在迁移到VB，所以我需要一些帮助：

在Delphi中我有：

type osVer = (
   osVerUnknown,
   osVerWin95,
   osVerWin95OSR2,
....

function GetVersion : osVer;
....

我需要翻译成VB ... 在我得到你的任何帮助之前，我会继续搜索网络。

感谢

Answer 1

映射到vb的enum构造：

enum osVer
  osVerUnknown=0
  osVerWin95
  osVerWin95OSR2
  ' keep going
end enum

' and later on in your code
dim val as osVer
val=osVer.osVerWin95

' edit: as to your getversion function:
public function GetVersion() as osVer
end function

作为旁注，这种操作系统检测......你很难找到它的实际应用程序。

Answer 2

我从未使用过delphi，但我想我会按照你的意愿来访问：

Public Enum osVer
   osVerUnknown
   osVerWin95
   osVerWin95OSR2
End Enum

Public Function GetVersion() As osVer
...
End Function

Answer 3

为什么不翻译意图而不是枚举类型。

在VB.net中查看：

Dim osVersion As String = System.Environment.OSVersion.ToString()

MessageBox.Show(osVersion)

Delphi到VB：定义数据类型

3 个答案: