指定 Windows Version.Build

Question

根据 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（内部版本 10240）上，使用此代码后，应用程序向我显示了 Windows 8/8.1 情况

的文本

如何更正此问题？

Answer 1

根据 this MSDN article，您必须正确定位您的应用程序才能获得预期的结果。

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

指定 Windows Version.Build

specifying Windows Version.Build

vb.net

windows

desktop-application