From a5dc2534743d4597b37a351134db75af1bbc9ce7 Mon Sep 17 00:00:00 2001 From: chi Date: Fri, 3 May 2019 21:15:50 +0900 Subject: [PATCH] =?UTF-8?q?QR=EC=BD=94=EB=93=9C=20=EA=B0=9C=EC=B2=B4=20?= =?UTF-8?q?=EC=9D=B4=EB=A6=84=E3=84=B9=EC=9D=B4=20=EB=8C=80=EC=86=8C?= =?UTF-8?q?=EB=AC=B8=EC=9E=90=EB=A7=8C=20=EB=8B=A4=EB=A5=B8=20=ED=98=95?= =?UTF-8?q?=ED=83=9C=EB=A1=9C=20=EB=90=98=EC=96=B4=EC=9E=88=EC=97=88?= =?UTF-8?q?=EC=9D=8C=20(=EC=9D=B4=EA=B2=83=EC=9D=B4=20=EC=98=A4=EB=A5=98?= =?UTF-8?q?=EC=98=80=EC=96=B4=EC=95=BC=20=ED=95=98=EB=8A=94=EB=8D=B0;=20?= =?UTF-8?q?=EA=B8=B0=EC=A1=B4=20=EB=8F=99=EC=9E=91=20=EB=B0=A9=EC=8B=9D?= =?UTF-8?q?=EC=9D=84=20=EB=AA=A8=EB=A5=B4=EA=B2=A0=EB=8B=A4.=20C#=EC=9D=B4?= =?UTF-8?q?=EC=97=88=EB=8B=A4=EB=A9=B4=20=EB=8C=80=EC=86=8C=EB=AC=B8?= =?UTF-8?q?=EC=9E=90=20=EA=B5=AC=EB=B6=84=EC=9C=BC=EB=A1=9C=20=EC=A7=84?= =?UTF-8?q?=ED=96=89=EB=90=98=EC=97=88=EB=8A=94=EB=8D=B0.=20=EB=B9=84?= =?UTF-8?q?=EB=B2=A0=EB=8A=94=20=EC=9D=B4=EA=B2=83=EC=9D=B4=20=EC=98=A4?= =?UTF-8?q?=EB=A5=98=EB=A1=9C=20=EC=9D=B8=EC=A7=80=EB=90=A8..=20=EA=B8=B0?= =?UTF-8?q?=EC=A1=B4=EC=9D=B4=EB=A6=84=EC=97=90=EC=84=9C=201=EC=9D=84=20?= =?UTF-8?q?=EB=B6=99=EC=9D=B8=EA=B1=B8=EB=A1=9C=20=EB=B3=80=EA=B2=BD?= =?UTF-8?q?=ED=96=88=EB=8B=A4.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CEpole.vbproj | 14 +++++++------- Defalut_PrintForm.vb | 24 ++++++++---------------- 2 files changed, 15 insertions(+), 23 deletions(-) diff --git a/CEpole.vbproj b/CEpole.vbproj index 13d170d..bc284bb 100644 --- a/CEpole.vbproj +++ b/CEpole.vbproj @@ -67,10 +67,6 @@ - - False - ..\ThoughtWorks.QRCode\QRCodeLib\ThoughtWorks.QRCode.dll - @@ -237,13 +233,17 @@ + + {FC8D5F6B-9892-48A4-BD90-4FA6F427567C} + ArinClassV2 + {3611D55B-71E3-4D92-9EFC-43F7D8BB8525} ArinNewFp5Net4 - - {FC8D5F6B-9892-48A4-BD90-4FA6F427567C} - ArinClassV2 + + {e98126b2-af17-4783-96b9-856d6744dca3} + QRCodeLib diff --git a/Defalut_PrintForm.vb b/Defalut_PrintForm.vb index 92dec22..567f75a 100644 --- a/Defalut_PrintForm.vb +++ b/Defalut_PrintForm.vb @@ -4,12 +4,6 @@ Imports System.IO Imports System.Drawing.Printing Imports CEpole.C_Epole -Imports ThoughtWorks.QRCode.Codec '//QR코드 -Imports ThoughtWorks.QRCode.Codec.Util -Imports ThoughtWorks.QRCode.Codec.Data - - - Public Class Defalut_PrintForm Dim 행정도시 As String = "" @@ -1706,14 +1700,14 @@ Public Class Defalut_PrintForm Dim image As Image Dim data As String = "" ' Dim errorCorrect As String - Dim qrCodeEncoder As New QRCodeEncoder() + Dim qrCodeEncoder1 As New ThoughtWorks.QRCode.Codec.QRCodeEncoder() ' Dim encoding As String - qrCodeEncoder.QRCodeEncodeMode = CInt(Rect.Encoding) - qrCodeEncoder.QRCodeErrorCorrect = CInt(Rect.CLeve) - qrCodeEncoder.QRCodeVersion = Rect.Version - qrCodeEncoder.QRCodeScale = Rect.Size + qrCodeEncoder1.QRCodeEncodeMode = CInt(Rect.Encoding) + qrCodeEncoder1.QRCodeErrorCorrect = CInt(Rect.CLeve) + qrCodeEncoder1.QRCodeVersion = Rect.Version + qrCodeEncoder1.QRCodeScale = Rect.Size 'encoding = "3" 'If encoding = "3" Then @@ -1756,9 +1750,9 @@ Public Class Defalut_PrintForm 'Ga.DrawString(QRCODE, New Font("arial", 30), Brushes.Black, 100, 100) - qrCodeEncoder.QRCodeBackgroundColor = Rect.bColor - qrCodeEncoder.QRCodeForegroundColor = Rect.fColor - image = qrCodeEncoder.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY) + qrCodeEncoder1.QRCodeBackgroundColor = Rect.bColor + qrCodeEncoder1.QRCodeForegroundColor = Rect.fColor + image = qrCodeEncoder1.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY) Dim NewSX As Single = Rect.X @@ -1780,8 +1774,6 @@ Public Class Defalut_PrintForm NewSY += +SetForm.MyProperty_Paper.출력여백Y End If - - If Rect.Width = 0 OrElse Rect.Height = 0 Then Ga.DrawImage(image, NewSX, NewSY) Else