Initial LMEMoxaTransfer application

2026-07-24 09:11:00 +02:00
commit dee8e930ea
25 changed files with 2217 additions and 0 deletions
@@ -0,0 +1,72 @@
+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(520, 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 = 290,
+            .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 = 290,
+            .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 = 290,
+            .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