Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

05 - My.Computer.Info

Ejemplo enviado por Sebastián Perdomo, para obtener los siguientes datos en vb.net 2005 :

Información de la memoria del sistema ( AvailablePhysicalMemory, TotalPhysicalMemory, AvailableVirtualMemory, TotalVirtualMemory )

El nombre del sitema operativo y la versión ( OSFullName, OSPlatform y OSVersion )

Formualrio

Colocar un control Listview en el formulario

Option Explicit On Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Try ' agrega dos encabezados With ListView1 .Clear() .Columns.Add(" Información ", 350, HorizontalAlignment.Left) .Columns.Add(" Valor ", 200, HorizontalAlignment.Left) .View = View.Details End With ' agrega los items With My.Computer.Info ' Referencia al item Dim ObjItem As ListViewItem ' ram físca libre ''''''''''''''''''''''''''''''''''''''' ObjItem = New ListViewItem("Memoria Física Disponible ") ObjItem.SubItems.Add(((.AvailablePhysicalMemory) / 1048576) & " MB") ListView1.Items.Add(ObjItem) ' Ram fisica total ''''''''''''''''''''''''''''''''''''''' ObjItem = New ListViewItem("Memoria física total ") ObjItem.SubItems.Add(((.TotalPhysicalMemory) / 1048576) & " MB") ListView1.Items.Add(ObjItem) ' Ram Virtual libre ''''''''''''''''''''''''''''''''''''''' ObjItem = New ListViewItem("Memoria Virtual libre") ObjItem.SubItems.Add(((.AvailableVirtualMemory) / 1048576) & " MB") ListView1.Items.Add(ObjItem) ' memoria virtual total ''''''''''''''''''''''''''''''''''''''' ObjItem = New ListViewItem("Memoria virtual total") ObjItem.SubItems.Add(((.TotalVirtualMemory) / 1048576) & " MB") ListView1.Items.Add(ObjItem) ' Nombre del sistema operativo y la versión '''''''''''''''''''''''''''''''''''''''''''''' ObjItem = New ListViewItem("Sistema operativo - plataforma - versión") ObjItem.SubItems.Add(.OSFullName & "-" & .OSPlatform & "-" & .OSVersion).ToString() ListView1.Items.Add(ObjItem) ' autoajusta los headers ListView1.Columns(0).AutoResize(ColumnHeaderAutoResizeStyle.ColumnContent) ListView1.Columns(1).AutoResize(ColumnHeaderAutoResizeStyle.ColumnContent) ObjItem = Nothing End With ' error Catch omsg As Exception MsgBox(omsg.Message, MsgBoxStyle.Critical) End Try End Sub End Class

Buscar en Recursos vb