73 lines
2.2 KiB
VB.net
73 lines
2.2 KiB
VB.net
Imports System.Reflection
|
|
|
|
Public Class SplashForm
|
|
Inherits Form
|
|
|
|
Private ReadOnly closeTimer As New System.Windows.Forms.Timer()
|
|
|
|
Public Sub New()
|
|
FormBorderStyle = FormBorderStyle.None
|
|
StartPosition = FormStartPosition.CenterScreen
|
|
ClientSize = New Size(560, 260)
|
|
BackColor = Color.FromArgb(12, 18, 24)
|
|
ShowInTaskbar = False
|
|
|
|
Dim iconPath = IO.Path.Combine(Application.StartupPath, "Assets", "app-icon.png")
|
|
Dim picture As New PictureBox With {
|
|
.SizeMode = PictureBoxSizeMode.Zoom,
|
|
.Left = 34,
|
|
.Top = 42,
|
|
.Width = 150,
|
|
.Height = 150
|
|
}
|
|
If IO.File.Exists(iconPath) Then
|
|
picture.Image = Image.FromFile(iconPath)
|
|
End If
|
|
Controls.Add(picture)
|
|
|
|
Dim title As New Label With {
|
|
.Text = "LMEMoxaTransfer",
|
|
.ForeColor = Color.White,
|
|
.Font = New Font("Segoe UI", 24.0F, FontStyle.Bold),
|
|
.Left = 205,
|
|
.Top = 62,
|
|
.Width = 335,
|
|
.Height = 44
|
|
}
|
|
Controls.Add(title)
|
|
|
|
Dim subtitle As New Label With {
|
|
.Text = "Trasferimento programmi Okuma via Moxa",
|
|
.ForeColor = Color.FromArgb(170, 225, 220),
|
|
.Font = New Font("Segoe UI", 10.5F),
|
|
.Left = 208,
|
|
.Top = 112,
|
|
.Width = 330,
|
|
.Height = 28
|
|
}
|
|
Controls.Add(subtitle)
|
|
|
|
Dim versionLabel As New Label With {
|
|
.Text = $"Compomac SPA - Livio Merola - v{Assembly.GetExecutingAssembly().GetName().Version}",
|
|
.ForeColor = Color.FromArgb(180, 190, 200),
|
|
.Font = New Font("Segoe UI", 9.0F),
|
|
.Left = 208,
|
|
.Top = 154,
|
|
.Width = 330,
|
|
.Height = 28
|
|
}
|
|
Controls.Add(versionLabel)
|
|
|
|
closeTimer.Interval = 1400
|
|
AddHandler closeTimer.Tick, Sub()
|
|
closeTimer.Stop()
|
|
Close()
|
|
End Sub
|
|
End Sub
|
|
|
|
Protected Overrides Sub OnShown(e As EventArgs)
|
|
MyBase.OnShown(e)
|
|
closeTimer.Start()
|
|
End Sub
|
|
End Class
|