Dario Sassi
6827c7f971
- ricompilazione con cambio major version - piccola correzione in messaggio di AboutBox.
57 lines
2.8 KiB
VB.net
57 lines
2.8 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class AboutBoxV
|
|
|
|
Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
Me.Owner = Application.Current.MainWindow
|
|
DescriptionLbl.Text = My.Application.Info.Description.ToString()
|
|
VersionLbl.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()
|
|
CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
|
|
Dim sInfo As String = String.Empty
|
|
Dim sKey As String = String.Empty
|
|
EgtGetKeyInfo(sKey)
|
|
Dim sKlev As String = Map.refMainWindowVM.MainWindowM.nKeyLevel.ToString()
|
|
Dim sOpts As String = Map.refMainWindowVM.MainWindowM.nKeyOptions.ToString()
|
|
Dim sLeftDays As String = ""
|
|
Dim nLeftDays As Integer
|
|
If EgtGetKeyLeftDays(nLeftDays) AndAlso nLeftDays < 500 Then sLeftDays = " (" & nLeftDays.ToString() & ")"
|
|
Dim sAssStatus As String = " discontinued"
|
|
Dim nAssLeftDays As Integer
|
|
If EgtGetKeyAssLeftDays( nAssLeftDays) And nAssLeftDays >= 0 Then
|
|
If nAssLeftDays > 30 then
|
|
sAssStatus = "expires within " & nAssLeftDays.ToString() & " days"
|
|
Else If nAssLeftDays > 0 then
|
|
sAssStatus = "to be renewed within " & nAssLeftDays.ToString() & " days"
|
|
Else
|
|
sAssStatus = "to be renewed by today"
|
|
End If
|
|
End If
|
|
sInfo = If(EgtIsDebug(), "*** Debug Libraries ***" & Environment.NewLine, "")
|
|
sInfo &= "User " & Environment.MachineName & "\" & Environment.UserName &
|
|
" Inst" & Map.refMainWindowVM.MainWindowM.nInstance.ToString() &
|
|
" Ulv" & Map.refMainWindowVM.MainWindowM.nUserLevel.ToString() &
|
|
" Dbg" & Map.refMainWindowVM.MainWindowM.DebugLevel().ToString() & Environment.NewLine
|
|
sInfo &= sKey & " - " & sKlev & " - " & sOpts & sLeftDays & Environment.NewLine
|
|
sInfo &= "Maintenance plan " & sAssStatus & Environment.NewLine
|
|
sInfo &= "DataRoot " & Map.refMainWindowVM.MainWindowM.sDataRoot & Environment.NewLine
|
|
sInfo &= "MachinesRoot " & Map.refMainWindowVM.MainWindowM.sMachinesRoot & Environment.NewLine
|
|
Dim sOpSys As String = String.Empty
|
|
EgtGetOsInfo(sOpSys)
|
|
sInfo &= sOpSys & Environment.NewLine
|
|
Dim sCPU As String = String.Empty
|
|
EgtGetCpuInfo(sCPU)
|
|
sInfo &= sCPU & Environment.NewLine
|
|
Dim sMem As String = String.Empty
|
|
EgtGetMemoryInfo(sMem)
|
|
sInfo &= sMem & Environment.NewLine
|
|
Dim sScene As String = String.Empty
|
|
EgtGetSceneInfo(sScene)
|
|
sInfo &= sScene
|
|
InfoLbl.Text = sInfo
|
|
End Sub
|
|
|
|
End Class
|