Optimise code and change server location

ISEN-Repair Inventory Manager/IDGenerator.vb

@@ -58,6 +58,16 @@ generate:
     End Sub
 
     Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
-
+        Dim PSize As PaperSize = Nothing
+        For Each PaperSizeContained As PaperSize In PrintDocument1.PrinterSettings.PaperSizes
+            If (PaperSizeContained.RawKind = PaperKind.A5) Then
+                PSize = PaperSizeContained
+                Exit For
+            End If
+        Next PaperSizeContained
+        If (PSize Is Nothing) Then
+            MsgBox("Oops! Can't find A5 paper for this printer.")
+            Exit Sub
+        End If
     End Sub
 End Class

ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj

@@ -16,7 +16,7 @@
     <NuGetPackageImportStamp>
     </NuGetPackageImportStamp>
     <IsWebBootstrapper>true</IsWebBootstrapper>
-    <PublishUrl>ftp://files.000webhost.com/public_html/inv_manager/</PublishUrl>
+    <PublishUrl>D:\ARECH\Desktop\InvManager_output\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Web</InstallFrom>
     <UpdateEnabled>true</UpdateEnabled>
@@ -26,7 +26,7 @@
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <InstallUrl>https://blackreality.000webhostapp.com/inv_manager/</InstallUrl>
+    <InstallUrl>https://jcs.bfnt.io/inv_manager/</InstallUrl>
     <TargetCulture>fr</TargetCulture>
     <ProductName>ISEN-Repair Inventory Manager</ProductName>
     <PublisherName>JCS%27s Production</PublisherName>
@@ -35,7 +35,7 @@
     <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
     <WebPage>index.htm</WebPage>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>2</ApplicationRevision>
+    <ApplicationRevision>3</ApplicationRevision>
     <ApplicationVersion>0.9.5.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>

ISEN-Repair Inventory Manager/Main.Designer.vb

@@ -459,6 +459,7 @@ Partial Class Main
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.MenuStrip1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MainMenuStrip = Me.MenuStrip1
         Me.MaximizeBox = False

ISEN-Repair Inventory Manager/Main.vb

@@ -137,7 +137,7 @@ Public Class Main
             CREATE TABLE `credits` (
 	        `pseudo`	TEXT DEFAULT 'JackCarterSmith' UNIQUE,
 	        `contact`	TEXT DEFAULT 'j@bfnt.io' UNIQUE,
-        	`commentaire`	TEXT DEFAULT 'Vous avez trouvé un EasterEgg félicitation !' UNIQUE
+        	`commentaire`	TEXT DEFAULT 'Vous avez trouvé un easter egg, félicitations !' UNIQUE
         );"
 
         Try
@@ -208,15 +208,14 @@ Public Class Main
     Private Sub IDBox_TextChanged(sender As Object, e As EventArgs) Handles IDBox.TextChanged
         If IDBox.Text = "666" Then
             manualID_selected = True
-            StatusLabel.Text = "ID trouvé !"
+            NameBox.Text = "DELL Fuel Burning Serial - Complete Collection"
-            NameBox.Text = "DELL Fuel Burning Serial - Complete collection"
+            EtatBox.Text = "Détonateur armé"
-            EtatBox.Text = "Detonator armed"
             SerieCheckBox.Checked = True
             DetailsBox.Text = "DEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEADDEAD"
             EmpruntCheckBox.Checked = False
             EmprunterName.Text = "Fuyez pauvre fou !"
             GivenByBox.Text = "Enfer"
-            StatusLabel.Text = "Vous avez trouvé un EasterEgg félicitation !"
+            StatusLabel.Text = "Vous avez trouvé un easter egg, félicitations !"
         End If
         If IDBox.Text.Length() = 10 Then
             Dim dtr As SQLiteDataReader

ISEN-Repair Inventory Manager/SplashScreen.vb

@@ -25,8 +25,4 @@
         'Informations de copyright
         Copyright.Text = My.Application.Info.Copyright
     End Sub
-
-    Private Sub MainLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles MainLayoutPanel.Paint
-
-    End Sub
 End Class