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