Delphi to VB: определить типы данных - PullRequest
1 голос
/ 11 августа 2011

Я перехожу на VB, поэтому мне нужна небольшая помощь:

в Delphi У меня есть:

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

function GetVersion : osVer;
....

Мне нужно перевести на VB ... Пока я не получулюбую помощь от вас, я буду продолжать поиск в сети.

спасибо

Ответы [ 3 ]

3 голосов
/ 11 августа 2011

Это соответствует конструкции enum vb:

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

В качестве дополнительного примечания, этот вид обнаружения ОС ... вам будет сложно найти реальное приложение для него.*

1 голос
/ 12 августа 2011

Почему бы не перевести намерение вместо перечисляемого типа.

Проверьте это в VB.net:

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

MessageBox.Show(osVersion)
1 голос
/ 11 августа 2011

Я никогда не использовал delphi, но я думаю, что следую тому, что вы хотите здесь:

Public Enum osVer
   osVerUnknown
   osVerWin95
   osVerWin95OSR2
End Enum

Public Function GetVersion() As osVer
...
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...