指定Windows Version.Build

我有一个问题,find正确的forms来告诉我的应用程序根据Windows构build在文本框中写一个不同的东西

代码是:

Private Sub Main_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Dim OSVer As Version = Environment.OSVersion.Version 'Windows 10 If OSVer.Build >= 10240 Then My.Forms.Main.WinVer.Text = "Detected Windows 10" End If 'Windows 8 / 8.1 If OSVer.Build <= 10000 And OSVer.Build >= 8000 Then My.Forms.Main.WinVer.Text = "Windows 8 / 8.1 are not supported yet" End If 'Windows 7 If OSVer.Build >= 7600 And OSVer.Build < 8000 Then My.Forms.Main.WinVer.Text = "Detected Windows 7" End If 'OLD WINDOWS VERSION If OSVer.Build < 7600 Then My.Forms.Main.WinVer.Text = "Your Windows is not supported" End If End Sub 

我在Windows 10(构build10240),使用此代码后,该应用程序显示了我的Windows 8 / 8.1的情况的文字

如何纠正这个?

Solutions Collecting From Web of "指定Windows Version.Build"

根据这个MSDN文章 ,你必须正确地定位你的应用程序来获得预期的结果。

正确设置清单后,可以使用OSVersion.Version.MajorOSVersion.Version.Minor属性来检查操作系统。 版本号以表格形式在上述文章中指定。