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 = String.Format("Versione {0}", My.Application.Info.Version.ToString)
      Me.LabelCopyright.Text = My.Application.Info.Copyright
      Me.LabelCompanyName.Text = My.Application.Info.CompanyName
      Dim sbInfo As New System.Text.StringBuilder
      Dim sTemp As String = String.Empty
      EgtGetVersionInfo(sTemp)
      sbInfo.Append(sTemp & vbCrLf)
      sbInfo.Append("ExeRoot " & Form1.GetExeRoot() & vbCrLf)
      sbInfo.Append("DataRoot " & Form1.GetDataRoot() & vbCrLf)
      EgtGetOsInfo(sTemp)
      sbInfo.Append(sTemp & vbCrLf)
      sbInfo.Append("User " & SystemInformation.UserName &
                        "\" & SystemInformation.ComputerName &
                       " (" & Form1.GetInstance() & ")" & vbCrLf)
      EgtGetCpuInfo(sTemp)
      sbInfo.Append(sTemp & vbCrLf)
      EgtGetMemoryInfo(sTemp)
      sbInfo.Append(sTemp & vbCrLf)
      EgtGetSceneInfo(sTemp)
      sbInfo.Append(sTemp)
      Me.tbInfo.Text = sbInfo.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