• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Guida Programma per visualizzare le informazioni di un pc

SONNYDJJ

Utente Medio
Autore del topic
1 Settembre 2009
159
0
Miglior risposta
0
buon giorno a tutti , oggi ho creato un programma che permette di visualizzare le informazioni di un pc



ecco il codice



Public Class Form1

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)


End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = (My.Computer.Info.AvailablePhysicalMemory)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = (My.Computer.Info.TotalPhysicalMemory)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox3.Text = (My.Computer.Info.OSFullName)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox4.Text = (My.Computer.Info.OSPlatform)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox5.Text = (My.Computer.Info.OSVersion)
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = (My.Computer.Info.AvailablePhysicalMemory)
TextBox2.Text = (My.Computer.Info.TotalPhysicalMemory)
TextBox3.Text = (My.Computer.Info.OSFullName)
TextBox4.Text = (My.Computer.Info.OSPlatform)
TextBox5.Text = (My.Computer.Info.OSVersion)



End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick


End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

lo potete scaricare da qui
Perfavore, Entra oppure Registrati per vedere i Link!

x oggi è tutto :ciao:
 
chissà chi te lo avra detto di usare il namespace my :cettu: usa il bbcode code