Dario Sassi
54 lines
2.4 KiB
VB.net
54 lines
2.4 KiB
VB.net
Imports TestEIn.EgtInterface
|
|
|
|
Public NotInheritable Class AboutBox1
|
|
|
|
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
' Imposta il titolo del form.
|
|
Dim ApplicationTitle As String
|
|
If My.Application.Info.Title <> "" Then
|
|
ApplicationTitle = My.Application.Info.Title
|
|
Else
|
|
ApplicationTitle = My.Application.Info.AssemblyName
|
|
End If
|
|
Me.Text = String.Format("Informazioni su {0}", My.Application.Info.ProductName)
|
|
' Inizializza tutto il testo visualizzato nella finestra di dialogo Informazioni su.
|
|
Me.LabelProductName.Text = ApplicationTitle
|
|
Me.LabelVersion.Text = "Version : " & My.Application.Info.Version.Major.ToString() &
|
|
"." & My.Application.Info.Version.Minor.ToString() &
|
|
(ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
|
|
My.Application.Info.Version.Revision.ToString()
|
|
Me.LabelCopyright.Text = My.Application.Info.Copyright
|
|
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
|
|
Dim sTemp As String = String.Empty
|
|
' Informazioni sul programma
|
|
Dim sbInfoProg As New System.Text.StringBuilder
|
|
EgtGetVersionInfo(sTemp)
|
|
sbInfoProg.Append(sTemp & vbCrLf)
|
|
sbInfoProg.Append("ExeRoot " & Form1.GetExeRoot() & vbCrLf)
|
|
sbInfoProg.Append("DataRoot " & Form1.GetDataRoot() & vbCrLf)
|
|
sbInfoProg.Append("MachinesRoot " & Form1.GetMachinesRoot() & vbCrLf)
|
|
EgtGetKeyInfo(sTemp)
|
|
sbInfoProg.Append(sTemp & vbCrLf)
|
|
sbInfoProg.Append("User " & SystemInformation.UserName &
|
|
"\" & SystemInformation.ComputerName &
|
|
" (" & Form1.GetInstance() & ")")
|
|
Me.tbInfoProg.Text = sbInfoProg.ToString()
|
|
' Informazioni sul sistema
|
|
Dim sbInfoSys As New System.Text.StringBuilder
|
|
EgtGetOsInfo(sTemp)
|
|
sbInfoSys.Append(sTemp & vbCrLf)
|
|
EgtGetCpuInfo(sTemp)
|
|
sbInfoSys.Append(sTemp & vbCrLf)
|
|
EgtGetMemoryInfo(sTemp)
|
|
sbInfoSys.Append(sTemp & vbCrLf)
|
|
EgtGetSceneInfo(sTemp)
|
|
sbInfoSys.Append(sTemp)
|
|
Me.tbInfoSys.Text = sbInfoSys.ToString()
|
|
End Sub
|
|
|
|
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
End Class
|