Saber la Versión de Windows (S.O) Utilizando VB .NET Fecha: 05/Enero/2004 Autor: Angel Enrique Ruiz Pastor (Vzla), [email protected] |
.
|
Este código nos muestra como saber que Sistema Operativo tiene la PC desde VB .NET
Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicación para Windows.
Usamos la Tecla Tecla “F7” para ir a la vista de Código, cuando nos aparezca la Ventana de Código nos vamos a la primera línea y Importamos el siguiente NameSpace: "Imports System.Environment"
Después nos vamos a la línea donde esta:
Public Class Form1
Inherits System.Windows.Forms.Form"Y en la siguiente línea Creamos la Variable "So_Info"
Private So_Info As OperatingSystem
Y ahora creamos la Función GetVersion
Public Function GetVersion() As String
So_Info = OSVersion 'Obtiene un objeto OperatingSystem que contiene el identificador de la plataforma actual y el número de versión.
With So_Info
Select Case .Platform
Case .Platform.Win32Windows
Select Case (.Version.Minor)
Case 0
getVersion = "Windows 95"
Case 10
If .Version.Revision.ToString() = "2222A" Then
getVersion = "Windows 98 Second Edition"
Else
getVersion = "Windows 98"
End If
Case 90
getVersion = "Windows Me"
End Select
Case .Platform.Win32NT
Select Case (.Version.Major)
Case 3
getVersion = "Windows NT 3.51"
Case 4
getVersion = "Windows NT 4.0"
Case 5
If .Version.Minor = 0 Then
getVersion = "Windows 2000"
Else
getVersion = "Windows XP"
End If
End Select
Case Else
getVersion = "S.O no conocido"
End Select
End With
End Function
Ahora nos vamos a la vista de diseño usando las teclas “Shift + F7”Ahora agregue uno Botón "Button" en el formulario, en el "Button1" coloque la propiedad "Text" de este a: "Saber SO"
Ahora en el evento Click del "Button1", copie y pegue el siguiente código:MsgBox(GetVersion, MsgBoxStyle.Information, "S.O")
Quedaría de la siguiente forma:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMsgBox(GetVersion, MsgBoxStyle.Information, "S.O")
End Sub
Ahora agregue un Botón "Button" en el formulario, en el "Button2" coloque la propiedad "Text" de este a: "Salir"
Ahora en el evento Click del "Button2", copie y pegue el siguiente código:
Me.Close()
Quedaría de la siguiente forma:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()End Sub
Ahora ejecute su aplicación presionando F5.
Fichero con el código de ejemplo (AR_SO.zip - 22,9 KB)
(Nota: El ejercicio esta realizado en Visual Studio .NET 2003)