0

私はこれに問題があります:

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))
4

2 に答える 2