| 
						
						
							
								
							
						
						
					 | 
					@ -136,7 +136,7 @@ Begin VB.Form Form_main | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					      Caption         =   "功能" | 
					 | 
					 | 
					      Caption         =   "功能" | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					      Begin VB.Menu menu_output_pic  | 
					 | 
					 | 
					      Begin VB.Menu menu_output_pic  | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					         Caption         =   "导出图片" | 
					 | 
					 | 
					         Caption         =   "导出图片" | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					         Begin VB.Menu ouput_pic_no_code  | 
					 | 
					 | 
					         Begin VB.Menu output_pic_no_code  | 
				
			
			
				
				
			
		
	
		
		
	
		
		
			
				
					 | 
					 | 
					            Caption         =   "无编码图片" | 
					 | 
					 | 
					            Caption         =   "无编码图片" | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					         End | 
					 | 
					 | 
					         End | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					         Begin VB.Menu output_pic_with_code  | 
					 | 
					 | 
					         Begin VB.Menu output_pic_with_code  | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
							
								
							
						
						
					 | 
					@ -235,11 +235,11 @@ Private Sub Form_Load() '  | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					  output.square_width = 1000 | 
					 | 
					 | 
					  output.square_width = 1000 | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					  Call Output_case(Form_main, case_main, output) ' 显示界面 | 
					 | 
					 | 
					  Call Output_case(Form_main, case_main, output) ' 显示界面 | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					End Sub | 
					 | 
					 | 
					End Sub | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					Private Sub ouput_pic_no_code_Click() ' 导出无编码图片 | 
					 | 
					 | 
					Private Sub output_pic_no_code_Click() ' 导出无编码图片 | 
				
			
			
				
				
			
		
	
		
		
	
		
		
			
				
					 | 
					 | 
					  Call output_pic(False) | 
					 | 
					 | 
					  Call output_pic(False) | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					  MsgBox "图片已保存" | 
					 | 
					 | 
					  MsgBox "图片已保存" | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					End Sub | 
					 | 
					 | 
					End Sub | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					Private Sub ouput_pic_with_code_Click() ' 导出带编码图片 | 
					 | 
					 | 
					Private Sub output_pic_with_code_Click() ' 导出带编码图片 | 
				
			
			
				
				
			
		
	
		
		
	
		
		
			
				
					 | 
					 | 
					  Call output_pic(True) | 
					 | 
					 | 
					  Call output_pic(True) | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					  MsgBox "图片已保存" | 
					 | 
					 | 
					  MsgBox "图片已保存" | 
				
			
			
		
	
		
		
			
				
					 | 
					 | 
					End Sub | 
					 | 
					 | 
					End Sub | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
					
  |