1.21.12.11增加关闭文档菜单

AssemblyInfo.vb

@@ -28,5 +28,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers
 ' by using the '*' as shown below:
 
-<Assembly: AssemblyVersion("1.21.12.9")> 
-<Assembly: AssemblyFileVersionAttribute("1.21.12.9")> 
\ No newline at end of file
+<Assembly: AssemblyVersion("1.21.12.11")> 
+<Assembly: AssemblyFileVersionAttribute("1.21.12.11")> 
\ No newline at end of file

Form/AutoPartNumberDialog.Designer.vb

@@ -22,34 +22,34 @@ Partial Class AutoPartNumberDialog
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.OK_Button = New System.Windows.Forms.Button
-        Me.Cancel_Button = New System.Windows.Forms.Button
-        Me.Button1 = New System.Windows.Forms.Button
-        Me.Button2 = New System.Windows.Forms.Button
-        Me.Button3 = New System.Windows.Forms.Button
-        Me.ListView1 = New System.Windows.Forms.ListView
-        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
-        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
-        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
-        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
-        Me.TextBox1 = New System.Windows.Forms.TextBox
-        Me.Label1 = New System.Windows.Forms.Label
-        Me.Label2 = New System.Windows.Forms.Label
-        Me.Label3 = New System.Windows.Forms.Label
-        Me.TextBox3 = New System.Windows.Forms.TextBox
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox
-        Me.Button4 = New System.Windows.Forms.Button
-        Me.Button5 = New System.Windows.Forms.Button
-        Me.Label4 = New System.Windows.Forms.Label
-        Me.TextBox2 = New System.Windows.Forms.TextBox
-        Me.Button6 = New System.Windows.Forms.Button
-        Me.Button7 = New System.Windows.Forms.Button
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.ListView1 = New System.Windows.Forms.ListView()
+        Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'OK_Button
         '
         Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.OK_Button.Location = New System.Drawing.Point(470, 346)
+        Me.OK_Button.Location = New System.Drawing.Point(528, 385)
         Me.OK_Button.Name = "OK_Button"
         Me.OK_Button.Size = New System.Drawing.Size(57, 33)
         Me.OK_Button.TabIndex = 5
@@ -60,7 +60,7 @@ Partial Class AutoPartNumberDialog
         Me.Cancel_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Cancel_Button.AutoSize = True
         Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Cancel_Button.Location = New System.Drawing.Point(533, 346)
+        Me.Cancel_Button.Location = New System.Drawing.Point(591, 385)
         Me.Cancel_Button.Name = "Cancel_Button"
         Me.Cancel_Button.Size = New System.Drawing.Size(57, 33)
         Me.Cancel_Button.TabIndex = 6
@@ -68,8 +68,8 @@ Partial Class AutoPartNumberDialog
         '
         'Button1
         '
-        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button1.Location = New System.Drawing.Point(87, 346)
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.Location = New System.Drawing.Point(107, 385)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(69, 33)
         Me.Button1.TabIndex = 0
@@ -79,8 +79,8 @@ Partial Class AutoPartNumberDialog
         '
         'Button2
         '
-        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button2.Location = New System.Drawing.Point(393, 346)
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.Location = New System.Drawing.Point(413, 385)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(69, 33)
         Me.Button2.TabIndex = 4
@@ -89,8 +89,8 @@ Partial Class AutoPartNumberDialog
         '
         'Button3
         '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button3.Location = New System.Drawing.Point(158, 346)
+        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button3.Location = New System.Drawing.Point(178, 385)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(81, 33)
         Me.Button3.TabIndex = 21
@@ -108,7 +108,7 @@ Partial Class AutoPartNumberDialog
         Me.ListView1.FullRowSelect = True
         Me.ListView1.Location = New System.Drawing.Point(13, 12)
         Me.ListView1.Name = "ListView1"
-        Me.ListView1.Size = New System.Drawing.Size(578, 242)
+        Me.ListView1.Size = New System.Drawing.Size(636, 281)
         Me.ListView1.TabIndex = 22
         Me.ListView1.TabStop = False
         Me.ListView1.UseCompatibleStateImageBehavior = False
@@ -137,7 +137,7 @@ Partial Class AutoPartNumberDialog
         'TextBox1
         '
         Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.TextBox1.Location = New System.Drawing.Point(79, 276)
+        Me.TextBox1.Location = New System.Drawing.Point(79, 315)
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.Size = New System.Drawing.Size(134, 21)
         Me.TextBox1.TabIndex = 0
@@ -146,7 +146,7 @@ Partial Class AutoPartNumberDialog
         '
         Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(22, 279)
+        Me.Label1.Location = New System.Drawing.Point(22, 318)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(53, 12)
         Me.Label1.TabIndex = 25
@@ -156,7 +156,7 @@ Partial Class AutoPartNumberDialog
         '
         Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(219, 279)
+        Me.Label2.Location = New System.Drawing.Point(219, 318)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(65, 12)
         Me.Label2.TabIndex = 26
@@ -166,7 +166,7 @@ Partial Class AutoPartNumberDialog
         '
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(397, 279)
+        Me.Label3.Location = New System.Drawing.Point(397, 318)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(65, 12)
         Me.Label3.TabIndex = 28
@@ -175,7 +175,7 @@ Partial Class AutoPartNumberDialog
         'TextBox3
         '
         Me.TextBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.TextBox3.Location = New System.Drawing.Point(478, 276)
+        Me.TextBox3.Location = New System.Drawing.Point(478, 315)
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(73, 21)
         Me.TextBox3.TabIndex = 2
@@ -186,7 +186,7 @@ Partial Class AutoPartNumberDialog
         Me.ComboBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.ComboBox1.FormattingEnabled = True
         Me.ComboBox1.Items.AddRange(New Object() {"100", "10000"})
-        Me.ComboBox1.Location = New System.Drawing.Point(292, 276)
+        Me.ComboBox1.Location = New System.Drawing.Point(292, 315)
         Me.ComboBox1.Name = "ComboBox1"
         Me.ComboBox1.Size = New System.Drawing.Size(99, 20)
         Me.ComboBox1.TabIndex = 2
@@ -194,8 +194,8 @@ Partial Class AutoPartNumberDialog
         '
         'Button4
         '
-        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button4.Location = New System.Drawing.Point(244, 346)
+        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button4.Location = New System.Drawing.Point(264, 385)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(69, 33)
         Me.Button4.TabIndex = 29
@@ -204,8 +204,8 @@ Partial Class AutoPartNumberDialog
         '
         'Button5
         '
-        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button5.Location = New System.Drawing.Point(318, 346)
+        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button5.Location = New System.Drawing.Point(338, 385)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(69, 33)
         Me.Button5.TabIndex = 30
@@ -216,7 +216,7 @@ Partial Class AutoPartNumberDialog
         '
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(20, 307)
+        Me.Label4.Location = New System.Drawing.Point(20, 346)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(53, 12)
         Me.Label4.TabIndex = 31
@@ -225,15 +225,15 @@ Partial Class AutoPartNumberDialog
         'TextBox2
         '
         Me.TextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.TextBox2.Location = New System.Drawing.Point(79, 303)
+        Me.TextBox2.Location = New System.Drawing.Point(79, 342)
         Me.TextBox2.Name = "TextBox2"
         Me.TextBox2.Size = New System.Drawing.Size(361, 21)
         Me.TextBox2.TabIndex = 32
         '
         'Button6
         '
-        Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button6.Location = New System.Drawing.Point(14, 346)
+        Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button6.Location = New System.Drawing.Point(34, 385)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(69, 33)
         Me.Button6.TabIndex = 33
@@ -245,7 +245,7 @@ Partial Class AutoPartNumberDialog
         'Button7
         '
         Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button7.Location = New System.Drawing.Point(446, 301)
+        Me.Button7.Location = New System.Drawing.Point(446, 340)
         Me.Button7.Name = "Button7"
         Me.Button7.Size = New System.Drawing.Size(25, 25)
         Me.Button7.TabIndex = 34
@@ -257,7 +257,7 @@ Partial Class AutoPartNumberDialog
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.CancelButton = Me.Cancel_Button
-        Me.ClientSize = New System.Drawing.Size(603, 388)
+        Me.ClientSize = New System.Drawing.Size(661, 427)
         Me.Controls.Add(Me.Button7)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.TextBox2)

Form/ChangeIpro.Designer.vb

@@ -130,7 +130,7 @@ Partial Class ChangeIproDialog
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.TableLayoutPanel1)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "ChangeIproDialog"

Form/OptionDialog.Designer.vb

@@ -395,9 +395,10 @@ Partial Class OptionDialog
         '
         'Label5
         '
+        Me.Label5.AutoSize = True
         Me.Label5.Location = New System.Drawing.Point(12, 22)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(151, 40)
+        Me.Label5.Size = New System.Drawing.Size(41, 12)
         Me.Label5.TabIndex = 4
         Me.Label5.Text = "比例："
         '
@@ -499,11 +500,12 @@ Partial Class OptionDialog
         '
         'Label11
         '
+        Me.Label11.AutoSize = True
         Me.Label11.Location = New System.Drawing.Point(12, 22)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(215, 40)
+        Me.Label11.Size = New System.Drawing.Size(41, 12)
         Me.Label11.TabIndex = 4
-        Me.Label11.Text = "比例："
+        Me.Label11.Text = "质量："
         '
         'chk检查更新
         '

Form/PrintIPWDialog.Designer.vb

@@ -22,26 +22,26 @@ Partial Class PrintIPWDialog
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.OK_Button = New System.Windows.Forms.Button
-        Me.Cancel_Button = New System.Windows.Forms.Button
-        Me.Button1 = New System.Windows.Forms.Button
-        Me.Button2 = New System.Windows.Forms.Button
-        Me.Button3 = New System.Windows.Forms.Button
-        Me.Label1 = New System.Windows.Forms.Label
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox
-        Me.Label3 = New System.Windows.Forms.Label
-        Me.Label2 = New System.Windows.Forms.Label
-        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox
-        Me.CheckBox3 = New System.Windows.Forms.CheckBox
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox
-        Me.Button4 = New System.Windows.Forms.Button
-        Me.Button5 = New System.Windows.Forms.Button
-        Me.Button6 = New System.Windows.Forms.Button
-        Me.ListView1 = New System.Windows.Forms.ListView
-        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
-        Me.CheckBox4 = New System.Windows.Forms.CheckBox
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.ListView1 = New System.Windows.Forms.ListView()
+        Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
         Me.GroupBox1.SuspendLayout()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -125,6 +125,17 @@ Partial Class PrintIPWDialog
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "选项"
         '
+        'CheckBox4
+        '
+        Me.CheckBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.CheckBox4.AutoSize = True
+        Me.CheckBox4.Location = New System.Drawing.Point(620, 27)
+        Me.CheckBox4.Name = "CheckBox4"
+        Me.CheckBox4.Size = New System.Drawing.Size(84, 16)
+        Me.CheckBox4.TabIndex = 39
+        Me.CheckBox4.Text = "打印后关闭"
+        Me.CheckBox4.UseVisualStyleBackColor = True
+        '
         'Label3
         '
         Me.Label3.AutoSize = True
@@ -167,7 +178,7 @@ Partial Class PrintIPWDialog
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.Checked = True
         Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox3.Location = New System.Drawing.Point(541, 23)
+        Me.CheckBox3.Location = New System.Drawing.Point(541, 26)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(72, 16)
         Me.CheckBox3.TabIndex = 34
@@ -178,7 +189,7 @@ Partial Class PrintIPWDialog
         '
         Me.CheckBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(486, 23)
+        Me.CheckBox2.Location = New System.Drawing.Point(486, 26)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(48, 16)
         Me.CheckBox2.TabIndex = 33
@@ -191,7 +202,7 @@ Partial Class PrintIPWDialog
         Me.CheckBox1.AutoSize = True
         Me.CheckBox1.Checked = True
         Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox1.Location = New System.Drawing.Point(349, 23)
+        Me.CheckBox1.Location = New System.Drawing.Point(349, 26)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(132, 16)
         Me.CheckBox1.TabIndex = 32
@@ -247,17 +258,6 @@ Partial Class PrintIPWDialog
         Me.ColumnHeader1.Text = "文件名"
         Me.ColumnHeader1.Width = 650
         '
-        'CheckBox4
-        '
-        Me.CheckBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.CheckBox4.AutoSize = True
-        Me.CheckBox4.Location = New System.Drawing.Point(620, 24)
-        Me.CheckBox4.Name = "CheckBox4"
-        Me.CheckBox4.Size = New System.Drawing.Size(84, 16)
-        Me.CheckBox4.TabIndex = 39
-        Me.CheckBox4.Text = "打印后关闭"
-        Me.CheckBox4.UseVisualStyleBackColor = True
-        '
         'PrintIPWDialog
         '
         Me.AcceptButton = Me.Button1

My Project/Resources.Designer.vb

@@ -90,6 +90,66 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 保存关闭工程图161624() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("保存关闭工程图161624", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 保存关闭工程图323224() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("保存关闭工程图323224", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 保存关闭部件161624() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("保存关闭部件161624", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 保存关闭部件323224() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("保存关闭部件323224", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 保存关闭零件161624() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("保存关闭零件161624", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 保存关闭零件323224() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("保存关闭零件323224", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
         '''</summary>
@@ -170,6 +230,66 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 关闭工程图161624() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("关闭工程图161624", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 关闭工程图323224() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("关闭工程图323224", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 关闭部件161624() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("关闭部件161624", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 关闭部件323224() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("关闭部件323224", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 关闭零件161624() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("关闭零件161624", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
+        '''</summary>
+        Friend ReadOnly Property 关闭零件323224() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("关闭零件323224", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
         '''</summary>

My Project/Resources.resx

@@ -127,6 +127,24 @@
   <data name="保存关闭323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon\保存关闭323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="保存关闭工程图161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\保存关闭工程图161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="保存关闭工程图323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\保存关闭工程图323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="保存关闭部件161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\保存关闭部件161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="保存关闭部件323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\保存关闭部件323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="保存关闭零件161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\保存关闭零件161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="保存关闭零件323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\保存关闭零件323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="修改文件iProperty161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon\修改文件iProperty161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -151,6 +169,25 @@
   <data name="关于323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon\关于323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="关闭工程图161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\关闭工程图161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="关闭工程图323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\关闭工程图323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="关闭部件161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\关闭部件161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="关闭部件323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\关闭部件323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="关闭零件161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\关闭零件161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="关闭零件323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\icon\关闭零件323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="刷新引用161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon\刷新引用161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -220,7 +257,6 @@
   <data name="打印323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon\打印323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="打开ERP数据文件161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon\打开ERP数据文件161624..ICO;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>

ReadMe.MD

@@ -30,3 +30,5 @@
 [+]更新erp查询函数
 1.21.12.9
 [+]增加打开erp数据库文件菜单
+1.21.12.11
+[+]增加关闭文档菜单

StandardAddInServer.vb

 '设置为一个动作，可一次撤销