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