diff --git a/ISEN-Repair Inventory Manager/IDGenerator.vb b/ISEN-Repair Inventory Manager/IDGenerator.vb index 4b4c26d..5df1095 100644 --- a/ISEN-Repair Inventory Manager/IDGenerator.vb +++ b/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 \ No newline at end of file diff --git a/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj b/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj index c7369b3..24567f4 100644 --- a/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj +++ b/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj @@ -16,7 +16,7 @@ true - ftp://files.000webhost.com/public_html/inv_manager/ + D:\ARECH\Desktop\InvManager_output\ true Web true @@ -26,7 +26,7 @@ false false true - https://blackreality.000webhostapp.com/inv_manager/ + https://jcs.bfnt.io/inv_manager/ fr ISEN-Repair Inventory Manager JCS%27s Production @@ -35,7 +35,7 @@ true index.htm false - 2 + 3 0.9.5.%2a false true diff --git a/ISEN-Repair Inventory Manager/Main.Designer.vb b/ISEN-Repair Inventory Manager/Main.Designer.vb index 8d830fe..59084b9 100644 --- a/ISEN-Repair Inventory Manager/Main.Designer.vb +++ b/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 diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb index c56a425..412250d 100644 --- a/ISEN-Repair Inventory Manager/Main.vb +++ b/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" - EtatBox.Text = "Detonator armed" + NameBox.Text = "DELL Fuel Burning Serial - Complete Collection" + EtatBox.Text = "Détonateur armé" 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 diff --git a/ISEN-Repair Inventory Manager/SplashScreen.vb b/ISEN-Repair Inventory Manager/SplashScreen.vb index e3de21e..ae195b4 100644 --- a/ISEN-Repair Inventory Manager/SplashScreen.vb +++ b/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