私はこれに問題があります:
Private Function Get_NT_Version()
Dim NT As Decimal = CDec(System.Environment.OSVersion.Version.ToString.Substring(0, 3))
MsgBox(NT)
Return NT
End Function
私は Win7 で実行しているので、この値を 10 進数または倍精度で取得したい: " 6.1 " しかし、得られるのは " 61 "です。
これは私がやりたいことです:
If Get_NT_Version() < 6.0 Then
msgbox("This application only works with an Aero compatible windows version")
Application.Exit()
end if
アップデート:
このアイデアも試しましたが、「61」を返します
Dim s As Double = String.Format("{0}.{1}", System.Environment.OSVersion.Version.ToString.Split(".")(0), System.Environment.OSVersion.Version.ToString.Split(".")(1))