修复了压缩图片后图片顺序错乱的问题

NaughtDZ · May 6, 2024 · 18f076a · 18f076a
1 parent cca5cf6
commit 18f076a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Form1.vb b/Form1.vb
@@ -123,11 +123,11 @@ Public Class Form1
                     If TextBox3.Text >= 100 Then
                         tmpimages(i).Format = MagickFormat.Png24
                         tmpimages(i).Quality = 1
-                        tmpimages(i).Write(TextBox1.Text & "\temp\" & i & ".png")
+                        tmpimages(i).Write(TextBox1.Text & "\temp\" & i.ToString("D5") & ".png")
                     Else
                         tmpimages(i).Format = MagickFormat.Jpg
                         tmpimages(i).Quality = TextBox3.Text
-                        tmpimages(i).Write(TextBox1.Text & "\temp\" & i & ".jpg")
+                        tmpimages(i).Write(TextBox1.Text & "\temp\" & i.ToString("D5") & ".jpg")
                     End If
 
                     TrackBar1.Value += 1

diff --git a/捕获.PNG b/捕获.PNG