Thread inutile creare un my computer info

[MUORI]

ciao ragazzi, ora vi posta la guida per fare un visualizzatore di info del vostro pc come quello che ho creato io
ci servir?:
5 textbox
6 button
come rinominarli (il text non il name):
button1 = Controlla Memoria Disponibili
button2 = Controlla Memoria Totale
button3 = Controlla Piattaforma Sistema Operativo
button4 = identifica piattaforma
button5 = controlla Versione Piattaforma
button6 = CONTROLLA TUTTO

dopo aver inserito tutte cose cliccate due volte sul form cancellate tutte e scrivete:

Spoiler

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

enjoy!!! Fonte:IH

 

[killer001]

Interessante, però è meglio sostituire le textbox con delle label, esce più ordinato :soso:

 

[Neaples]

Gia' l'ho postato io.

 

[Antox C.]

Ottimo!

 

[MUORI]

Grazie Bello xDDD

 

[mariog95]

ce un problema nell codice ho e problema mio non so,cmq mi dce che ce un errore nel debug in questa pezzo NotifyIcon1.MouseDoubleClick come devo risolvere grazie.

 

[#Gigius]

C'è già un altra discussione, per problemi o info postate qui: http://www.sciax2.it/forum/visual-basic/source-creare-mycomputerinfo-257651.html