2011-08-11 6 views
1

내가 VB로 마이그레이션하고, 그래서 약간의 도움이 필요합니다 : 델파이델파이 : 데이터 유형을 정의

내가 가진 :

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

function GetVersion : osVer; 
.... 

나는까지 VB ... 로 번역 할 필요를 나는 너에게 어떤 도움을받을거야, 나는 그물을 계속 찾는다.

감사

+0

PS : 나는 다른 방향을 이해할 수있는 데이터 유형 및 기능 –

+4

를 포함하는 모듈을 만들려고하지만, 왜 세계에서 사람이 가고 싶은 것 * Delphi *에서 * VB로?!? –

+0

어쩌면 그들은 타입 안전을 싫어할 것입니다. – Blindy

답변

3

: A와

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 

사이드 노트, 이런 종류의 OS 감지 ... 당신은 실제 응용 프로그램을 찾기가 어려울 것입니다.

+1

v2 enum 선언에 쉼표가 없습니다. –

+0

오. 잘 잡으세요! 내가 3 회 끝에'; '를 타이핑하기 전에 나 자신을 붙잡은다고 말하면 당신을 놀라게 할 것인가? – Blindy

+0

@ 블라인디 : OS 버전을 감지하는 데 또 다른 아이디어가 있습니까? (시스템 정보를 표시하기 위해 내 응용 프로그램을 사용하고 있습니다) –

1

나는 이제까지 델파이를 사용하지 않는 한,하지만 난 당신이 원하는 것을 따라 생각 :

VB의 enum 구조에 매핑
Public Enum osVer 
    osVerUnknown 
    osVerWin95 
    osVerWin95OSR2 
End Enum 

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

열거 형 대신 인 텐트를 변환하지 않는 이유는 무엇입니까? VB.net에서

확인이 :

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

MessageBox.Show(osVersion) 
관련 문제