Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Math
Imports System.IO
Imports System.ComponentModel

Imports ThoughtWorks.QRCode.Codec '//QRÄÚµå
Imports ThoughtWorks.QRCode.Codec.Util
Imports ThoughtWorks.QRCode.Codec.Data

Public Class printformjjung
    Dim DrStyle As PatternDS.TStyleRow = Nothing
    Dim DtPattern As PatternDS.TPatternDataTable = Nothing

    Dim AllLabels() As Str_Alllabels    '//Àüü°¹¼ö´Â Ãß°¡ÇÒ´ë ¼ÂÆÃÇÑ´Ù.

    Dim S°ü¸®±¸(10) As MyControlOLEDBv2.MyLabel
    Dim SÀü»ê¹øÈ£(10) As MyControlOLEDBv2.MyLabel
    Dim S¼±·Î¸í_±â±â(20) As MyControlOLEDBv2.MyLabel
    Dim S¼±·Î¸í_º¯¾Ð(20) As MyControlOLEDBv2.MyLabel '//160131

    Dim SÀüÁÖ¹øÈ£(20) As MyControlOLEDBv2.MyLabel
    Dim S½Ã°ø³â¿ù(10) As MyControlOLEDBv2.MyLabel
    Dim S°ü¸®±¸ÀüÁÖ¹øÈ£(0) As MyControlOLEDBv2.MyLabel
    Dim S°ü¸®±¸ÀüÁÖ¹øÈ£2(0) As MyControlOLEDBv2.MyLabel
    Dim S½Ã°ø¾÷ü(0) As MyControlOLEDBv2.MyLabel
    Dim SÀϷùøÈ£(0) As MyControlOLEDBv2.MyLabel
    Dim Sº¯¾Ð±â¿ë·®(0) As MyControlOLEDBv2.MyLabel

    Dim SÁ¦Á¶³â¿ù(10) As MyControlOLEDBv2.MyLabel
    Dim SÁ¦Á¶È¸»ç(0) As MyControlOLEDBv2.MyLabel

    Dim S°ü¸®±¸2(10) As MyControlOLEDBv2.MyLabel
    Dim Sº¯¾Ð±âÀü»ê¹øÈ£(10) As MyControlOLEDBv2.MyLabel
    Dim Sº¯¾Ð±â¸í(0) As MyControlOLEDBv2.MyLabel
    Dim sÀü¿øÃø(0) As MyControlOLEDBv2.MyLabel
    Dim SºÎÇÏÃø(0) As MyControlOLEDBv2.MyLabel
    'Dim Sºñ°íII(0) As MyControlOLEDBv2.MyLabel
    'Dim sºñ°íIII(0) As MyControlOLEDBv2.MyLabel

    Dim S±â±â¸í(0) As MyControlOLEDBv2.MyLabel 'U
    'Dim Sºñ°í0(0) As MyControlOLEDBv2.MyLabel '//±â±â¸í
    'Dim Sºñ°í2(0) As MyControlOLEDBv2.MyLabel 'U ¹Ì»ç¿ëó¸®  160131
    'Dim Sºñ°í3(0) As MyControlOLEDBv2.MyLabel 'U

    Dim S¼±·Î¸í¼±·Î¹øÈ£_±â±â(0) As MyControlOLEDBv2.MyLabel 'LU  160123
    Dim S¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð(0) As MyControlOLEDBv2.MyLabel 'LF   '//¼±·Î¸íºÎºÐÀ» ±âÁ¸ ¼±·á¸í -> ºñ°í21 ·Î º¯°æ

    Dim St½Ã°ø¾÷ü(0) As MyControlOLEDBv2.MyLabel 'R
    Dim St½Ã°ø¾÷ü2(0) As MyControlOLEDBv2.MyLabel 'T
    Dim St½Ã°ø³â¿ù(0) As MyControlOLEDBv2.MyLabel 'V
    Dim St½Ã°ø³â¿ù2(0) As MyControlOLEDBv2.MyLabel 'W

    Dim St°íÀå½Å°í(0) As MyControlOLEDBv2.MyLabel 'Z

    Dim ¼±·Î¸í¼±·Î¹øÈ£_±â±â As String = vbNullString
    Dim ¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð As String = vbNullString
    Dim °ü¸®±¸ As String = vbNullString
    Dim Àü»ê¹øÈ£ As String = vbNullString
    Dim ¼±·Î¸í_±â±â As String = vbNullString
    Dim ¼±·Î¸í_º¯¾Ð As String = vbNullString
    Dim ÀüÁÖ¹øÈ£ As String = vbNullString
    Dim ½Ã°ø³â¿ù As String = vbNullString
    Dim ½Ã°ø¾÷ü As String = vbNullString
    Dim Á¦Á¶³â¿ù As String = String.Empty
    Dim Á¦Á¶È¸»ç As String = String.Empty
    Dim º¯¾Ð±â¿ë·® As String = vbNullString
    Dim º¯¾Ð±â»ó As String = vbNullString
    Dim ±â±â¸í As String = vbNullString
    'Dim ºñ°í0 As String = vbNullString
    'Dim ºñ°í2 As String = vbNullString
    'Dim ºñ°í3 As String = vbNullString

    Dim °íÀå½Å°í As String = vbNullString


    Dim t½Ã°ø¾÷ü, t½Ã°ø¾÷ü2 As String
    Dim t½Ã°ø³â¿ù, t½Ã°ø³â¿ù2 As String

    Dim °ü¸®±¸2, º¯¾Ð±âÀü»ê¹øÈ£ As String
    Dim º¯¾Ð±â¸í As String
    Dim Àü¿øÃø, ºÎÇÏÃø As String
    'Dim ºñ°íII, ºñ°íIII As String

    '//QRÄÚµå º¯¼ö

    Dim qrȨÆäÀÌÁö1 As String = ""
    Dim qrȨÆäÀÌÁö2 As String = ""
    Dim qrȨÆäÀÌÁö3 As String = ""
    Dim qrȨÆäÀÌÁö4 As String = ""


    Dim NoView As Boolean = False   '//LOAD_STYLE À» Àá½Ã ½ÇÇàÇÏÁö ¾Ê±âÀ§ÇÞ(Áߺ¹½ÇÇà¹æÁö)¼­ µÐ´Ù.(..À̺¥Æ®°¡.. -_-;;³Ê¹« Áߺ¹À¸·Î ¹ß»ýÇÔ)
    Dim °ü¸®±¸Á¶ÀÛµÊ As Boolean = True
    Dim Àü»ê¹øÈ£Á¶ÀÛµÊ As Boolean = True
    Dim ¼±·Î¸íÁ¶ÀÛµÊ As Boolean = True
    Dim ÀüÁÖ¹øÈ£Á¶ÀÛµÊ As Boolean = True
    Dim ½Ã°ø³â¿ùÁ¶ÀÛµÊ As Boolean = True

    Dim SrcIdx As Integer = -1  '//¿øº» ¸®ºä¿¡¼­ Ŭ¸¯µÈ À妽º
    Dim Srcnum As Integer = -1  '//¿øº» ¸®ºå¿¡¼­ Ŭ¸¯µÈ ¹øÈ£°ª
    Dim Srcrow As DataRowView
    Dim FirstIdx As Integer = -1 '//»õ·Î »ý¼ºµÈ ¸®ºä¿¡¼­ Àû¿ëµÉ À妽º

    'Public File As String = My.Application.Info.DirectoryPath & "\style.ini"   '//½ºÅ¸ÀÏ ÆÄÀÏ
    Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleEJ")
    Public FileC As String = My.Application.Info.DirectoryPath & "\styleCEJ.ini" '//»ç¿ëÀÚ ½ºÅ¸ÀÏ ÆÄÀÏ

    Private WithEvents pDoc As New PrintDocument()
    Dim SelCon As New ArrayList '//¼±ÅÃµÈ ·¹À̺íµéÀÌ ÀúÀåµÈ ¹è¿­ÀÌ´Ù.
    Dim onlyOne As MyControlOLEDBv2.MyLabel  '//Æ÷Ä¿½º¸¦ °¡Áø ·¹À̺íÀÌ´Ù.

    Dim srcTable As ireaDataSet.jjungtableDataTable    '//µ¥ÀÌÅÍ°¡ ÀúÀåµÉ Å×À̺í
    Dim Dv As DataView   '//µ¥ÀÌÅͺä(½ÇÁ¦·Î ÀÌ ºäÀÇ µ¥ÀÌÅ͸¦ °¡Áö°í Ãâ·ÂÀ» ÇàÇÑ´Ù.)

    Dim printindex As Integer = 0   '//ÇÁ¸°Æ®µÇ´Â ÆäÀÌÁö ¹øÈ£ ÀÌ°ªÀÌ -1 À̸é ÇöÀçÆäÀÌÁöÀ̹ǷΠ°»½ÅÇÏÁö ¾Ê°í Ãâ·ÂÇÑ´Ù.
    Dim PrintArray() As Integer '//ÇÁ¸°Æ®ÇÒ ÆäÀÌÁöÀÇ ¹è¿­¹øÈ£

    Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini"    '//ȯ°æ¼³Á¤ ÆÄÀÏ
    Dim PrintMode As Boolean = False

    Public Structure SProp

        <Browsable(True), Category("º¸±â"), Description("µ¥ÀÌÅÍÀϷùøÈ£")> _
        Public Property ÀϷùøÈ£ As Boolean

        <Browsable(True), Category("º¸±â"), Description("±â±â¹øÈ£(¼±·Î¸í+¼±·Î¹øÈ£)")> _
        Public Property ±â±â¹øÈ£ As Boolean

        <Browsable(True), Category("º¸±â"), Description("º¯¾Ð±â»çÇ×(¼±·Î¸í+¼±·Î¹øÈ£)")> _
        Public Property º¯¾Ð±â¹øÈ£ As Boolean


        <Browsable(True), Category("Àμâ"), Description("¼¼·ÎÃâ·ÂÀ̶ó¸é false ¸¦ °¡·ÎÃâ·ÂÀ̶ó¸é true ¸¦ ¼±ÅÃÇϼ¼¿ä.")> _
        Public Property °¡·ÎÃâ·Â As Boolean

        <Browsable(True), Category("Àμâ"), Description("Àμâ½Ã »ç¿ëÇÒ ¿©¹é")> _
        Public Property ¿©¹é As PointF

        <Browsable(True), Category("Àμâ"), Description("Àμâ½Ã »ç¿ëÇÒ È®´ë/Ãà¼Ò ºñÀ²")> _
        Public Property È®´ëºñÀ² As PointF



    End Structure

    Public Sub New()
        InitializeComponent()
        WLog2(Auto_Log, "New()", "\ÁöÁß¼øÂ÷·Î±×.txt")
    End Sub

    Public Sub New(ByRef Src As ireaDataSet.jjungtableDataTable, Optional ByVal IRow As DataRowView = Nothing)
        InitializeComponent()
        WLog2(Auto_Log, "New(srctable,srcRow)", "\ÁöÁß¼øÂ÷·Î±×.txt")
        srcTable = Src  '//°¡Á®¿Â Å×À̺íÀ» ÀÓ½ÃÅ×ÀÌºí¿¡ ÀúÀåÀ» ÇØµÎ°í »ç¿ëÇÑ´Ù.
        Srcrow = IRow  '//ÀÌ°ÍÀº Ŭ¸¯µÈ Çà¹øÈ£ÀÌ´Ù. ÀÌ Çà¹øÈ£¸¦ °¡Áö°í ½ºÅ¸ÀÏÀ» ÆǺ°ÇÑ´Ù
    End Sub

    Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'If Not BackWork Is Nothing Then BackWork = Nothing
        'Me.CustFP1.ColSize_Save()
        Me.dataview.Setting_Save(False, "printjjung", "\viewConfig\Jijung_")
        WLog2(Auto_Log, "Form_Close", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Save_Setting()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.dataview.Setting_Load(False, "printjjung", "\viewConfig\Jijung_")
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//´õºí¹öÆÛ¸µ
        WLog2(Auto_Log, "Form_Load()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        GetPrintersName()   '//ÇÁ¸°Å͸íÀ» °¡Á®¿É´Ï´Ù.
        Load_Setting()
        SetControls()   '//ÄÁÆ®·ÑÀ» ÃʱâÈ­ÇÏ°í ¼ÂÆÃÇÑ´Ù.

        If srcTable Is Nothing Then
            'MsgBox("¼Ò½º°¡¾ø¾î¼­ ±âº»¼ÂÆÃÀ¸·Î ÀüȯÇÔ")
            WLog2(Auto_Log, "°³¹ßÀÚ ±âº»¼ÂÆÃÀ¸·Î Àüȯ()", "\ÁöÁß¼øÂ÷·Î±×.txt")
            Common.Auto_Log = True
            Me.NoView = True
            'Me.detTableAdapter1.Connection.ConnectionString = ConString
            'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1)
            'Me.srcTable = Me.IreaDataSet1.jjungtable
            Admin = True
        End If

        Me.cmb_bigo1.SelectedIndex = 0

        WLog2(Auto_Log, "°³¹ßÀÚ¸ðµå=" & Admin.ToString, "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Admin Then
            For Each A As Control In Me.TabPage3.Controls
                If A.GetType.Name.ToUpper = "CHECKBOX" Then
                    A.Visible = True
                End If
            Next
        End If

        Me.SETTOOLTIP()
        GetStyleList()  '//style.ini ¿¡¼­ ½ºÅ¸Àϸñ·Ï¸í¸¸ °¡Á®¿Â´Ù.


        If Srcrow Is Nothing Then '//°¡Á®¿Â Çà°ªÀÌÀ妽º°¡ ¾øÀ¸¹Ç·Î 1¹ø° ½ºÅ¸ÀÏÀ» ÁöÁ¤ÇÑ´Ù.
            WLog2(Auto_Log, "°¡Á®¿Â Çà°ªÀÌ ¾ø½À´Ï´Ù. firstidx=0 / ÀϹݿëÀ¸·Î ¼ÂÆÃÇÕ´Ï´Ù()", "\ÁöÁß¼øÂ÷·Î±×.txt")
            FirstIdx = 0 '//¶ÇÇÑ ¸Ç óÀ½ µ¥ÀÌÅ͸¦ Ç¥½ÃÇϰԵȴÙ.
            'Me.cmb_style.Text = "ÀϹݿë"  '//¿©±â¼­ µ¥ÀÌÅÍ°¡ °É·¯Áö°ÔµÈ´Ù.
            Me.cmb_style.Text = "Áö»ó°³Æó±â(ÀϹݿë)"
        Else
            Srcnum = Srcrow("¹øÈ£") 'srcTable.Rows(SrcIdx).Item("¹øÈ£")

            'MsgBox(Srcrow("ºñ°í1").ToString)
            Dim »óº° As String


            Try
                »óº° = Srcrow("º¯¾Ð±â»ó").ToString.Trim
            Catch ex As Exception
                '  MsgBox(ex.Message.ToString)
                »óº° = ""
            End Try

            If »óº° = "" Then
                Me.cmb_style.Text = "Áö»ó°³Æó±â(ÀϹݿë)"
            Else
                Me.cmb_style.Text = "Áö»óº¯¾Ð±â(ÀϹݿë)"
            End If
        End If
        If Me.cmb_style.SelectedIndex < 0 AndAlso Me.cmb_style.Items.Count > 0 Then Me.cmb_style.SelectedIndex = 0

    End Sub

    Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'If SelCon Is Nothing Then Return
        'Dim Tobj As MyControlOLEDBv2.MyLabel
        Select Case e.KeyCode
            Case Keys.Up
                If e.Shift Then '//±Û¾¾³ôÀÌ
                    Me.CtrSize(True, -1)
                Else
                    Me.CtrPos(True, -1)
                End If
                'Me.ViewProperty(SelCon(0))
                e.Handled = True
            Case Keys.Down
                If e.Shift Then
                    Me.CtrSize(True, 1)
                Else
                    Me.CtrPos(True, 1)
                End If
                'ViewProperty(Tobj)
                e.Handled = True
            Case Keys.Left
                If e.Shift Then
                    Me.CtrSize(False, -1)
                Else
                    Me.CtrPos(False, -1)
                End If
                'ViewProperty(Tobj)
                e.Handled = True
            Case Keys.Right
                If e.Shift Then
                    Me.CtrSize(False, 1)
                Else
                    Me.CtrPos(False, 1)
                End If
                'ViewProperty(Tobj)
                e.Handled = True
            Case Keys.S
                If e.Control Then
                    Me.bt_savenum.PerformClick()
                End If
            Case Keys.F7
                Me.bt_print.PerformButtonClick()
            Case Keys.F8
                Me.bt_prnpreview.PerformClick()
        End Select

    End Sub

    Public Sub AddControl(ByRef CtlCnt As Short, ByVal ¼³¸í As String, ByVal tag As String, ByVal Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox, Optional ByVal bPattern As String = "")
        Cb.Tag = tag
        Cb.Text = ¼³¸í
        For i As Integer = 0 To Labels.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            Labels(i) = New MyControlOLEDBv2.MyLabel
            Labels(i).¼³¸í = ¼³¸í & i + 1
            Labels(i).DIV = tag
            Labels(i).Name = tag & i + 1
            Labels(i).TextValue = ""
            Labels(i).Repeat = 0
            Labels(i).RepeatX = 0
            Labels(i).RepeatY = 0
            Labels(i).Pattern = bPattern
            ReDim Preserve AllLabels(CtlCnt)
            AllLabels(CtlCnt).ctl = Labels(i)
            Me.cmb_controls.Items.Add(Labels(i).¼³¸í)
            CtlCnt += 1
        Next
        Labels(0).CheckBox = Cb
        Labels(0).Pattern = bPattern
    End Sub

    Private Sub SetControls()
        WLog2(Auto_Log, "SetControls()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim CtlCnt As Short = 0

        AddControl(CtlCnt, "ÀϷùøÈ£", "N", Me.SÀϷùøÈ£, Me.cb_n)
        AddControl(CtlCnt, "°ü¸®±¸,Àü»ê¹øÈ£", "G", Me.S°ü¸®±¸ÀüÁÖ¹øÈ£, Me.cb_g)

        AddControl(CtlCnt, "°ü¸®±¸", "H", Me.S°ü¸®±¸, Me.cb_h, "CNUMPATTERN")
        AddControl(CtlCnt, "Àü»ê¹øÈ£", "S", Me.SÀü»ê¹øÈ£, Me.cb_s, "JUNSANPATTERN")

        AddControl(CtlCnt, "¼±·Î¸í(±â±â)", "L", Me.S¼±·Î¸í_±â±â, Me.cb_l, "LINEPATTERN")
        AddControl(CtlCnt, "¼±·Î¸í(º¯¾Ð)", "A", Me.S¼±·Î¸í_º¯¾Ð, Me.cb_a, "LINEPATTERNBYUN")

        AddControl(CtlCnt, "¼±·Î¸í¹øÈ£(±â±â)", "LU", Me.S¼±·Î¸í¼±·Î¹øÈ£_±â±â, Me.cb_lu, "LUPATTERN")
        AddControl(CtlCnt, "¼±·Î¸í¹øÈ£(º¯¾Ð)", "LF", Me.S¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð, Me.cb_lf, "LFPATTERN")

        AddControl(CtlCnt, "ÀüÁÖ¹øÈ£", "X", Me.SÀüÁÖ¹øÈ£, Me.cb_x, "JJNUMPATTERN")

        AddControl(CtlCnt, "°ü¸®±¸(º¯)", "D", Me.S°ü¸®±¸2, Me.cb_d, "BKWANPATTERN")
        AddControl(CtlCnt, "Àü»ê¹øÈ£(º¯)", "E", Me.Sº¯¾Ð±âÀü»ê¹øÈ£, Me.cb_e, "BJUNSAN2PATTERN")

        AddControl(CtlCnt, "½Ã°ø¾÷ü", "C", Me.S½Ã°ø¾÷ü, Me.cb_c, "COMPPATTERN")
        AddControl(CtlCnt, "½Ã°ø³â¿ù", "Y", Me.S½Ã°ø³â¿ù, Me.cb_y, "YYMMPATTERN")

        AddControl(CtlCnt, "Á¦Á¶È¸»ç", "B", Me.SÁ¦Á¶È¸»ç, Me.cb_b, "BBMPPATTERN")
        AddControl(CtlCnt, "Á¦Á¶³â¿ù", "M", Me.SÁ¦Á¶³â¿ù, Me.cb_m, "MMMMPATTERN")

        AddControl(CtlCnt, "º¯¾Ð±â°ü¸®±¸,Àü»ê¹øÈ£", "P", Me.S°ü¸®±¸ÀüÁÖ¹øÈ£2, Me.cb_p)

        AddControl(CtlCnt, "º¯¾Ð±â¸í", "F", Me.Sº¯¾Ð±â¸í, Me.cb_f, "BYUNAPATTERN")
        AddControl(CtlCnt, "º¯¾Ð±â¿ë·®", "J", Me.Sº¯¾Ð±â¿ë·®, Me.cb_j, "BAPPATTERN")

        AddControl(CtlCnt, "Àü¿øÃø", "I", Me.sÀü¿øÃø, Me.cb_i, "JOPNWONPATTERN")
        AddControl(CtlCnt, "ºÎÇÏÃø", "K", Me.SºÎÇÏÃø, Me.cb_k, "BUHAWONPATTERN")

        AddControl(CtlCnt, "±â±â¸í", "U", Me.S±â±â¸í, Me.cb_u, "BIGOPATTERN")

   

        AddControl(CtlCnt, "¹®ÀÚ(½Ã°ø¾÷ü)", "R", Me.St½Ã°ø¾÷ü, Me.cb_r)
        AddControl(CtlCnt, "¹®ÀÚ(½Ã°ø¾÷üII)", "T", Me.St½Ã°ø¾÷ü2, Me.cb_t)

        AddControl(CtlCnt, "¹®ÀÚ(½Ã°ø³â¿ù)", "V", Me.St½Ã°ø³â¿ù, Me.cb_v)
        AddControl(CtlCnt, "¹®ÀÚ(½Ã°ø³â¿ùII)", "W", Me.St½Ã°ø³â¿ù2, Me.cb_w)

        AddControl(CtlCnt, "°íÀå½Å°í", "Z", Me.St°íÀå½Å°í, Me.cb_gojang)

        'AddControl(CtlCnt, "ºñ°í1", "Q", Me.Sºñ°í0, Me.cb_q)
        'AddControl(CtlCnt, "ºñ°í2", "A", Me.Sºñ°í2, Me.cb_a)
        'AddControl(CtlCnt, "ºñ°í3", "B", Me.Sºñ°í3, Me.cb_b)

        'AddControl(CtlCnt, "ºñ°íII", "M", Me.Sºñ°íII, Me.cb_m)
        'AddControl(CtlCnt, "ºñ°íIII", "O", Me.sºñ°íIII, Me.cb_o)

    End Sub

    Private Sub SETTOOLTIP()
        WLog2(Auto_Log, "Settooltip()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim TMSG As New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("¼±Åð¡´ÉÇÑ °³Ã¼¸ñ·ÏÀ» º¼ ¼ö ÀÕ½À´Ï´Ù")
        TMSG.AppendLine()
        TMSG.AppendLine("È­¸é¿¡ º¸ÀÌÁö ¾Ê´Â °³Ã¼µµ ¼±ÅÃÀÌ °¡´ÉÇÕ´Ï´Ù")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString)

        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("¡å ¿¬¼ÓµÈ ÆäÀÌÁö´Â -(¸¶À̳ʽº) ·Î ±¸ºÐÇÕ´Ï´Ù")
        TMSG.AppendLine("   ¿¹) 2ÆäÀÌÁö¿¡¼­ 8ÆäÀÌÁö±îÁö :  2-8")
        TMSG.AppendLine()
        TMSG.AppendLine("¡å ºÒ±ÔÄ¢ ÆäÀÌÁö´Â ,(ÄÞ¸¶) ·Î ±¸ºÐÇÕ´Ï´Ù")
        TMSG.AppendLine("   ¿¹) 1,3,4,10 ÆäÀÌÁö : 1,3,4,7")
        TMSG.AppendLine()
        TMSG.AppendLine("¡å °¢Á¶°ÇÀÇ ±¸ºÐÀº /(½½·¡½¬) ·Î ±¸ºÐÇÕ´Ï´Ù")
        TMSG.AppendLine("   ¿¹) 2~8ÆäÀÌÁö¿Í 11,15¹ø ÆäÀÌÁö : 2-8/11,15")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString)

        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("<°³Ã¼µéÀÇ »óŸ¦ È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù>")
        TMSG.AppendLine()
        TMSG.AppendLine("¿ÞÂÊŬ¸¯½Ã Çش簳ü¸¸ ¼±Åõ˴ϴÙ.")
        TMSG.AppendLine("Ctrl + ¿ÞÂÊŬ¸¯½Ã Çش簳ü°¡ ¼ÓÇÑ ±×·ìÀÌ ¼±Åõ˴ϴÙ.")
        TMSG.AppendLine("¿ìŬ¸¯½Ã ¼±ÅÃµÈ °³Ã¼°¡ Ãß°¡µË´Ï´Ù(´ÙÁß¼±Åñâ´É)")
        TMSG.AppendLine()
        TMSG.AppendLine("[¹øÈ£Ãâ·Â½Ã »ö»ó±¸ºÐ]")
        TMSG.AppendLine("Èæ»ö :  ¹®ÀÚÆÐÅÏ Àû¿ë")
        TMSG.AppendLine("³ì»ö :  ±æÀÌÆÐÅÏ Àû¿ë")
        TMSG.AppendLine("Àû»ö :  ±æÀÌ,¹®ÀÚÆÐÅÏ ¹ÌÀû¿ë")
        TMSG.AppendLine()
        TMSG.AppendLine(">>ȯ°æ¼³Á¤¿¡¼­ »ö»ó±¸ºÐÀÌ °¡´ÉÇϵµ·Ï ¼³Á¤µÇ¾î¾ß ÇÕ´Ï´Ù")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString)

        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("<»ç¿ëÇÒ ÇÁ¸°Å͸¦ ¼±ÅÃÇϼ¼¿ä>")
        TMSG.AppendLine()
        TMSG.AppendLine("¾Æ¹«°Íµµ ÀԷµÇÁö ¾Ê¾ÒÀ¸¸é ±âº»ÇÁ¸°ÅÍ·Î Ãâ·ÂµË´Ï´Ù.")
        TMSG.AppendLine("ÇöÀç ¼³Ä¡µÇ¾îÀÖ´Â ÇÁ¸°ÅÍ ¸ñ·ÏÀÌ Ç¥½ÃµË´Ï´Ù.")
        TMSG.AppendLine()
        Me.combobox5.ToolTipText = TMSG.ToString
        'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString)



        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("<2¹ø° ÀåÀÌ Ãâ·ÂµÉ À§Ä¡¸¦ °áÁ¤Çϼ¼¿ä.>")
        TMSG.AppendLine()
        TMSG.AppendLine("2¹ø° ÀåÀÌ Ãâ·ÂµÉ¶§ 1¹ø°Àå°úÀÇ ¿ÞÂʰŸ® °ªÀÔ´Ï´Ù. 0 À¸·ÎÇÒ°æ¿ì µ¿ÀÏÇÑ X°ªÀÌ µË´Ï´Ù.")
        TMSG.AppendLine("°°Àº ÁÙ ¾Æ·¡ÂÊ¿¡ Ç¥½Ã¸¦ ÇÏ·Á¸é X=0 À¸·ÎµÎ°í Y=°ªÀ» ÀÓÀÇ·Î ÀÔ·ÂÇϼ¼¿ä")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString)

        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("<2¹ø° ÀåÀÌ Ãâ·ÂµÉ À§Ä¡¸¦ °áÁ¤Çϼ¼¿ä.>")
        TMSG.AppendLine()
        TMSG.AppendLine("2¹ø° ÀåÀÌ Ãâ·ÂµÉ¶§ 1¹ø°Àå°úÀÇ À§ÂʰŸ® °ªÀÔ´Ï´Ù. 0 À¸·ÎÇÒ°æ¿ì µ¿ÀÏÇÑ Y°ªÀÌ µË´Ï´Ù.")
        TMSG.AppendLine("°°Àº ÁÙ ¾Æ·¡ÂÊ¿¡ Ç¥½Ã¸¦ ÇÏ·Á¸é X=0 À¸·ÎµÎ°í Y=°ªÀ» ÀÓÀÇ·Î ÀÔ·ÂÇϼ¼¿ä")
        TMSG.AppendLine()
        Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString)

        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine()
        TMSG.AppendLine("<2Àå Ãâ·Â½Ã µ¥ÀÌÅÍÀÇ Ãâ·Â¹æ¹ýÀ» ¼±ÅÃÇϼ¼¿ä.>")
        TMSG.AppendLine()
        TMSG.AppendLine("[º¹»ç]´Â ÇöÀçµ¥ÀÌÅÍ¿Í µ¿ÀÏÇÑ µ¥ÀÌÅÍ°¡ Ç¥½ÃµË´Ï´Ù.")
        TMSG.AppendLine("[´ÙÀ½]Àº ´ÙÀ½µ¥ÀÌÅÍ°¡ Ç¥½ÃµË´Ï´Ù.")
        TMSG.AppendLine()
        TMSG.AppendLine("µ¿ÀÏÇÑ µ¥ÀÌÅ͸¦ Çѹø´õ Ãâ·ÂÇÏ·Á¸é [º¹»ç]¸¦ ¼±ÅÃÇϼ¼¿ä.")
        TMSG.AppendLine("´ÙÀ½µ¥ÀÌÅͱîÁö Ãâ·ÂÇÏ·Á¸é [´ÙÀ½]À» ¼±ÅÃÇϼ¼¿ä")
        Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString)

        TMSG = New System.Text.StringBuilder()
        TMSG.AppendLine("³ì»öÀº ±æÀÌÆÐÅϸ¸ Àû¿ëµÈ ¾ÆÀÌÅÛÀ̸ç")
        TMSG.AppendLine("Àû»öÀº ±æÀÌ,¹®ÀÚÆÐÅÏÀÌ Á¸ÀçÇÏÁö ¾Ê´Â ¾ÆÀÌÅÛÀÔ´Ï´Ù")
        TMSG.AppendLine("Èæ»öÀº ¹®ÀÚÆÐÅÏÀ̳ª ±æÀÌ,¹®ÀÚÆÐÅÏÀÌ Á¸ÀçÇÏ´Â °æ¿ìÀÔ´Ï´Ù.")
        TMSG.AppendLine()
        'Me.ToolTip1.SetToolTip(Me.X1, X1.¼³¸í & vbCrLf & TMSG.ToString)
        'Me.ToolTip1.SetToolTip(Me.X2, X2.¼³¸í & vbCrLf & TMSG.ToString)
        'Me.ToolTip1.SetToolTip(Me.X3, X3.¼³¸í & vbCrLf & TMSG.ToString)



    End Sub
    Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs)
        WLog2(Auto_Log, "°³Ã¼¸¦ ´õºíŬ¸¯Çß½À´Ï´Ù.(ÀÌ°ÍÀº »ç¿ëµÇÁö ¾ÊÀ½)", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim Msg As New System.Text.StringBuilder("º¯°æÇÒ °ªÀ» ÀÔ·ÂÇϼ¼¿ä")
        Msg.AppendLine("ÁٹٲÞÀ»ÇÏ·Á¸é \n À» ÀÔ·ÂÇϼ¼¿ä")
        Msg.AppendLine("¿¹) ¼¼·Î·Î 12¸¦ Ãâ·ÂÇÏ·Á¸é 1\n2 À» ÀÔ·ÂÇϼ¼¿ä")
        Msg.AppendLine()
        Msg.AppendLine("º¯°æÇÑ °ªÀº ÇöÀçÆäÀÌÁö¿¡¸¸ Àû¿ëµË´Ï´Ù")
        Dim A As MyControlOLEDBv2.MyLabel = sender
        Dim Val As String = InputBox(Msg.ToString, "º¯°æ", A.MyText)
        If Val = "" Then Return
        Val = Val.Replace("\n", vbCrLf)
        A.MyText = Val
        '//preview ´Â ¾Æ¸¶µµ ÇÈÃĹڽº ´õºíŬ¸¯¿¡¼­ Á¤ÀÇÇѵí ÇÏ´Ù.
    End Sub
    Private Sub Save_Setting()
        WLog2(Auto_Log, "ÇöÀç ¼³Á¤(½ºÅ¸ÀÏ)À» ÀúÀåÇÕ´Ï´Ù.", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim A As New MyINI2(SettingFile)
        A.Write("PRINTFORM", "printername", Me.combobox5.Text)   '//ÆÐÅÏ°Ë»çÁ¶°Ç ÄÞº¸¹Ú½º      
    End Sub
    Private Sub Load_Setting()
        WLog2(Auto_Log, "ÇöÀç¼³Á¤(½ºÅ¸ÀÏ)À» °¡Á®¿É´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        WLog2(Auto_Log, "Load_Setting()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim a As New MyINI2(SettingFile)
        Me.combobox5.Text = a.Read("PRINTFORM", "printername", "")
    End Sub

    Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = -1)
        ' Dim STARTTIME, ENDTIME As Date
        WLog2(Auto_Log, "GetviewData ÁøÀÔ()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then
            WLog2(Auto_Log, "GetViewData : À妽º°¡ ¾ø°Å³ª ¹®Á¦°¡ Àվ ¸®ÅÏÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
            ' MsgBox("GETVIEWDATA : µ¥ÀÌÅÍ°¡ ¾ø°Å³ª À߸øµÈ À妽º ÀÔ´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "È®ÀÎ")
            Return '//À߸øµÈ À妽º´Â ¸®ÅÏ
        End If
        ' STARTTIME = Now
        '//ÇöÀç Å×ÀÌºí¿¡¼­ µ¥ÀÌÅ͸¦ Ç¥½ÃÇÑ´Ù. Çö Å×À̺íÀº Á¾·ùº°·Î ±¸ºÐÁö¾îÁø Å×À̺íÀÌ´Ù DV
        '//¸ðµçµ¥ÀÌÅ͸¦ ÄÁÆ®·Ñ¿¡Ç¥½ÃÇÑÈÄ Ãâ·Â¹°ÀÇ ±¸ºÐ(ÀϹݿë/±âÀÔµî)À» Áþ´Â´Ù.
        'Dim ¼±·Î¸íÆÐÅÏ°Ë»ç As Integer = 0
        'Dim ÀåôÆÐÅÏ°Ë»è As Integer = 0
        °ü¸®±¸ = GetSpread(Me.Dv, index, "°ü¸®±¸")
        Àü»ê¹øÈ£ = GetSpread(Me.Dv, index, "Àü»êÈ­¹øÈ£")
        ¼±·Î¸í_±â±â = GetSpread(Me.Dv, index, "¼±·Î¸í")
        ¼±·Î¸í_º¯¾Ð = GetSpread(Me.Dv, index, "º¯¾Ð±â¼±·Î")

        ¼±·Î¸í¼±·Î¹øÈ£_±â±â = GetSpread(Me.Dv, index, "¼±·Î¸í") & GetSpread(Me.Dv, index, "¹øÈ£1") ' & GetSpread(Me.Dv, index, "¹øÈ£2")
        ¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð = GetSpread(Me.Dv, index, "º¯¾Ð±â¼±·Î") & GetSpread(Me.Dv, index, "º¯¾Ð±â¸í") '//160131 ¼±·Î¸íº°µµ·Î ºñ°í21¿¡¼­ÁöÁ¤

        ÀüÁÖ¹øÈ£ = GetSpread(Me.Dv, index, "¹øÈ£1") & GetSpread(Me.Dv, index, "¹øÈ£2") & GetSpread(Me.Dv, index, "¹øÈ£3") & GetSpread(Me.Dv, index, "¹øÈ£4") & GetSpread(Me.Dv, index, "¹øÈ£5")
        ½Ã°ø³â¿ù = GetSpread(Me.Dv, index, "½Ã°ø³â¿ù")
        ½Ã°ø¾÷ü = GetSpread(Me.Dv, index, "½Ã°ø¾÷ü")

        Á¦Á¶È¸»ç = GetSpread(Me.Dv, index, "Á¦Á¶È¸»ç")
        Á¦Á¶³â¿ù = GetSpread(Me.Dv, index, "Á¦Á¶³â¿ù")

        º¯¾Ð±â¿ë·® = GetSpread(Me.Dv, index, "º¯¾Ð±â¿ë·®")
        º¯¾Ð±â»ó = GetSpread(Me.Dv, index, "º¯¾Ð±â»ó")

        °ü¸®±¸2 = GetSpread(Me.Dv, index, "°ü¸®±¸2")
        Me.º¯¾Ð±âÀü»ê¹øÈ£ = GetSpread(Me.Dv, index, "Àü»ê¹øÈ£2")
        º¯¾Ð±â¸í = GetSpread(Me.Dv, index, "º¯¾Ð±â¸í")
        Àü¿øÃø = GetSpread(Me.Dv, index, "Àü¿øÃø")
        ºÎÇÏÃø = GetSpread(Me.Dv, index, "ºÎÇÏÃø")
        'ºñ°íII = GetSpread(Me.Dv, index, "ºñ°í21")
        'ºñ°íIII = GetSpread(Me.Dv, index, "ºñ°í22")

        ±â±â¸í = GetSpread(Me.Dv, index, "ºñ°í1") '//ÀÌ°ÍÀÌ PADSW ±×·±°ÍµéÀÌ´Ù.

        'ºñ°í0 = "½Ã°ø¾÷ü:" '//GetSpread(me.dv,index, "ºñ°í0")   '//ÀÌ°ÍÀÌ ºñ°í1
        'ºñ°í2 = "½Ã°ø³â¿ù:" '//GetSpread(me.dv,index, "ºñ°í2")   '//ºñ°í2
        'ºñ°í3 = GetSpread(Me.Dv, index, "ºñ°í3")   '//ºñ°í3

        t½Ã°ø¾÷ü = "½Ã°ø¾÷ü"
        t½Ã°ø¾÷ü2 = "½Ã°ø¾÷ü:"
        t½Ã°ø³â¿ù = "½Ã°ø³â¿ù"
        t½Ã°ø³â¿ù2 = "½Ã°ø³â¿ù:"

        °íÀå½Å°í = Me.gojang.Text.ToString()

        AddLog(Admin, "°³¹ßÀÚ¸ðµå=" & Admin.ToString, "\Alllog.txt")
        If Admin Then  '//°³¹ßÀÚ¸ðµå´Â üũ¹Ú½º¸¦ »ç¿ëÇÒ¼ö ÀÖ°ÔÇÑ´Ù.
            showlog()
        End If

        WLog2(Auto_Log, "µ¥ÀÌÅͺäÀÇ µ¥ÀÌÅ͸¦ º¯¼ö·Î °¡Á®¿À±â ¿Ï·á()", "\ÁöÁß¼øÂ÷·Î±×.txt")

        Me.Text = "ÁöÁß¹øÈ£Âû Ãâ·ÂÀÛ¾÷(" & ÀüÁÖ¹øÈ£ & ") " & ±â±â¸í

        WLog2(Auto_Log, "PASE±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        '============ ¿©±â´Â µû·Î Çؼ®ÀÌ ¾ø´Â°÷ÀÌ´Ù ==========================================================
        'Me.PARSE(Me.ºñ°í0, Me.Sºñ°í0)
        'Me.PARSE(Me.ºñ°í2, Me.Sºñ°í2)
        'Me.PARSE(Me.ºñ°í3, Me.Sºñ°í3)
        'Me.PARSE(Me.ºñ°íII, Me.Sºñ°íII)
        'Me.PARSE(Me.ºñ°íIII, Me.sºñ°íIII)

        Me.PARSE(Me.t½Ã°ø¾÷ü, Me.St½Ã°ø¾÷ü)
        Me.PARSE(Me.t½Ã°ø¾÷ü2, Me.St½Ã°ø¾÷ü2)
        Me.PARSE(Me.t½Ã°ø³â¿ù, Me.St½Ã°ø³â¿ù)
        Me.PARSE(Me.t½Ã°ø³â¿ù2, Me.St½Ã°ø³â¿ù2)
        Me.PARSE(Me.°íÀå½Å°í, Me.St°íÀå½Å°í)
        '====================================================================================================

        WLog2(Auto_Log, "ÆÐÅÏÀÌÀÖ´Â PASE ±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Me.PARSE(½Ã°ø³â¿ù, Me.S½Ã°ø³â¿ù) Then Me.PARSE_PATTERN(½Ã°ø³â¿ù, Me.S½Ã°ø³â¿ù)
        If Me.PARSE(½Ã°ø¾÷ü, Me.S½Ã°ø¾÷ü) Then Me.PARSE_PATTERN(½Ã°ø¾÷ü, Me.S½Ã°ø¾÷ü)

        '//170320
        If Me.PARSE(Á¦Á¶³â¿ù, Me.SÁ¦Á¶³â¿ù) Then Me.PARSE_PATTERN(Á¦Á¶³â¿ù, Me.SÁ¦Á¶³â¿ù)
        If Me.PARSE(Á¦Á¶È¸»ç, Me.SÁ¦Á¶È¸»ç) Then Me.PARSE_PATTERN(Á¦Á¶È¸»ç, Me.SÁ¦Á¶È¸»ç)


        If Me.PARSE(¼±·Î¸í_±â±â, Me.S¼±·Î¸í_±â±â) Then Me.PARSE_PATTERN(¼±·Î¸í_±â±â, Me.S¼±·Î¸í_±â±â)
        If Me.PARSE(¼±·Î¸í_º¯¾Ð, Me.S¼±·Î¸í_º¯¾Ð) Then Me.PARSE_PATTERN(¼±·Î¸í_º¯¾Ð, Me.S¼±·Î¸í_º¯¾Ð)

        '//¾Æ·¡´Â °¢ ±â±â,º¯¾Ðº°·Î ¼±·Î¸í + ¼±·Î¹øÈ£°¡ ÇÕÃÄÁø ¹®±¸ÀÌ´Ù.
        If Me.PARSE(¼±·Î¸í¼±·Î¹øÈ£_±â±â, Me.S¼±·Î¸í¼±·Î¹øÈ£_±â±â) Then Me.PARSE_PATTERN(¼±·Î¸í¼±·Î¹øÈ£_±â±â, Me.S¼±·Î¸í¼±·Î¹øÈ£_±â±â)
        If Me.PARSE(¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð, Me.S¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð) Then Me.PARSE_PATTERN(¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð, Me.S¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð)


        If Me.PARSE(±â±â¸í, Me.S±â±â¸í) Then Me.PARSE_PATTERN(±â±â¸í, Me.S±â±â¸í)

        If Me.PARSE(°ü¸®±¸, Me.S°ü¸®±¸) Then Me.PARSE_°ü¸®±¸ÆÐÅÏ(°ü¸®±¸)
        If Me.PARSE(Àü»ê¹øÈ£, Me.SÀü»ê¹øÈ£) Then Me.PARSE_PATTERN(Àü»ê¹øÈ£, Me.SÀü»ê¹øÈ£)
        

        'Me.PARSE(¼±·Î¸í, Me.S¼±·Î¸í)

        If Me.PARSE(°ü¸®±¸2, Me.S°ü¸®±¸2) Then Me.PARSE_°ü¸®±¸ÆÐÅÏ2(°ü¸®±¸2)
        If Me.PARSE(º¯¾Ð±âÀü»ê¹øÈ£, Me.Sº¯¾Ð±âÀü»ê¹øÈ£) Then Me.PARSE_PATTERN(º¯¾Ð±âÀü»ê¹øÈ£, Me.Sº¯¾Ð±âÀü»ê¹øÈ£)
        If Me.PARSE(º¯¾Ð±â¸í, Me.Sº¯¾Ð±â¸í) Then Me.PARSE_PATTERN(º¯¾Ð±â¸í, Me.Sº¯¾Ð±â¸í)
        If Me.PARSE(Àü¿øÃø, Me.sÀü¿øÃø) Then Me.PARSE_PATTERN(Àü¿øÃø, Me.sÀü¿øÃø)
        If Me.PARSE(ºÎÇÏÃø, Me.SºÎÇÏÃø) Then Me.PARSE_PATTERN(ºÎÇÏÃø, Me.SºÎÇÏÃø)

        If Me.PARSE_º¯¾Ð±â¿ë·®(º¯¾Ð±â»ó, º¯¾Ð±â¿ë·®) Then Me.PARSE_º¯¾Ð±â¿ë·®ÆÐÅÏ(º¯¾Ð±â»ó, º¯¾Ð±â¿ë·®)

        ' WLog2(Auto_Log, "New()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If PARSE_¹øÈ£(ÀüÁÖ¹øÈ£) Then    '//¿©±â¼­ False ´Â Ãâ·ÂÀÇÀǹ̰¡ ¾ø´Ù
            ¹øÈ£ÆÐÅÏ°Ë»ç = Me.PARSE_¹øÈ£ÆÐÅÏ(ÀüÁÖ¹øÈ£) '//¼±·Î¸íÀ» Çؼ®ÈÄ ÆÐÅϺм® Àû¿ë   
            If NUMCOLOR Then    '//ȯ°æ¼³Á¤¿¡¼­ »ö»óº¸±â°¡ ¼±ÅõǾîÀÖ´Ù¸é
                If ¹øÈ£ÆÐÅÏ°Ë»ç = 3 Then   '//µÑ´Ù¾ø´Ù.
                    '//µÑ´Ù¾ø´Â ºÎºÐÀÌ¶ó¼­ ¿©±â¼­´Â µðÆúÆ®¸¦ Àâ¾ÆÁØ´Ù.
                    For i As Short = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
                        Me.SÀüÁÖ¹øÈ£(i).MyForeColor = Drawing.Color.Red
                    Next
                ElseIf ¹øÈ£ÆÐÅÏ°Ë»ç = 2 Then    '//¹®ÀÚ°¡¾ø°í ±æÀ̸¸ ÀÖ´Ù.
                    For i As Short = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
                        Me.SÀüÁÖ¹øÈ£(i).MyForeColor = Drawing.Color.Green
                    Next
                Else '//¹®ÀÚ¸¸ Àְųª µÑ´ÙÀÖ´Ù. '//0À̸é ÀÌ¸é µÑ´ÙÀÖ´Ù 1ÀÌ¸é ¹®ÀÚµµ ¾ø°í ±æÀ̵µ ¾ø´Ù ±æÀÌ°¡ ¾ø´Ù
                    For i As Short = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
                        Me.SÀüÁÖ¹øÈ£(i).MyForeColor = Drawing.Color.Black
                    Next
                End If
            End If
        End If

        WLog2(Auto_Log, "±¸°ü¸®Àü»ê,ÀϷùøÈ£,°ü¸®Àü»êÇ¥½Ã¿©ºÎ¸¦ pase ÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        '========================= ±âŸ =================================================
        '//ÀÌ·¯¸é Ç¥½ÃÇؾßÇÑ´Ù.
        If Me.cb_n.Checked Then
            Me.SÀϷùøÈ£(0).MyText = GetSpread(Me.Dv, index, "¹øÈ£") 'index + 1
            Me.SÀϷùøÈ£(0).Visible = True
        Else
            Me.SÀϷùøÈ£(0).Visible = False
        End If

        If °ü¸®±¸ <> "" AndAlso Àü»ê¹øÈ£ <> "" AndAlso Me.cb_g.Checked Then
            Me.S°ü¸®±¸ÀüÁÖ¹øÈ£(0).MyText = °ü¸®±¸ & "-" & Àü»ê¹øÈ£
            Me.S°ü¸®±¸ÀüÁÖ¹øÈ£(0).Visible = True
        Else
            Me.S°ü¸®±¸ÀüÁÖ¹øÈ£(0).Visible = False
        End If

        If °ü¸®±¸2 <> "" AndAlso º¯¾Ð±âÀü»ê¹øÈ£ <> "" AndAlso Me.cb_p.Checked Then
            Me.S°ü¸®±¸ÀüÁÖ¹øÈ£2(0).MyText = °ü¸®±¸2 & "-" & º¯¾Ð±âÀü»ê¹øÈ£
            Me.S°ü¸®±¸ÀüÁÖ¹øÈ£2(0).Visible = True
        Else
            Me.S°ü¸®±¸ÀüÁÖ¹øÈ£2(0).Visible = False
        End If

        If °íÀå½Å°í <> "" AndAlso Me.cb_gojang.Checked Then
            Me.St°íÀå½Å°í(0).Visible = True
        Else
            Me.St°íÀå½Å°í(0).Visible = False
        End If

        WLog2(Auto_Log, "»ç¿ëÀÚ¹®ÀÚÀÇ Ç¥½Ã¿©ºÎ¸¦ °áÁ¤ÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        '»ç¿ëÀÚ¹®ÀÚÀÇ Ç¥½Ã¿©ºÎ u a b d e
        If Not Me.cb_u.Checked Then Me.S±â±â¸í(0).Visible = False '//±â±â¸í
        'If Not Me.cb_q.Checked Then Me.Sºñ°í0(0).Visible = False '//ºñ°í1
        'If Not Me.cb_a.Checked Then Me.Sºñ°í2(0).Visible = False '//ºñ°í2
        'If Not Me.cb_b.Checked Then Me.Sºñ°í3(0).Visible = False '//ºñ°í3
        If Not Me.cb_lu.Checked Then Me.S¼±·Î¸í¼±·Î¹øÈ£_±â±â(0).Visible = False '//¼±·Î+±â±â¸í 160123
        If Not Me.cb_lf.Checked Then Me.S¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð(0).Visible = False


        'ÈÞ ³¡³µ´Ù.......................................................
        WLog2(Auto_Log, "Pewview À©µµ¿ì¸¦ ½ÇÇàÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Me.preview_window()
        ' If Me.chb_preview.Checked AndAlso previewWindow Then Me.preview_window()
    End Sub

    Public Function ChkNumPattern(ByVal index As Integer) As Int16
        WLog2(Auto_Log, "¹øÈ£ÆÐÅÏÀ» üũÇÕ´Ï´Ù. int16À» ¹ÝȯÇÕ´Ï´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then
            'MsgBox("µ¥ÀÌÅÍ°¡ ¾ø°Å³ª À߸øµÈ À妽º ÀÔ´Ï´Ù(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "È®ÀÎ")
            Return -1 '//À߸øµÈ À妽º´Â ¸®ÅÏ
        End If

        Dim °Ë»ç¹øÈ£ÆÐÅÏ°Ë»ç As Integer = 0
        Dim °Ë»ç¹øÈ£ As String

        °Ë»ç¹øÈ£ = GetSpread(Me.Dv, index, "¹øÈ£1") & GetSpread(Me.Dv, index, "¹øÈ£2") & GetSpread(Me.Dv, index, "¹øÈ£3") & GetSpread(Me.Dv, index, "¹øÈ£4") & GetSpread(Me.Dv, index, "¹øÈ£5")
        If °Ë»ç¹øÈ£.Trim = "" Then Return -1 '//°Ë»ç¹øÈ£ÀÚü¿¡ ¹®Á¦°¡ÀÕÀ»½Ã ¿¡ ¸®ÅÏ

        Dim Wlen As Short = °Ë»ç¹øÈ£.Length : If Wlen <= 0 Then Return -1 '//¾ø´Â ±Û±Í°¡ ¿ÓÀ»¶§ ÅÏÇعö¸°´Ù.
        Dim SRC() As Char = °Ë»ç¹øÈ£.ToCharArray
        Dim Log As String = "\Parse_°Ë»ç¹øÈ£ÆÐÅÏ.txt"
        Dim SepPos As Short = °Ë»ç¹øÈ£.IndexOf(";")
        Dim retval As Integer = 0   ''0Àº Á¤»ó 1Àº ±æÀÌÆÐÅϾøÀ½ 2´Â 3Àº ±æÀÌ+¹®ÀÚ¾øÀ½

        '//°Ë»ç¹øÈ£´Â ±æÀÌÆÐÅÏÀ» ÇÏÁö¾Ê°í ¹®ÀÚÆÐÅϸ¸ ÇÑ´Ù.
        Dim pname As String
        Dim Arinini As New MyINI2(drstyle.File)
        Dim PATTERN As String = PATTERN_ENC(°Ë»ç¹øÈ£)

        '//¸ÕÀú¹®ÀÚ°¡ÀÖ´ÂÁö È®ÀÎÇÑ´Ù.
        pname = "JJNUMPATTERNII" & PATTERN

        Dim Dr() As DataRow
        Dr = dtpattern.Select("NAME = '" & pname & "DESC'")
        WLog2(Auto_Log, "±æÀÌÆÐÅÏÀÇ Á¸Àç¿©ºÎ = " & Dr.GetUpperBound(0) & ":" & pname, "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Dr.GetUpperBound(0) <> -1 Then '//ÀÖ´Ù.
            retval += 2
            'WLog2(Auto_Log, "°ü¸®±¸5¹ø ¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù (" & pname & "DESC" & ")", Log)
        End If

        'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '//ÆÐÅÏÀÌ ¾øÀ¸¹Ç·Î ¹Ù·Î ³Ñ±ä´Ù.

        pname = "JJNUMPATTERN" & Wlen
        Dr = dtpattern.Select("NAME = '" & pname & "DESC'")
        WLog2(Auto_Log, "¹®ÀÚÆÐÅÏÀÇ Á¸Àç¿©ºÎ = " & Dr.GetUpperBound(0) & ";" & pname, "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Dr.GetUpperBound(0) <> -1 Then '//ÀÖ´Ù.
            retval += 1
            'WLog2(Auto_Log, "°ü¸®±¸5¹ø ¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù (" & pname & "DESC" & ")", Log)
        End If
        Return retval '// 0ÀÌ ¸®ÅϵɰÍÀÌ´Ù. ÆÐÅÏÀÌ ¸ðµÎ Á¤»óÀ̶õ ¶æÀÌ´Ù
    End Function

    Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel)
        WLog2(Auto_Log, "Clear_item div=", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")
        For i As Short = 0 To labels.GetUpperBound(0)
            labels(i).MyText = ""
            labels(i).Visible = False
        Next
    End Sub

    Public Sub GetStyleList()
        AddLog(Auto_Log, "GetStyleListÁøÀÔ()", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")
        '//½ºÅ¸ÀϸíÀ» °¡Á®¿Í¼­ ÄÞº¸¹Ú½º¿¡ Ç¥½ÃÇÕ´Ï´Ù.
        '//style Æú´õ¾Æ·¡ÀÇ ini ÆÄÀÏÀüü¸¦ ½ºÅ¸ÀÏ À̶óÇÑ´Ù.
        '//ÆÄÀÏÀ» Àо ¸Þ¸ð¸®¿¡ ÀúÀåÇÑ´Ù.
        ' Dim Arinini As MyINI
        Dim CurIdx As Integer = 0
        If StyleDir.Exists = False Then StyleDir.Create()
        Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0)

        ' ReDim StyleList(StyleCnt)
        ReDim Common.PDS(StyleCnt) '//ÆÐÅϵ¥ÀÌÅͼÂÀÇ °¹¼ö¸¦ ÀúÀåÇÑ´Ù 

        Dim Section, Value As New ArrayList
        Dim SectionIdx As Integer = 0

        AddLog(Auto_Log, "GetStyleList(ÆÄÀÏ¿¡¼­ ½ºÅ¸ÀϸñÀ» °¡Á®¿Â´Ù)", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")

        '//½ºÅ¸ÀÏÆÄÀϸíÀ» Å×ÀÌºí¿¡ ÀÓ½ÃÀúÀåÇÑ´Ù(ÀÏ°ý·Î ºÒ·¯¿À±âÀ§ÇÔÀÌ´Ù.)
        Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ÆÄÀϸí")

        For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini")
            Dt.Rows.Add(FI.FullName)
        Next

        For Each Dr As DataRow In Dt.Select("", "ÆÄÀϸí asc")
            Dim FileName As String = Dr("ÆÄÀϸí")
            AddLog(Auto_Log, "ÆÄÀϸí=(" & FileName & ") ÀÇ ½ºÅ¸ÀÏÀ» °¡Á®¿É´Ï´Ù ¸Þ¸ð¸®·Î", "\ÁöÁß¼øÂ÷·Î±×.txt")

            '//XMLÅ×À̺íÀ» »õ·Î»ý¼º
            Common.PDS(CurIdx) = New PatternDS

            GetAllsection(FileName, CurIdx)

            Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("Desc").ToString())
            CurIdx += 1
        Next
    End Sub

    Private Sub µ¥ÀÌÅÍÅ×ÀÌºí°»½Å()
        WLog2(Auto_Log, "µ¥ÀÌÅÍÅ×ÀÌºí °»½Å()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex)


        '//±âº»º¯¼ö¼³Á¤ 170219
        DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0)
        DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern

    End Sub

    Private Function Prepare_Print() As Boolean '//¹üÀ§³»ÀÇ ÆäÀÌÁö¹øÈ£¿Í ÀÏÄ¡ÇÏ´Â ¹øÈ£¸¦ ã¾Æ¼­ ¹è¿­¿¡ ÇÒ´çÇÑ´Ù.
        AddLog(Admin, "Func(PrePare_Print) Àμâ¹øÈ£ ÇÒ´ç Áغñ", "\Alllog.txt")

        Dim Number As Integer = 0
        Dim FindNum As Boolean = False
        Me.printindex = 0   '//¹è¿­ÀÇ Ã¹¹øÀ¸·Î Ãâ·ÂÀ» ÁغñÇÑ´Ù.
        'Me.PrintArray = Nothing  '//Ãâ·Â¹øÈ£ ¹è¿­À» ÀúÀåÇÒ °ÍÀÌ´Ù.\
        ReDim PrintArray(0)
        PrintArray(0) = 1

        'log = False
        'AddLog("==============Ãâ·ÂÁغñÁß==============", True)

        Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text  '//ÁÂ,¿ì ¿©¹é ¼³Á¤
        Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text
        Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//°¡·Î,¼¼·Î Ãâ·Â°áÁ¤
        '//ÇÁ¸°Å͸íÀÌ ÁöÁ¤µÇ¾îÀÖ´Ù¸é ÇØ´ç ÇÁ¸°Åͷμ³Á¤,¾øÀ¸¸é ±âº»ÇÁ¸°ÅÍ
        If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text
        '//¹üÀ§Àε¥ °ªÀÌ ºñ¾îÀÖÀ¸¸é ÇöÀçÃâ·ÂÀ¸·Î
        If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True


        If Me.rad_repeat.Checked Then
            If IsNumeric(Me.tb_printrange.Text) = False Then
                MsgBox("Ãâ·ÂÀå¼ö¿¡ ¼ýÀÚ¸¸ ÀÔ·ÂÇϼ¼¿ä", MsgBoxStyle.Critical, "È®ÀÎ")
                Return False
            End If
            ReDim PrintArray(Val(Me.tb_printrange.Text) - 1)
            For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1
                PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1
            Next
        End If


        If Me.RadioButton1.Checked Then '//ÀüüÃâ·ÂÀ̹ǷΠ¹è¿­¿¡ ¸ðµç°ÍÀ» ¸®ÅÏÇÑ´Ù : ¸ðµçµ¥ÀÌÅÍÀÇ ·¹ÄÚµå À妽º¸¦ ÀúÀåÇÑ´Ù.
            AddLog(Admin, "ÀüüÃâ·ÂÀÔ´Ï´Ù.", "\Alllog.txt")
            ReDim Me.PrintArray(Me.Dv.Count - 1)
            For i As Integer = 0 To Dv.Count - 1
                AddLog(Admin, i & "¹øÀ» ÇÒ´çÇÕ´Ï´Ù.", "\Alllog.txt")
                Me.PrintArray(i) = i
            Next
            AddLog(Admin, "ÀüüÆäÀÌÁö¼ö´Â " & Me.PrintArray.GetUpperBound(0) + 1 & " °³ÀÔ´Ï´Ù", "\Alllog.txt")
        End If

        If Me.RadioButton2.Checked Then '//ÇöÀçÆäÀÌÁö : ÇöÀ纸°íÀÖ´Ù´Â Æä¿¡ÁöÀÇ  ·¹ÄÚµåÀ妽º¸¸ ÀúÀåÇÑ´Ù.
            AddLog(Admin, "ÇöÀçÆäÀÌÁöÃâ·Â.", "\Alllog.txt")
            ReDim Me.PrintArray(0)
            Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1    '/ÇöÀçÄ«¿îÆ®º¸´Ù 1ÀÛ´Ù ¹è¿­Àº 0ºÎÅÍ ½ÃÀÛÇϱ⋚¹®¿¡
            'Me.printindex = -1
        End If

        '//2007-12-21ÀÏ  º¯°æ½ÃÀÛ
        If Me.RadioButton3.Checked Then '//¹üÀ§ÁöÁ¤ : ÁöÁ¤µÈ¹üÀ§³»ÀÇ ¹øÈ£°ªÀ» °¡Áö°í ÇØ´ç À妽º¸¦ ã¾Æ¼­ ¹è¿­¿¡ ÇÒ´çÇÑ´Ù.
            AddLog(Admin, "¹üÀ§ÁöÁ¤.", "\Alllog.txt")
            'Dim buff() As String = Me.tb_printrange.Text.Split("/")
            'Dim curpos As Integer = 0
            'MsgBox("rad3")


            Dim buff As String = Me.tb_printrange.Text
            ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1

            '//¸ÕÀú -°¡ ÀÖ³ª¾ø³ª ÆÇ´ÜÇؼ­ ÇÑÆäÀÌÁö¿ëÀÎÁö ¹üÀ§¿ëÀÎÁö ±¸ºÐÇÑ´Ù.
            If buff.IndexOf("-") >= 0 Then    '//¹üÀ§ÀÌ´Ù.
                Dim SubBuff() As String = buff.Split("-")
                Dim Sttnum As Integer = CInt(SubBuff(0))  '//½ÃÀÛ
                Dim endnum As Integer = CInt(SubBuff(1)) '//Á¾·á°ª

                For SI As Integer = 0 To endnum - Sttnum    '//¹üÀ§°¹¼ö¸¸Å­ µ·´Ù
                    FindNum = False
                    Number = CInt(Sttnum + SI)   '//ÆäÀÌÁö¸¸ Àû¾ùÀ» °ÍÀ̹ǷÎ
                    For ni As Integer = 0 To Dv.Count - 1  '//ÇöÀçºäÀÇ ¸ðµçµ¥ÀÌÅ͸¦ °¡Áö°í °Ë»öÇÑ´Ù ÁÂ->¿ì ¼øÂ÷°Ë»ö
                        If Number = Dv(ni).Row("¹øÈ£") Then
                            If PrintArray(0) = -1 Then '//óÀ½µ¥ÀÌÅÍÀ̹ǷÎ
                                Me.PrintArray(0) = ni
                            Else   '//óÀ½À̾ƴϹǷΠ¹è¿­À» Áõ°¡½ÃÅ°°í ±âÀÔÇÑ´Ù.
                                ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1)   '//¹è¿­1Áõ°¡
                                Me.PrintArray(PrintArray.GetUpperBound(0)) = ni
                            End If
                            FindNum = True
                            Exit For
                        End If
                    Next
                Next

            Else   '//ÆäÀÌÁö¹øÈ£¸¸ Àû¾úÀ»¶§´Ù    
                If IsNumeric(buff) Then
                    Number = CInt(buff)   '//ÆäÀÌÁö¸¸ Àû¾ùÀ» °ÍÀ̹ǷÎ
                    For ni As Integer = 0 To Dv.Count - 1  '//ÇöÀçºäÀÇ ¸ðµçµ¥ÀÌÅ͸¦ °¡Áö°í °Ë»öÇÑ´Ù ÁÂ->¿ì ¼øÂ÷°Ë»ö
                        If Number = Dv(ni).Row("¹øÈ£") Then
                            PrintArray(0) = ni
                            Exit For
                        End If
                    Next
                Else
                    MsgBox("¹üÀ§(-)¸¦ Á¦¿ÜÇÏ°í ¼ýÀÚ¸¸ ÀÔ·ÂÇϼ¼¿ä", MsgBoxStyle.Critical, "ÀԷ¿À·ù")
                End If
            End If
        End If

        If PrintArray(0) = -1 Then '//¹è¿­¿¡ ¾Æ¹«°Íµµ ¾ø´Ù¸é
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub Print_Preview()
        WLog2(Auto_Log, "print_preview ¹Ì¸®º¸±â ¹öÆ°À» ´­·¶À»¶§´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Me.PrintMode = True
        If Not Prepare_Print() Then
            MsgBox("ÀμâÇÒ ¸ñ·ÏÀÌ ¾ø½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        Dim Preview As New PrintPreviewDialog()
        Try
            Preview.Document = pDoc
            Preview.ShowDialog()

        Catch EX As Exception
            MsgBox(EX.Message)
        End Try
    End Sub

    Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage
        AddLog(Admin, "pDoc_PrintPage >> PDOC °³Ã¼°¡ Ãâ·Â¹°À» »ý¼ºÇÑ´Ù PrintIndex=" & Me.printindex, "\Alllog.txt")

        Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
        Dim MyFont As Font
        Dim NewFontSize As Int16 = 10
        Dim dummy As Boolean = False    '//ÀÌ°ªÀÌ true À̸é Ãâ·Â½Ã º¯À§¸¦ ÁöÁ¤Çؼ­ Ãâ·ÂÇÑ´Ù.
        Dim C As MyControlOLEDBv2.MyLabel
        Dim NewLeft, NewTop As Integer

        'ÆäÀÌÁö ±¸ºÐÀ» ÀÌÇØÇÏ°í ¸î°³¸¦ ÂïÀ»Áö °áÁ¤ÇÑ´Ù.
        'Debug.Print("ÇÁ¸°ÅÍÀ妽º=" & Me.printindex)
        'Debug.Print("ÇÁ¸°Å͹迭=" & Me.PrintArray.GetUpperBound(0))

        If Me.printindex <> -1 Then
            AddLog(Admin, "pDoc_PrintPage >> Printindex°¡ -1ÀÌ ¾Æ´Ï´Ù", "\Alllog.txt")
            If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '//ÆäÀÌÁö¸¦ °»½ÅÇÏ°í Ãâ·ÂÀ» ½ÃÀÛÇÑ´Ù.
        Else
            MsgBox("ÇÁ¸°Æ® À妽º°¡ ¾ø½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
        End If
        e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text)

        If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then
            If Me.PrintMode = False Then    '//¹Ì¸®º¸±âÀ϶§  Àμ⸶ÁøÀ» ³ÖÁö¾Ê´Â´Ù.
                e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text))   '//¹è°æ±×¸²
            Else
                e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text))   '//¹è°æ±×¸²
            End If
        End If
        If Me.chk_draw.Checked Then
            '//¶óÀÎÀ» ±×¸°´Ù.
            For Each Rect As S_Line In Draw_Line
                Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
                If Me.PrintMode Then
                    e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text))
                Else
                    e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2)
                End If

            Next
            '//¹Ú½º¸¦ ±×¸°´Ù.
            For Each Rect As S_Box In Draw_Box
                Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
                If Me.PrintMode Then
                    e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height)
                Else
                    e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                End If

            Next
            '//¿øÀ» ±×¸°´Ù.
            For Each Rect As S_Circle In Draw_Circle
                Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
                If Me.PrintMode Then
                    e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height)
                Else
                    e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                End If

            Next
        End If

        If °ü¸®±¸ <> "" Then
            Try
                '//QRÄڵ带 ±×¸°´Ù.
                For Each Rect As S_QRCode In Draw_QRcode
                    'Dim scale As Int16
                    Dim version As Int16
                    Dim image As Image
                    Dim data As String
                    Dim errorCorrect As String
                    Dim qrCodeEncoder1 As New QRCodeEncoder()
                    Dim encoding As String
                    encoding = cboEncoding.Text
                    If encoding = "3" Then
                        qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE
                    ElseIf encoding = "1" Then
                        qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC
                    ElseIf encoding = "2" Then
                        qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC
                        Try
                            version = Convert.ToInt16(cboVersion.Text)
                            qrCodeEncoder1.QRCodeVersion = version
                        Catch ex As Exception
                            MessageBox.Show("Invaild Version!")
                        End Try
                    End If

                    errorCorrect = cboCorrectionLevel.Text
                    If errorCorrect = "1" Then
                        qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L
                    ElseIf errorCorrect = "2" Then
                        qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M
                    ElseIf errorCorrect = "3" Then
                        qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q
                    ElseIf errorCorrect = "4" Then
                        qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H
                    End If

                    qrȨÆäÀÌÁö1 = home1.Text
                    qrȨÆäÀÌÁö2 = home2.Text
                    qrȨÆäÀÌÁö3 = home3.Text
                    qrȨÆäÀÌÁö4 = home4.Text



                    data = qrȨÆäÀÌÁö1 & "/" & qrȨÆäÀÌÁö2 & "/" & qrȨÆäÀÌÁö3 & "/" & qrȨÆäÀÌÁö4 & "=" & °ü¸®±¸ & "-" & Àü»ê¹øÈ£ & "&name=" & ¼±·Î¸í_±â±â & ":" & ÀüÁÖ¹øÈ£ & ":" & ½Ã°ø³â¿ù

                    If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor
                    If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor
                    image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY)
                    If Me.PrintMode Then
                        e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height)
                    Else
                        e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                    End If

                    '   If Rect.Width = 0 OrElse Rect.Height = 0 Then
                    '        Ga.DrawImage(Image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY)
                    'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text))
                    'Else
                    '        Ga.DrawImage(Image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY, Rect.Width, Rect.Height)
                    'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                    'End If
                Next
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try
        End If

        '//¿¬¼ÓÆäÀÌÁö ¿À·ùÁ¤Á¤
        If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1"
        AddLog(Admin, "pDoc_PrintPage >> ÆäÀÌÁö¹Ýº¹È½¼ö(°³Ã¼¹Ýº¹È½¼ö¾Æ´Ô) : " & Me.tb_pagerepeat.Text, "\Alllog.txt")

        For pi As Short = 0 To Me.tb_pagerepeat.Text - 1  '//ÆäÀÌÁö´ç ¿¬¼ÓÃâ·ÂÇÒ È½¼ö
            AddLog(Admin, "pDoc_PrintPage >> " & pi & "¹ø° ÆäÀÌÁö¸¦ »ý¼ºÇÕ´Ï´Ù" & Me.tb_pagerepeat.Text, "\Alllog.txt")
Dummyflag:  '//--2ÀåÃâ·ÂÀÏ°æ¿ì À̺κп¡¼­ ´Ù½Ã ½ÃÀÛÇÑ´Ù.
            For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
                C = Me.AllLabels(i).ctl
                If C.Visible = True AndAlso C.MyText <> "" Then
                    For rcnt As Short = 0 To C.Repeat   '//¹Ýº¹±â´ÉÃß°¡
                        '//myfont ´Â ±Û²ÃÀÇ ÀÏ°ýÅ©±âº¯°æ ¿É¼ÇÀÇÀÇÇؼ­ »ý¼ºµÊ
                        NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text
                        If NewFontSize < 0 Then NewFontSize = 0

                        MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style)

                        NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX
                        NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY

                        If C.ÀåÆò = 100 AndAlso C.Àå³ôÀÌ = 100 Then '//ÀåÆò¹Ì»ç¿ë ¹®ÀÚ¿­ ó¸®                 
                            e.Graphics.DrawString(C.ÃÖÁ¾¹®ÀÚ, MyFont, Brushes.Black, New Point(NewLeft, NewTop))
                        Else    '//ÀåÆò»ç¿ë À̹ÌÁö ó¸®
                            Dim NewX, Newy As Integer
                            Dim SrcDpix, SrcDPiY As Single
                            'MsgBox(Tobj.Àå³ôÀÌ)
                            SrcDpix = C.CreateGraphics.DpiX
                            SrcDPiY = C.CreateGraphics.DpiY

                            NewX = C.GetSize(MyFont).Width * (C.ÀåÆò / 100) * (e.Graphics.DpiX / SrcDpix)
                            Newy = C.GetSize(MyFont).Height * (C.Àå³ôÀÌ / 100) * (e.Graphics.DpiY / SrcDPiY)

                            Dim BMP As New Bitmap(NewX, Newy, e.Graphics)
                            Dim G As Graphics = Graphics.FromImage(BMP)

                            G.ScaleTransform((C.ÀåÆò / 100), (C.Àå³ôÀÌ / 100))
                            G.DrawString(C.ÃÖÁ¾¹®ÀÚ, MyFont, Brushes.Black, 0, 0)

                            G.Dispose()
                            e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (vÀåÆò / 100)), GetSize.Height)
                        End If
                    Next
                End If
            Next

            '//Çѵ¥ÀÌÅÍÃâ·ÂÇÏ°í³ª¼­ ¹Ýº¹Æä¿¡ÁöȽ¼ö°¡ ÀÖ´ÂÁöÈ®ÀÎÇÑ´Ù.
            If Me.tb_pagerepeat.Text > 1 Then
                ' If Me.cmb_dummy.SelectedIndex <> 0 Then '//´ÙÀ½µ¥ÀÌÅÍÀÇ Ãâ·ÂÀÌ¸é ¿©±â¼­ µ¥ÀÌÅ͸¦ °»½ÅÇØÁØ´Ù.
                If Me.cmb_dummy.SelectedIndex <> 0 Then   '//´ÙÀ½ÀåÀÌÀÖ´Ù.
                    If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then
                        '//·çÇÁ°¡ ³¡³´´ÂÁö Ãß°¡Ã¼Å©ÇÑ´Ù.  170308
                        If pi < Me.tb_pagerepeat.Text - 1 Then
                            Me.printindex += 1  '/1Àå³Ñ±â°í 
                            If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '//µ¥ÀÌÅÍ ¹Ù²Ù´Âµ¥..È­¸éÀº °»½ÅÇÏÁö ¾Ê´Â´Ù.
                        End If

                        
                    Else   '//´ÙÀ½ÀåÀÇ Ãâ·ÂÀε¥ µ¥ÀÌÅÍ°¡¾ø´Ù¸é ·çÇÁ¸¦ ´õÀÌ»ó µ¹¸é¾ÈµÈ´Ù.
                        Exit For
                    End If
                End If
            End If
        Next   '//pi ¹Ýº¹ÇҰŸ¦ ¸ðµÎ Ãâ·ÂÇßÀ»½Ã¿¡
        If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then   '//´ÙÀ½ÀåÀÌÀÖ´Ù.
            If Me.tb_pagerepeat.Text < 2 Then
                Me.printindex += 1 '//ÆäÀÌÁö¹øÈ£¸¦ Áõ°¡
            Else
                Me.printindex += 1 '//ÆäÀÌÁö¹øÈ£¸¦ Áõ°¡
            End If
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
        e.Graphics.Dispose()
    End Sub

    Private Sub Print()
        If MsgBox("Àμ⸦ ÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") = MsgBoxResult.Ok Then
            WLog2(Auto_Log, "print ¹Ù·Î Ãâ·ÂÀ» Ç϶ó´Â ¸í·ÉÀÌ´Ù()", "\Alllog.txt")
            Me.PrintMode = True
            If Me.Prepare_Print() Then
                pDoc.Print()
                GeTviewData(BindingSource1.Position, True) '   preview_window()
            Else
                MsgBox("ÀμⰡ´ÉÇÑ ¸ñ·ÏÀÌ ¾ø½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            End If
        Else
            NOTICE("ÀμⰡ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Drawing.Color.Tomato, Me.lb_msg)
        End If
    End Sub

    Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        WLog2(Auto_Log, "con _move °³Ã¼À̵¿ÇÒ ÇÁ·Î½ÃÁ®Àε¥ ÇöÀç ¾È¾´´Ù.()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = System.Windows.Forms.MouseButtons.Left Then
            ' Me.Text = CType(sender, Label).Left & "/" & e.X
            CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X
            CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y
        End If
    End Sub




    '''¿ìÃø¿¡ °³Ã¼ÀÇ »óŸ¦ º¸¿©ÁÝ´Ï´Ù.
    '''
    Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel)
        WLog2(Auto_Log, "view properfty  °³Ã¼ÀÇ »óź¸±â()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True

        Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString
        Me.tb_left.Text = sender.Left
        Me.tb_top.Text = sender.Top

        Me.tb_foncol.BackColor = sender.MyForeColor
        Me.cb_visible.Checked = sender.Visible
        Me.cb_bold.Checked = sender.MyFont.Bold
        'Me.cb_italic.Checked = sender.MyFont.Italic
        ' Me.cb_uline.Checked = sender.MyFont.Underline

        Me.tb_fsize.Text = sender.MyFont.Size
        Me.tb_wordwidth.Text = sender.ÀåÆò
        Me.tb_wordheight.Text = sender.Àå³ôÀÌ
        Me.tb_space.Text = sender.°ø¹é



        Me.GroupBox2.Text = "À§Ä¡/Å©±â/±Û²Ã(" & sender.MyText & ") W=" & sender.Width & ",H=" & sender.Height


        If Not sender.Tag Is Nothing Then   '//¿©±â¼­ °³Ã¼ÀÇ ÆÐÅÏÀû¿ë¿©ºÎ¸¦ Ç¥½ÃÇÕ´Ï´Ù.
            ' MsgBox(sender.Tag.ToString)
            Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black)
            Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black)
            'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False)
            'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False)
        Else
            Me.lb_countpattern.ForeColor = Drawing.Color.Black
            Me.lb_strpattern.ForeColor = Drawing.Color.Black
        End If
    End Sub

    Private Sub ViewBackImage()
        WLog2(Auto_Log, "viewBackImage ¹è°æÀ̹ÌÁö¸¦ Ç¥½ÃÇÕ´Ï´Ù.()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")
        Dim Picimg As String
        If Me.tb_picfile.Text.IndexOf(":") > -1 Then  '//µå¶óÀ̺ê¸íÀÌ ÀÖÀ¸¸é ±×´ë·Î¾²°í ¾Æ´Ï¸é ºÙ¿©¼­¾´´Ù.
            Picimg = Me.tb_picfile.Text
        Else
            Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text
        End If
        If Not System.IO.File.Exists(Picimg) Then
            Me.chk_DisplayBG.Checked = False
        ElseIf Me.chk_DisplayBG.Checked Then
            Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg)
            Me.bakimg.BackgroundImage = Image.FromFile(Picimg)
        End If
    End Sub


    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged
        WLog2(Auto_Log, "¹è°æº¸±â üũ¹Ú½º¸¦ Ŭ¸¯Çß´Ù.)", "\ÁöÁß¼øÂ÷·Î±×.txt")
        'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False)
        If CType(sender, System.Windows.Forms.CheckBox).Checked Then
            Me.ViewBackImage()
        Else
            Me.PictureBox1.BackgroundImage = Nothing
        End If
    End Sub



    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        Dim A As New OpenFileDialog
        WLog2(Auto_Log, "ÆÄÀÏã±â ¹öÆ°ÀÌ Å¬¸¯µÊ", "\ÁöÁß¼øÂ÷·Î±×.txt")

        If System.IO.File.Exists(Me.tb_picfile.Text) Then
            A.FileName = Me.tb_picfile.Text
        Else
            A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg"
        End If
        If A.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Return
        Me.tb_picfile.Text = A.FileName
        Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text)
        Me.chk_DisplayBG.Checked = True
    End Sub

    Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short)
        WLog2(Auto_Log, "ctrpos (¼±ÅÃµÈ °³Ã¼µéÀÇ À§Ä¡°ªÀ» º¯°æÇÕ´Ï´Ù)", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub

        For Each sender As Control In SelCon
            If vertical Then    '//Á¿ìÃø
                If My.Computer.Keyboard.CtrlKeyDown Then
                    If offset < 0 Then
                        sender.Top -= 10
                    Else
                        sender.Top += 10
                    End If
                Else
                    sender.Top += offset
                End If
            Else    '//»óÇÏÃø
                If My.Computer.Keyboard.CtrlKeyDown Then
                    If offset < 0 Then
                        sender.Left -= 10
                    Else
                        sender.Left += 10
                    End If
                Else
                    sender.Left += offset
                End If
            End If

        Next

        WLog2(Auto_Log, "ctrpos =[ preview È£ÃâÇÕ´Ï´Ù]", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Me.preview_window()
        'Me.ViewProperty(sender)
    End Sub

    Private Sub ShowMsg(ByVal Message As String)
        WLog2(Auto_Log, "showmsg ¸Þ¼¼Áö¸¦ º¸¿©ÁÝ´Ï´Ù =" & Message, "\ÁöÁß¼øÂ÷·Î±×.txt")
        Me.lb_msg.Text = "¢¹ " & Message & Space(1) & TimeOfDay.ToString
    End Sub

    Public Sub SetFont()   '//üũ¹Ú½º »óÅ¿¡µû¶ó¼­ ÆùÆ®¸¦ º¯°æÇÕ´Ï´Ù.
        WLog2(Auto_Log, "set font üũ¹Ú½º »óÅ¿¡ µû¶ó¼­ ÆùÆ®¸¦ º¯°æÇÕ´Ï´Ù.", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim B As System.Drawing.FontStyle
        If Me.cb_bold.Checked = True Then B = FontStyle.Bold
        Dim Tobj As MyControlOLEDBv2.MyLabel
        For Each A As Control In SelCon
            Tobj = CType(A, MyControlOLEDBv2.MyLabel)
            Tobj.MyFont = New Font(Tobj.MyFont, B)
        Next
        WLog2(Auto_Log, "setfont = preview È£ÃâÇÕ´Ï´Ù.", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Me.preview_window()
    End Sub

    Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp
        WLog2(Auto_Log, "½ºÅ¸ÀÏÄÞº¸¹Ú½º¿¡¼­ keyip ÀÌ °¨ÁöµÇ¾úÀ¸³ª ÇÚµéÀ» true ·Î Çعö¸°´Ù.", "\ÁöÁß¼øÂ÷·Î±×.txt")
        e.Handled = True
    End Sub

    Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged
        '//¿©±â¼­ µ¥ÀÌÅ͸¦ Ãß·Á³»°í(ÇÊÅ͸¦ °¡Á®¿Â´Ù.)
        '//ÇØ´ç ½ºÅ¸ÀÏÀ» ºÒ·¯¿Â´Ù
        WLog2(Auto_Log, "½ºÅ¸ÀÏ À妽º°¡ º¯°æµÇ¾ú´Ù.", "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0

        '//±âº»º¯¼ö¼³Á¤ 170219
        DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0)
        DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern

        Dim DataFilter As String = drstyle.Filter
        If DataFilter.Trim = "" Then
            DataFilter = "Ãâ·Â = true" '//ÀμâÇʵå´Â Áö¼±ÁÖ ±¸ºÐ¿ëÀ¸·Î Àç»ç¿ëÇÑ´Ù.
        Else
            DataFilter &= " AND Ãâ·Â = true" '//Áö¼±ÁÖ´Â ÀμⰡ True °ªÀ̱⶧¹®¿¡ ÇØ´ç °ªÀ» Á¦¿ÜÇÑ´Ù
        End If

        Me.BindingSource1.Sort = ""
        Me.BindingSource1.DataSource = Nothing

        Dv = New DataView(srcTable, DataFilter, "Á¤·Ä¹øÈ£,¹øÈ£", DataViewRowState.CurrentRows)
        'Dv = New DataView(srcTable, "len(DL¸í) > 0", "", DataViewRowState.CurrentRows)
        Me.SaveReadLayOut(True)
        Me.SaveDrawData(True)

        If Dv.Count <= 0 Then '//µ¥ÀÌÅÍ°¡¾ø´Ù¸é
            MsgBox(Me.cmb_style.Text & "¿¡ ÇØ´çÇÏ´Â µ¥ÀÌÅÍ°¡Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù" & vbCrLf & vbCrLf & "´Ù¸¥ ½ºÅ¸ÀÏÀ» ¼±ÅÃÇϼ¼¿ä", MsgBoxStyle.Information, "È®ÀÎ")
            Me.PictureBox1.Refresh()
        Else
            WLog2(Auto_Log, "¼±ÅÃµÈ ½ºÅ¸ÀÏ¿¡ µ¥ÀÌÅÍ°¡ÀÖ´Ù=" & Dv.Count, "\ÁöÁß¼øÂ÷·Î±×.txt")
            Me.textbox2.Text = Dv.Count - 1 '//ÆÐÅÏ°Ë»ç½Ã Á¾·áÄ«¿îÅÍÀÌ´Ù...
            Me.VScrollBar1.Minimum = 0
            Me.VScrollBar1.Maximum = Dv.Count - 1

            'MsgBox("½ºÅ©·Ñ ¼ö=" & Me.VScrollBar1.Maximum)
            Me.LOAD_STYLE()   '//½ºÅ¸ÀϺҷ¯¿À±â(¿©±â¼­ ¸ðµçÄÁÆ®·ÑÀÇ ±âº» À§Ä¡¿Í ±Û²ÃÀÌ °áÁ¤µÈ´Ù)
            If Me.FirstIdx = -1 Then
                For i As Integer = 0 To Dv.Count - 1    '//¸Ç÷º¸¿©ÁÙ³ðÀ» ã´Â´Ù. DV¿Í ¿ø·¡ À妽º°ªÀÌ ´Ù¸£±â¶§¹®¿¡ ã¾Æ¾ßÇÑ´Ù.
                    If Dv(i)("¹øÈ£") = Srcnum Then
                        FirstIdx = i
                        Exit For
                    End If
                Next
            End If

            If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãÁö¸øÇÏ°í ³ª¿ÓÀ»°æ¿ì¿¡´Â 1¹ø¤Š ·¹Äڵ带 º¸¿©ÁÖµµ·Ï ÇÑ´Ù.
            NoView = True   '//For Validate Index =0

            'ÇÊÅ͸¦ Àû¿ëÇؼ­ ºä¸¦ ±¸¼ºÇÑ´ÙÀ½¿¡ ÇØ´ç ºä¸¦ µ¥ÀÌÅͼҽº·Î º¯°æÇÑ´Ù.
            Me.SaveReadLayOut(True)
            Me.SaveDrawData(True)

            If FirstIdx = 0 Then    '//Index is first
                WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt")
            Else    '//index is not first
                WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt")
            End If

            Me.BindingSource1.DataSource = Dv 'Dv   '//¿©±â¼­¼ÂÆõǸ鼭 ¹Ù·Î tview °¡ ÀÛµ¿µÈ´Ù.
            Me.BindingSource1.Sort = "Á¤·Ä¹øÈ£,¹øÈ£" ',¹øÈ£"            
            Me.VScrollBar1.Value = FirstIdx
            Me.BindingSource1.Position = FirstIdx
            Me.dataview.DataSource = Me.BindingSource1

            'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text)
            If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True)
        End If
        ''WLog2(Auto_Log, "cmb_style selectindexchanged ¿¡¼­ preview ¸¦ È£ÃâÇÔ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        'Me.preview_window()
    End Sub

    Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z")   '//ÀúÀåµÈ ½ºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù.
        '  MsgBox("LOADSTYLE" & "/" & Div)
        '  MsgBox("LOADSTYLE" & "/" & Div)
        WLog2(Auto_Log, "load_style : ½ºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù. div= " & Div, "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim Arinini As New MyINI2(drstyle.File)
        '  Dim pos(), font(), visible, mytext As String
        Dim pos(), font(), mytext As String
        Dim Tobj As MyControlOLEDBv2.MyLabel
        Dim DR() As DataRow
        Dim idx As Integer = 0

        '//¸ðµç¾ÆÀÌÅÛÀ» µ·´Ù
        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)   '//¸ðµç¾ÆÀÌÅÛÀ» µ·´Ù.
            Tobj = Me.AllLabels(i).ctl
            If Div.ToUpper = "Z" Then '//¸ðµç¾ÆÀÌÅÛÀ» °¡Á®¿À°í
                '//¸Þ¸ð¸®¿¡¼­ ã´Â´Ù.
                Tobj.Tag = ""
                DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'")
                If DR.GetUpperBound(0) = 0 Then
                    pos = DR(0)(1).ToString.Split(",")
                    Tobj.Location = New Point(pos(0), pos(1))
                    Tobj.Size = New Size(pos(2), pos(3))
                End If

                DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'")
                If DR.GetUpperBound(0) = 0 Then
                    font = DR(0)(1).ToString.Split(",")
                    Tobj.ÀåÆò = font(5)
                    Tobj.Àå³ôÀÌ = font(6)
                    Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                End If


                Tobj.Visible = True
                'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'")
                'If DR.GetUpperBound(0) = 0 Then
                '    visible = DR(0)(1).ToString
                '    Tobj.Visible = CType(visible, Boolean)
                'End If

                DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'")
                If DR.GetUpperBound(0) = 0 Then
                    mytext = DR(0)(1).ToString
                    Select Case Tobj.Name.ToUpper.Substring(0, 1)
                        Case "U", "A", "B", "D", "E"    '//»ç¿ëÀÚ¹®ÀÚÀÏ°æ¿ì¿¡´Â ¹®ÀÚ¿­µµ ÀúÀåÇؾßÇÑ´Ù.
                            If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini±¸Á¶»ó ¹Ù·ÎÀúÀåÇϸé¾ÈµÇ±â¶§¹®¿¡ º¯È¯Çؼ­ ÀúÀåÇÑ´Ù.
                    End Select
                End If

                DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'")
                If DR.GetUpperBound(0) = 0 Then Tobj.°ø¹é = DR(0)(1).ToString
            Else    '//ƯÁ¤¾ÆÀÌÅÛ±¸ºÐÀ϶§ 

                If Tobj.Name.ToUpper.Substring(0, 1) = Div Then
                    If Div.ToUpper = "H" Then   '//HÀÇ°æ¿ì´Â µû·Î ã¾Æº»´Ù.
                        If Me.°ü¸®±¸Á¶ÀÛµÊ = True Then '//°ü¸®±¸ºÒ·¯¿Â´Ù
                            '//¸Þ¸ð¸®¿¡¼­ ã´Â´Ù.
                            Tobj.Tag = ""
                            DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'")
                            If DR.GetUpperBound(0) = 0 Then
                                pos = DR(0)(1).ToString.Split(",")
                                Tobj.Location = New Point(pos(0), pos(1))
                                Tobj.Size = New Size(pos(2), pos(3))
                            End If

                            DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'")
                            If DR.GetUpperBound(0) = 0 Then
                                font = DR(0)(1).ToString.Split(",")
                                Tobj.ÀåÆò = font(5)
                                Tobj.Àå³ôÀÌ = font(6)
                                Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                            End If

                            Tobj.Visible = True
                            'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'")
                            'If DR.GetUpperBound(0) = 0 Then
                            '    visible = DR(0)(1).ToString
                            '    Tobj.Visible = CType(visible, Boolean)
                            'End If

                            DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'")
                            If DR.GetUpperBound(0) = 0 Then
                                mytext = DR(0)(1).ToString
                                Select Case Tobj.Name.ToUpper.Substring(0, 1)
                                    Case "U", "A", "B", "D", "E"    '//»ç¿ëÀÚ¹®ÀÚÀÏ°æ¿ì¿¡´Â ¹®ÀÚ¿­µµ ÀúÀåÇؾßÇÑ´Ù.
                                        If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini±¸Á¶»ó ¹Ù·ÎÀúÀåÇϸé¾ÈµÇ±â¶§¹®¿¡ º¯È¯Çؼ­ ÀúÀåÇÑ´Ù.
                                End Select
                            End If

                            DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'")
                            If DR.GetUpperBound(0) = 0 Then Tobj.°ø¹é = DR(0)(1).ToString
                        End If
                    Else
                        '//¸Þ¸ð¸®¿¡¼­ ã´Â´Ù.
                        Tobj.Tag = ""
                        DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'")
                        If DR.GetUpperBound(0) = 0 Then
                            pos = DR(0)(1).ToString.Split(",")
                            Tobj.Location = New Point(pos(0), pos(1))
                            Tobj.Size = New Size(pos(2), pos(3))
                        End If

                        DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'")
                        If DR.GetUpperBound(0) = 0 Then
                            font = DR(0)(1).ToString.Split(",")
                            Tobj.ÀåÆò = font(5)
                            Tobj.Àå³ôÀÌ = font(6)
                            Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        End If


                        Tobj.Visible = True
                        'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'")
                        'If DR.GetUpperBound(0) = 0 Then
                        '    visible = DR(0)(1).ToString
                        '    Tobj.Visible = CType(visible, Boolean)
                        'End If

                        'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'")
                        'If DR.GetUpperBound(0) = 0 Then
                        'mytext = DR(0)(1).ToString
                        'Select Case Tobj.Name.ToUpper.Substring(0, 1)
                        '    Case "U", "A", "B", "D", "E"    '//»ç¿ëÀÚ¹®ÀÚÀÏ°æ¿ì¿¡´Â ¹®ÀÚ¿­µµ ÀúÀåÇؾßÇÑ´Ù.
                        'If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini±¸Á¶»ó ¹Ù·ÎÀúÀåÇϸé¾ÈµÇ±â¶§¹®¿¡ º¯È¯Çؼ­ ÀúÀåÇÑ´Ù.
                        'End Select
                        'End If

                        DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'")
                        If DR.GetUpperBound(0) = 0 Then Tobj.°ø¹é = DR(0)(1).ToString
                    End If
                End If
            End If

        Next

        If Div.ToUpper <> "Z" Then Return '//¸ðµçÅÛÀ̾ƴϴÙ


        WLog2(Auto_Log, "load_style ±âº»°ª üũ¹Ú½ºµîÀÇ °ªÀ» ºÒ·¯¿Â´Ù. ÀÌ°ÍÀº ¸Ç÷¿¡¸¸ ºÒ·¯¿À¸é µÈ´Ù. ", "\ÁöÁß¼øÂ÷·Î±×.txt")

        '''''''''''''''''''''¿ìÃø ½ºÅ¸ÀÏ Ã¼Å©¹Ú½º¸¦ °¡Á®¿Â´Ù.
        For Each B As Control In Me.TabPage1.Controls
            If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
                CType(B, System.Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False)  '//±âº»°ª false
            End If
        Next
        For Each B As Control In Me.TabPage3.Controls
            If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
                CType(B, System.Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False)  '//±âº»°ª false
            End If
        Next

        ''''''''''''''''''''''''''''¿Ü'''''''''''''''''''''''''''''''''
        Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10)
        Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10)
        Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5")
        Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3")
        ''''''''''''2Áß
        '//´õ¹Ì´Â ÀÌÁ¦ »ç¿ëÇÏÁö¾Ê´Â´Ù.20090729 º¯°æ
        'Dim UseDummy As Boolean = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False)
        'Try
        Me.tb_pagerepeat.Text = drstyle.DummyCnt
        If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1"
        'Catch ex As Exception
        '    If UseDummy Then
        '        Me.tb_pagerepeat.Text = "2"
        '    Else
        '        Me.tb_pagerepeat.Text = "1"
        '    End If
        'End Try


        Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0)
        Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0")
        Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300")

        If drstyle.Backimg.IndexOf("\") = -1 Then
            Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & drstyle.Backimg
        Else
            Me.tb_picfile.Text = drstyle.Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0))
        End If
        Me.ViewBackImage()  '//¹è°æÀ̹ÌÁö¸¦ Ç¥½ÃÇÑ´Ù.

        Me.pDoc.DefaultPageSettings.Landscape = drstyle.LandScape ' Arinini.Read("STYLE", "LandScape", False)
        Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0)
        'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True))

        Me.chk_DisplayBG.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True)
        Me.Chk_BgImageprint.Checked = drstyle.Printbg
        Me.tb_bakx.Text = drstyle.bakx
        Me.tb_baky.Text = drstyle.baky
        Me.tb_bakw.Text = drstyle.bakw
        Me.tb_bakh.Text = drstyle.bakh


        '//QRÄÚµå
        Try
            Me.cboCorrectionLevel.Text = Arinini.Read("STYLE", "qrlevel", 1)
            Me.cboEncoding.Text = Arinini.Read("STYLE", "qrencoding", 2)
            Me.cboVersion.Text = Arinini.Read("STYLE", "qrvison", 1)
            Dim qrbgstr As String = Arinini.Read("STYLE", "qrbg", "")
            Dim qrfgstr As String = Arinini.Read("STYLE", "qrfg", "")
            If qrbgstr = "" Then
                lbQrBg.BackColor = Drawing.Color.White
            Else
                lbQrBg.BackColor = Drawing.Color.FromArgb(CInt(qrbgstr))
            End If
            If qrfgstr = "" Then
                lbQrFG.BackColor = Drawing.Color.Black
            Else
                lbQrFG.BackColor = Drawing.Color.FromArgb(CInt(qrfgstr))
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try

        '//QRȨÆäÀÌÁö
        '//Try
        Me.home1.Text = Arinini.Read("STYLE", "qrhome1", "http://cyber.kepco.co.kr")
        Me.home2.Text = Arinini.Read("STYLE", "qrhome2", "jeonbuk")
        Me.home3.Text = Arinini.Read("STYLE", "qrhome3", "mjeonbuk")
        Me.home4.Text = Arinini.Read("STYLE", "qrhome4", "report.jsp?location")
        '//Catch ex As Exception
        '//  MessageBox.Show(ex.ToString())
        '//End Try
        Me.gojang.Text = Arinini.Read("STYLE", "gojang", "°íÀå½Å°íµµ ½º¸¶Æ®ÇÏ°Ô")



        Me.tb_myfontsize.Text = drstyle.PrintFontOffset    ' Arinini.Read("STYLE", "PrintFontOffset", 0)
        NOTICE(Me.cmb_style.Text & "½ºÅ¸ÀÏÀ» ºÒ·¯¿Ô½À´Ï´Ù.", Me.lb_msg)

    End Sub

    Public Sub SAVE_STYLE()
        WLog2(Auto_Log, "iniÆÄÀÏ¿¡ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù. ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim Arinini As New MyINI2(drstyle.File)
        Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg"))
        Dim Tobj As MyControlOLEDBv2.MyLabel
        '//ÇöÀç ¼±ÅÃµÈ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù.
        If Me.cmb_style.SelectedIndex < 0 Then
            erp.SetError(Me.cmb_style, "ÀúÀåÇÒ ½ºÅ¸ÀÏÀÌ ¼±ÅõǾîÀÖÁö ¾Ê½À´Ï´Ù")
            NOTICE("½ºÅ¸ÀÏÀ» ¼±ÅÃÇϼ¼¿ä", Me.lb_msg)
            Return
        End If
        erp.SetError(Me.cmb_style, vbNullString)


        Dim f As New fProgress()
        f.ProgressBar1.Minimum = 0
        f.ProgressBar1.Maximum = Me.AllLabels.Length
        f.ProgressBar1.Value = 0
        f.ProgressBar1.Style = ProgressBarStyle.Blocks
        f.Label1.Text = String.Format("½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù" + vbCrLf + "Control")
        'f.TopMost = True
        f.Show()
        Application.DoEvents()   'Dim Div As Char


        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            f.ProgressBar1.Value += 1
            f.Refresh()

            Tobj = Me.AllLabels(i).ctl
            Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height)
            Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj.ÀåÆò & "," & Tobj.Àå³ôÀÌ)
            Arinini.Write("STYLE", Tobj.Name & "visible", True) '±âº»°ªÀ¸·Î Ç¥½Ã·Î Á¤Çسõ°í üũ¹Ú½º üũÇÑ´Ù.
            Arinini.Write("STYLE", Tobj.Name & "space", Tobj.°ø¹é)
            Arinini.Write("STYLE", Tobj.Name & "repeat", Tobj.Repeat.ToString() + "," + Tobj.RepeatX.ToString() + "," + Tobj.RepeatY.ToString()) '//170222

            'Select Case Tobj.Name.ToUpper.Substring(0, 1)
            '    Case "U", "A", "B", "D", "E"
            'Arinini.Write("STYLE", Tobj.Name & "mytext", Arin.TextEnc(Tobj.MyText))
            'End Select

            'Div = Tobj.Name.Substring(0, 1) '1ÀÚ¸®¸¸²÷¾î¼­ üũ¹Ú½º ű׶û ¿¬°áÇÑ´Ù.
            'For Each B As Control In Me.TabPage1.Controls
            '    If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
            '        If B.Tag <> Nothing AndAlso B.Tag.ToString.ToUpper = Div.ToString.ToUpper Then '//ÇØ´ç üũ¹Ú½º¸¦ ã¾ÒÀ¸¸é üũ¹Ú½º »óÅ·ΠÀúÀåÀ»ÇÑ´Ù.
            '            Arinini.Write("STYLE", Tobj.Name & "visible", CType(B, System.Windows.Forms.CheckBox).Checked) 'A.Visible)
            '            Exit For
            '        End If
            '    End If
            'Next
        Next

        f.Label1.Text = String.Format("½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù" + vbCrLf + "CheckBox")
        f.Show()
        Application.DoEvents()
        f.ProgressBar1.Style = ProgressBarStyle.Marquee

        For Each TC As TabPage In Me.TabControl1.TabPages  '//ÅÇÄÁÆ®·Ñ1ÀÇ ¸ðµç ÆäÀÌÁö¿¡¼­ üũ¹Ú½ºÀÇ »óŸ¦ ÀúÀåÇÑ´Ù.
            For Each B As Control In TC.Controls
                If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
                    Arinini.Write("STYLE", B.Name, CType(B, System.Windows.Forms.CheckBox).Checked) 'A.Visible)
                End If
            Next
        Next

        'For Each B As Control In Me.TabPage1.Controls
        '    If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
        '        Arinini.Write("STYLE", B.Name, CType(B, System.Windows.Forms.CheckBox).Checked) 'A.Visible)
        '    End If
        'Next
        'For Each B As Control In Me.TabPage3.Controls
        '    If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
        '        Arinini.Write("STYLE", B.Name, CType(B, System.Windows.Forms.CheckBox).Checked) 'A.Visible)
        '    End If
        'Next

        'Arinini.Write("STYLE", "CanvasX", Me.PictureBox1.Width)  '//ĵ¹ö½º»çÀÌÁîÀúÀåÇÑ´Ù.
        'Arinini.Write("STYLE", "CanvasY", Me.PictureBox1.Height)

        f.Label1.Text = String.Format("½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù" + vbCrLf + "ÀϹÝÁ¤º¸")
        f.Show()
        Application.DoEvents()

        Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked)
        Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked)
        Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked)

        If Not IsNumeric(tb_marginx.Text) Then
            MsgBox("Àμ⿩¹é(°¡·Î) °ªÀ» ¼ýÀÚ·Î ÀÔ·ÂÇϼ¼¿ä." + vbCrLf + "ÇöÀçÀԷ°ª:" + tb_marginx.Text, MsgBoxStyle.Information, "È®ÀÎ")
        Else
            Arininic.Write("printer", "MarginX", Me.tb_marginx.Text)
        End If

        If Not IsNumeric(tb_marginy.Text) Then
            MsgBox("Àμ⿩¹é(¼¼·Î) °ªÀ» ¼ýÀÚ·Î ÀÔ·ÂÇϼ¼¿ä." + vbCrLf + "ÇöÀçÀԷ°ª:" + tb_marginy.Text, MsgBoxStyle.Information, "È®ÀÎ")
        Else
            Arininic.Write("printer", "MarginY", Me.tb_marginy.Text)
        End If

        If Not IsNumeric(tb_scalex.Text) Then
            MsgBox("È®´ëºñÀ²(°¡·Î) °ªÀ» ¼ýÀÚ·Î ÀÔ·ÂÇϼ¼¿ä." + vbCrLf + "ÇöÀçÀԷ°ª:" + tb_scalex.Text, MsgBoxStyle.Information, "È®ÀÎ")
        Else
            Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text)
        End If

        If Not IsNumeric(tb_scaley.Text) Then
            MsgBox("È®´ëºñÀ²(¼¼·Î) °ªÀ» ¼ýÀÚ·Î ÀÔ·ÂÇϼ¼¿ä." + vbCrLf + "ÇöÀçÀԷ°ª:" + tb_scaley.Text, MsgBoxStyle.Information, "È®ÀÎ")
        Else
            Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text)
        End If

        Arininic.Write("printer", "bakx", Me.tb_bakx.Text)
        Arininic.Write("printer", "baky", Me.tb_baky.Text)
        Arininic.Write("printer", "bakw", Me.tb_bakw.Text)
        Arininic.Write("printer", "bakh", Me.tb_bakh.Text)

        Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text)
        Arinini.Write("STYLE", "baky", Me.tb_baky.Text)
        Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text)
        Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text)

        If Me.tb_picfile.Text.Trim = "" Then
            Arinini.Write("STYLE", "backimg", "")
        Else
            Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper
            Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath))
            If NEwpathp = -1 Then
                Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text)
            Else
                Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length))
            End If
        End If

        Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text)
        Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape)

        '//´õ¹Ì üũ¹Ú½º¶û ´õ¹ÌÄÞº¸¹Ú½º À妽º¶û º¯À§ x,y
        ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked)
        Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text)

        Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex)
        Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text)
        Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text)
        ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex)

        '//QRÄÚµå
        Arinini.Write("STYLE", "qrencoding", Me.cboEncoding.Text)
        Arinini.Write("STYLE", "qrlevel", Me.cboCorrectionLevel.Text)
        Arinini.Write("STYLE", "qrvison", Me.cboVersion.Text)
        Arinini.Write("STYLE", "qrfg", Me.lbQrFG.BackColor.ToArgb().ToString())
        Arinini.Write("STYLE", "qrbg", Me.lbQrBg.BackColor.ToArgb().ToString())

        '//QRȨÆäÀÌÁö
        Arinini.Write("STYLE", "qrhome1", Me.home1.Text)
        Arinini.Write("STYLE", "qrhome2", Me.home2.Text)
        Arinini.Write("STYLE", "qrhome3", Me.home3.Text)
        Arinini.Write("STYLE", "qrhome4", Me.home4.Text)

        Arinini.Write("STYLE", "gojang", Me.gojang.Text)

        f.Label1.Text = String.Format("½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù" + vbCrLf + "·¹À̾ƿô")
        f.Show()
        Application.DoEvents()


        Me.SaveReadLayOut(False)

        f.Label1.Text = String.Format("½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù" + vbCrLf + "±×¸®±â°³Ã¼")
        f.Show()
        Application.DoEvents()


        Me.SaveDrawData(False)

        NOTICE("±âº»½ºÅ¸ÀÏÀ» ÀúÀåÇß½À´Ï´Ù", Me.lb_msg)
        WLog2(Auto_Log, "save style ¿Ï·áÈÄ µ¥ÀÌÅÍÅ×ÀÌºí °»½ÅÀ» È£­„ ", "\ÁöÁß¼øÂ÷·Î±×.txt")

        f.Close()
        f.Dispose()
        Application.DoEvents()

        Me.µ¥ÀÌÅÍÅ×ÀÌºí°»½Å()
        Me.preview_window()
    End Sub

    Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown
        If e.Button = System.Windows.Forms.MouseButtons.Right Then
            Select Case sender.name.ToString.ToUpper
                Case "BT_CANVASD"
                    Me.PictureBox1.Top += 5
                Case "BT_CANVASU"
                    Me.PictureBox1.Top -= 5
                Case "BT_CANVASR"
                    Me.PictureBox1.Left += 5
                Case "BT_CANVASL"
                    Me.PictureBox1.Left -= 5
            End Select
        End If

    End Sub


    Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, Optional ByVal LOGFILENAME As String = "\ÆÐÅÏ.TXT", Optional ByVal BlineNum As String = "", Optional ByVal Prompt As Boolean = False)   'ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù. ÆÐÅÏ¿ª½Ã À§Ä¡/Å©±â/ÀåÆòµîÀÌ ÀúÀåµË´Ï´Ù.

        Dim Arinini As New MyINI2(drstyle.File)
        Dim BUF() As Char = SRCSTR.ToCharArray
        Dim mb As String = PATTERN_ENC(SRCSTR)
        Dim MidName As String = labels(0).Pattern
        If BlineNum <> "" Then MidName = "LNUM" & BlineNum & MidName
        '¼±·Î¸í ÆÐÅÏ ÀúÀå
        Dim TOBJ As MyControlOLEDBv2.MyLabel
        Dim Pname As String = MidName & "II" & mb.ToString

        'MsgBox(Pname & "/" & SRCSTR)


        If Prompt = True AndAlso MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?" & vbCrLf & "ÆÐÅÏű×:" & Pname & vbCrLf & "DIV:" & labels(0).DIV, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If

        WLog2(Auto_Log, " save_pattern2 ¸¦ ½ÇÇàÇÑ´Ù.", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")
        For i As Integer = 0 To labels.GetUpperBound(0)
            TOBJ = labels(i)
            WLog2(Auto_Log, MidName & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
            Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MidName)
            WLog2(Auto_Log, "ÃÖÁ¾¼±ÅÿϷá=" & Pname & "      " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
            Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height)
            Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ.ÀåÆò & "," & TOBJ.Àå³ôÀÌ)
            Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible)
            Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.°ø¹é)
            Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY)  '//¹Ýº¹Ãâ·ÂÁ¤º¸ÀúÀå
        Next
        Arinini.Write(Pname, "LineType", Me.tb_ntype.Text)
        Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex)
        WLog2(Auto_Log, "save_patter2 ¤Ä¼­ µ¥ÀÌÅÍÅ×ÀÌºí °»½ÅÀ» ¤¾È£ÃâÇÑ´Ù¤Ó¤Ó ", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")
        Me.µ¥ÀÌÅÍÅ×ÀÌºí°»½Å()
    End Sub

    Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged
        '//°³Ã¼°¡ ¼±ÅõǸé ÇØ´ç °³Ã¼ÀÇ ³»¿ªÀ» º¸¿©ÁØ´Ù.
        'Me.Timer1.Enabled = False
        WLog2(Auto_Log, "°³Ã¼¸ñ·Ï ÄÞº¸¹Ú½º¿¡¼­ ƯÁ¤ °³Ã¼°¡ ¼±ÅõǾú´Ù view property È£Ãâ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
    End Sub

    Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick
        WLog2(Auto_Log, " ±Û¾¾»ö±ò º¯°æ Ŭ¸¯µÊ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim A As New ColorDialog
        If A.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon
                Onlyone.MyForeColor = A.Color
            Next
            Me.tb_foncol.BackColor = A.Color
        End If
        Me.preview_window()
    End Sub

    Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged
        WLog2(Auto_Log, "±Û¾¾…B°Ô ¼±ÅÃµÊ setfont È£Ãâ ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        SetFont()
    End Sub

    Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) '
        WLog2(Auto_Log, "updatefont :  ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim A As Font
        For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon
            A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point)
            Tobj.MyFont = A
        Next
        Me.SetFont()
    End Sub

    Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short)
        If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub

        For Each sender As MyControlOLEDBv2.MyLabel In SelCon
            If vertical Then    '//»óÇÏ
                If My.Computer.Keyboard.CtrlKeyDown Then
                    If offset < 0 Then
                        sender.Àå³ôÀÌ -= 10
                    Else
                        sender.Àå³ôÀÌ += 10
                    End If
                Else
                    sender.Àå³ôÀÌ += offset
                End If
            Else    '//Á¿ì
                If My.Computer.Keyboard.CtrlKeyDown Then
                    If offset < 0 Then
                        sender.ÀåÆò -= 10
                    Else
                        sender.ÀåÆò += 10
                    End If
                Else
                    sender.ÀåÆò += offset
                End If
            End If
        Next

        Me.preview_window()
    End Sub

    Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String)
        '//±âŸ½ºÅ¸ÀÏÀº ºóµµ°¡ ÀûÀ¸´Ï ÆÄÀÏ¿¡¼­ ºÒ·¯¿À±â·ÎÇÑ´Ù.;;¸Þ¸ð¸®´Â ½ÈŸ.
        Dim Arinini As New MyINI2(FileC)
        If Not IO.File.Exists(FileC) Then
            MsgBox("±âŸ½ºÅ¸Àϼ³Á¤ ÆÄÀÏÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù\n\n°ü¸®ÀÚ¿¡ ¹®ÀÇÇϼ¼¿ä", MsgBoxStyle.Critical, "¿À·ù")
            Return
        End If
        Dim pos(), font(), visible As String '//±¸Àü»ê¹øÈ£¸¦ ±¸ÇöÇغ»´Ù.
        Dim Tobj As MyControlOLEDBv2.MyLabel

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            Tobj = Me.AllLabels(i).ctl
            Try
                If Div.ToUpper = "Z" Then '//¸ðµç¾ÆÀÌÅÛÀ» °¡Á®¿À°í
                    pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",")
                    font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",")
                    visible = Arinini.Read(StyleName, Tobj.Name & "visible")
                    '//»óŸ¦ Àо ¹Ù·Î Àû¿ëÇÑ´Ù.
                    Tobj.Location = New Point(pos(0), pos(1))
                    Tobj.Size = New Size(pos(2), pos(3))
                    Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                    Tobj.ÀåÆò = font(5)
                    Tobj.Àå³ôÀÌ = font(6)
                    Tobj.°ø¹é = Arinini.Read(StyleName, Tobj.Name & "space", 0)
                    Tobj.Visible = CType(visible, Boolean)
                Else 'ÀÌ°÷¿¡ O°¡¿Ã°ÍÀÌ´Ù.
                    If Tobj.Name.ToUpper.Substring(0, 1) = Div Then
                        pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",")
                        font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",")
                        visible = Arinini.Read(StyleName, Tobj.Name & "visible")
                        '//»óŸ¦ Àо ¹Ù·Î Àû¿ëÇÑ´Ù.
                        Tobj.Location = New Point(pos(0), pos(1))
                        Tobj.Size = New Size(pos(2), pos(3))
                        Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        Tobj.ÀåÆò = font(5)
                        Tobj.Àå³ôÀÌ = font(6)
                        Tobj.°ø¹é = Arinini.Read(StyleName, Tobj.Name & "space", 0)
                        Tobj.Visible = CType(visible, Boolean)
                    End If
                End If
            Catch ex As Exception
                WLog2(Auto_Log, "LOAD_STYLE_CUSTOM ¿À·ù:" & ex.Message.ToString, "LOAD_STYLEC")
            End Try
        Next
        NOTICE(StyleName & "±âŸ½ºÅ¸ÀÏÀ» ºÒ·¯¿Ô½À´Ï´Ù.", Me.lb_msg)
        Me.preview_window()
    End Sub

    Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//±âŸ½ºÅ¸ÀÏ ÀúÀåÇÑ´Ù.
        Dim Arinini As New MyINI2(FileC)
        '//ÇöÀç ¼±ÅÃµÈ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù.
        Arinini.Write(stylename, "DESC", stylename)
        Dim Tobj As MyControlOLEDBv2.MyLabel

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            Tobj = Me.AllLabels(i).ctl
            Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height)
            Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj.ÀåÆò & "," & Tobj.Àå³ôÀÌ)
            Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible)
            Arinini.Write(stylename, Tobj.Name & "space", Tobj.°ø¹é)
        Next
        NOTICE("±âŸ½ºÅ¸ÀÏÀ» ÀúÀåÇß½À´Ï´Ù", Me.lb_msg)
    End Sub



    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrSize(False, -5)
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrSize(False, 5)
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrSize(True, -5)
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrSize(True, 5)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrPos(False, -5)
    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrPos(False, 5)
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrPos(True, -5)
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.CtrPos(True, 5)
    End Sub

    Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp
        '//ÇöÀçÀ§Ä¡¿¡¼­ ¿£ÅÍÄÖÀ»°æ¿ì µ¥ÀÌÅͺ£À̽º À§Ä¡°ªÀ» º¯°æÇÑ´Ù.(position)
        If e.KeyCode = Keys.Enter Then
            If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True)
        End If
    End Sub
    Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "")
        Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag
        My.Application.DoEvents()
    End Sub
    Private Sub NPartternCheck()
        Dim ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = 0

        '//ÆÐÅÏ°Ë»ç½ÃÀÛ
        ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png")
        For i As Integer = Me.textbox1.Text To Me.textbox2.Text
            Me.showcnt(i, Me.textbox2.Text)

            Me.textbox1.Text = i
            ¹øÈ£ÆÐÅÏ°Ë»ç = ChkNumPattern(i)
            '  MsgBox(¹øÈ£ÆÐÅÏ°Ë»ç)

            If ¹øÈ£ÆÐÅÏ°Ë»ç = 0 Then    '1Àº ±æÀÌÆÐÅÏÀÌ ¾ø°í 3À̳ª 2´Â ¹®ÀÚÆÐÅÏÀÌ´Ù
                NOTICE("ÀϷùøÈ£=" & i + 1 & "¹ø ¹®ÀÚ,±æÀÌ ÆÐÅÏÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù", Me.lb_msg)
                My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background)
                'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
                Me.BindingSource1.Position = i
                Exit For
            End If
        Next
        If Me.textbox1.Text = Me.textbox2.Text Then  '//¿Ï·áµÇ¾ú´Ù¸é
            My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background)
            NOTICE("ÆÐÅϰ˻簡 ¿Ï·áµÇ¾ú½À´Ï´Ù", Me.lb_msg)
        End If
        Me.bt_chkpattern.Text = "½ÃÀÛ(&S)"
    End Sub


    Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged
        If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True
    End Sub

    Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        ' MsgBox("PARSET_°ü¸®±¸")
        Me.CLEAR_ITEM(Mylabels)
        Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt"
        If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then
            WLog2(Auto_Log, "Zero Length - Return", Log)
            Return False
        End If
        WLog2(Auto_Log, "pase ½ÃÀÛ", Log)

        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SRC() As Char = srcstr.ToCharArray

        WLog2(Auto_Log, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        If Mylabels.GetUpperBound(0) = 0 Then
            Mylabels(0).MyText = srcstr
            Mylabels(0).Visible = True
        Else
            For i As Integer = 0 To Wlen - 1   '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
                Try
                    Select Case SRC(i)
                        Case ";"
                            Mylabels(i).MyText = "---"
                            Mylabels(i).Visible = True
                        Case ":"
                            Mylabels(i).MyText = ""
                            Mylabels(i).Visible = True
                        Case Else
                            Mylabels(i).MyText = SRC(i)
                            Mylabels(i).Visible = True
                    End Select
                Catch ex As Exception
                    Exit For
                End Try
            Next
        End If
        Return True
    End Function

    Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "")
        Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '//¾ø´Â ±Û±Í°¡ ¿ÓÀ»¶§ ÅÏÇعö¸°´Ù.
        Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt"
        '//¸ÕÀúÆÐÅÏÀÌ Á¸ÀçÇÏ´ÂÁö È®ÀÎÇغ»´Ù.
        '±æÀÌÆÐÅÏ¿©ºÎ¸¦ È®ÀÎÇßÀ¸¹Ç·Î ÆÐÅÏÀ»Àû¿ëÇÑ´Ù.[STYLE1LINEPATTERN9]
        AddLog(Admin, "Enter > Parse_Pattern", "\Alllog.txt")
        Dim Pname As String = labels(0).Pattern & Wlen
        If BlineNum <> "" Then '//ÁÙ±×·ì
            '  Me.±æÀÌÆÐÅÏ¿¬½À(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels)
            Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr)
            Me.¹®ÀÚÆÐÅÏ¿¬½À(Srcstr, "LNUM" & BlineNum & Pname, Log, labels)
        Else
            ' Me.±æÀÌÆÐÅÏ¿¬½À(Srcstr, Pname, Log, labels(0).Tag, labels)
            Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr)
            Me.¹®ÀÚÆÐÅÏ¿¬½À(Srcstr, Pname, Log, labels)
        End If
        '//ÆÐÅÏ1ÀÌ ³¡³µ´Ù ÆÐÅÏ2¸¦ ã´Â´Ù.
        '//ÆÐÅÏ2´Â style1LInepatternII¹®ÀÚ¼ýÀÚÇü½Ä
    End Sub
    '---------------------------------
    Public Function PARSE_¹øÈ£(ByVal srcsTR As String) As Boolean
        'Me.CLEAR_ITEM("X")
        Dim Log As String = "\Parse_¹øÈ£.txt"
        If srcsTR = "" OrElse Not Me.cb_x.Checked Then
            Me.CLEAR_ITEM(Me.SÀüÁÖ¹øÈ£)
            WLog2(Auto_Log, "Zero Length - Return", Log)
            Return False
        End If

        Dim Wlen As Short = srcsTR.Length
        Dim SepPos As Short = srcsTR.IndexOf(";")
        Dim SRC() As Char = srcsTR.ToCharArray

        WLog2(Auto_Log, "Length=" & Wlen & "   Sep=" & SepPos, Log)
        Return True
    End Function
    Public Function PARSE_¹øÈ£ÆÐÅÏ(ByVal SRCSTR As String) As Integer
        Dim Wlen As Short = SRCSTR.Length : If Wlen <= 0 Then Return 3 '//¾ø´Â ±Û±Í°¡ ¿ÓÀ»¶§ ÅÏÇعö¸°´Ù.
        Dim SRC() As Char = SRCSTR.ToCharArray
        Dim Log As String = "\Parse_¹øÈ£ÆÐÅÏ.txt"
        Dim SepPos As Short = SRCSTR.IndexOf(";")
        Dim retval As Integer = 0   ''0Àº Á¤»ó 1Àº ±æÀÌÆÐÅϾøÀ½ 2´Â 3Àº ±æÀÌ+¹®ÀÚ¾øÀ½

        '//¹øÈ£´Â ±æÀÌÆÐÅÏÀ» ÇÏÁö¾Ê°í ¹®ÀÚÆÐÅϸ¸ ÇÑ´Ù.
        Dim pname As String
        Dim Arinini As New MyINI2(drstyle.File)
        Dim CTLPOS() As String  '//À§Ä¡Á¤º¸
        Dim CTLFONT() As String
        Dim CTLVISIBLE As Boolean
        Dim PATTERN As String = PATTERN_ENC(SRCSTR)
        Dim TOBJ As MyControlOLEDBv2.MyLabel

        Dim ºÐ¸®À妽º As Short = 0
        Dim ¹øÈ£Çü½Ä As String = "999"
        Dim Dr() As DataRow

        '//¸ÕÀú¹®ÀÚ°¡ÀÖ´ÂÁö È®ÀÎÇÑ´Ù.
        pname = "JJNUMPATTERN" & "II" & PATTERN

        Dr = dtpattern.Select("NAME = '" & pname & "X1POS'")
        If Dr.GetUpperBound(0) = 0 Then '//µ¥ÀÌÅÍ°¡ Á¸ÀçÇϹǷΠ¸ðµÎ Àû¿ëÀ» ÇÑ´Ù.
            WLog2(Auto_Log, "¹øÈ£ÆÐÅÏ°¨Áö(¹®ÀÚ) :  ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & SRCSTR & " ÆÐÅÏ=" & PATTERN, Log)
            '//µ¥ÀÌÅÍ´Â ÃÖÁ¾ÀûÀ¸·Î ¹øÈ£Çü½Ä¿¡¼­ º¸³½´Ù.
            ºÐ¸®À妽º = Arinini.Read(pname, "nseparate", 0)
            ¹øÈ£Çü½Ä = Arinini.Read(pname, "LineType", "999")

            For i As Integer = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
                TOBJ = Me.SÀüÁÖ¹øÈ£(i)
                TOBJ.Tag = ""   '//±âÁ¸Å±׸¦ »èÁ¦ÇÑ´Ù.
                Try
                    '//»óŸ¦ Àо ¹Ù·Î Àû¿ëÇÑ´Ù.
                    Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "POS'")
                    If Dr.GetUpperBound(0) = 0 Then
                        CTLPOS = Dr(0)(1).ToString.Split(",")
                        TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1))
                        TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3))
                    End If

                    Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'")
                    If Dr.GetUpperBound(0) = 0 Then
                        CTLFONT = Dr(0)(1).ToString.Split(",")
                        TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        TOBJ.ÀåÆò = CTLFONT(5)
                        TOBJ.Àå³ôÀÌ = CTLFONT(6)
                    End If

                    Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'")
                    If Dr.GetUpperBound(0) = 0 Then
                        CTLVISIBLE = Dr(0)(1).ToString
                        TOBJ.Visible = CType(CTLVISIBLE, Boolean)
                    End If

                    Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'")
                    If Dr.GetUpperBound(0) = 0 Then
                        TOBJ.°ø¹é = Dr(0)(1).ToString
                    End If
                    TOBJ.Tag = "C"
                Catch ex As Exception
                    WLog2(Auto_Log, "¹®ÀÚÆÐÅÏ¿À·ù=" & ex.Message.ToString, Log)
                End Try
            Next
        Else
            WLog2(Auto_Log, "¹®ÀÚÆÐÅϺÒÀÏÄ¡ ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & SRCSTR & " ÆÐÅÏ=" & PATTERN, Log)
            retval += 2 '//ÆÐÅÏÀÌ ¾øÀ¸¹Ç·Î ¹Ù·Î ³Ñ±ä´Ù.
        End If




        If retval = 2 Then  '//¹®ÀÚÆÐÅÏÀÌ ¾øÀ»°æ¿ì¿¡¸¸ ±æÀÌÆÐÅÏÀ» È®ÀÎÇÑ´Ù.
            '//±æÀÌÆÐÅÏ È®ÀÎ
            pname = "JJNUMPATTERN" & Wlen

            Dr = dtpattern.Select("NAME = '" & pname & "X1POS'")
            If Dr.GetUpperBound(0) = 0 Then '//µ¥ÀÌÅÍ°¡ Á¸ÀçÇϹǷΠ¸ðµÎ Àû¿ëÀ» ÇÑ´Ù.
                WLog2(Auto_Log, "¹øÈ£ÆÐÅÏ°¨Áö(±æÀÌ) :  ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & SRCSTR, Log)
                '//µ¥ÀÌÅÍ´Â ÃÖÁ¾ÀûÀ¸·Î ¹øÈ£Çü½Ä¿¡¼­ º¸³½´Ù.
                ºÐ¸®À妽º = Arinini.Read(pname, "nseparate", 0)
                ¹øÈ£Çü½Ä = Arinini.Read(pname, "LineType", "999")

                For i As Integer = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
                    TOBJ = Me.SÀüÁÖ¹øÈ£(i)
                    TOBJ.Tag = ""   '//±âÁ¸Å±׸¦ »èÁ¦ÇÑ´Ù.
                    Try
                        '//»óŸ¦ Àо ¹Ù·Î Àû¿ëÇÑ´Ù.
                        Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "POS'")
                        If Dr.GetUpperBound(0) = 0 Then
                            CTLPOS = Dr(0)(1).ToString.Split(",")
                            TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1))
                            TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3))
                        End If

                        Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'")
                        If Dr.GetUpperBound(0) = 0 Then
                            CTLFONT = Dr(0)(1).ToString.Split(",")
                            TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                            TOBJ.ÀåÆò = CTLFONT(5)
                            TOBJ.Àå³ôÀÌ = CTLFONT(6)
                        End If

                        Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'")
                        If Dr.GetUpperBound(0) = 0 Then
                            CTLVISIBLE = Dr(0)(1).ToString
                            TOBJ.Visible = CType(CTLVISIBLE, Boolean)
                        End If

                        Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'")
                        If Dr.GetUpperBound(0) = 0 Then
                            TOBJ.°ø¹é = Dr(0)(1).ToString
                        End If
                        TOBJ.Tag &= "L"
                    Catch ex As Exception
                        WLog2(Auto_Log, "±æÀÌ ÆÐÅÏ¿À·ù=" & ex.Message.ToString, Log)
                    End Try
                Next
            Else
                WLog2(Auto_Log, "±æÀÌÆÐÅϺÒÀÏÄ¡ ±âº»½ºÅ¸ÀÏ º¹¿ø  ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & SRCSTR, Log)
                retval += 1 '//¾ø´Ù
            End If
        End If

        Me.cmb_sep.SelectedIndex = ºÐ¸®À妽º

        If ¹øÈ£Çü½Ä = "999" Then    '//ÆÐÅÏÀ̾ø¾ú´Ù´Â ¸»ÀÌ´Ù ¹øÈ£Çü½ÄÀ» ¾î´ÀÁ¤µµ ¸ÂÃçÁØ´Ù.
            'MsgBox("¹øÈ£Çü½ÄÀÌ ¾ø¾î¼­ ¼ÂÆÃÇÕ´Ï´Ù(" & ¹øÈ£ & "/" & ¹øÈ£.Length)
            If ÀüÁÖ¹øÈ£.Length <= 12 Then
                If ÀüÁÖ¹øÈ£.Length <= 4 Then
                    ¹øÈ£Çü½Ä = ÀüÁÖ¹øÈ£.Length & "00"
                ElseIf ÀüÁÖ¹øÈ£.Length <= 8 Then
                    ¹øÈ£Çü½Ä = "4" & CStr(ÀüÁÖ¹øÈ£.Length - 4) & "0"
                Else
                    ¹øÈ£Çü½Ä = "44" & CStr(ÀüÁÖ¹øÈ£.Length - 8)
                End If
            Else    '//12ÀÚ¸®ÀÌ»óÀ̹ǷΠ¾î‰F°Ô ÂÉ°³¾ßÇÒÁö 3À¸·Î³ª´²¼­ ..int ´ëÀÔÀ» ÇÏÀÚ
                ¹øÈ£Çü½Ä = CStr(Int(ÀüÁÖ¹øÈ£.Length / 3)) & CStr(Int(ÀüÁÖ¹øÈ£.Length / 3)) & CStr(ÀüÁÖ¹øÈ£.Length - Int(ÀüÁÖ¹øÈ£.Length / 3) * 2)
            End If
            'MsgBox("ÃÖÁ¾¹øÈ£=" & ¹øÈ£Çü½Ä)
        End If

        Me.tb_ntype.Text = ¹øÈ£Çü½Ä

        ¹øÈ£Çü½ÄÁöÁ¤(Me.tb_ntype.Text)  '//¹øÈ£Çü½ÄÀ» °»½ÅÇØÁØ´Ù.
        Return retval '// 0ÀÌ ¸®ÅϵɰÍÀÌ´Ù. ÆÐÅÏÀÌ ¸ðµÎ Á¤»óÀ̶õ ¶æÀÌ´Ù


    End Function






    Private Function GetnextCtl(ByVal currCtl As MyControlOLEDBv2.MyLabel) As MyControlOLEDBv2.MyLabel
        Dim a As MyControlOLEDBv2.MyLabel = Nothing
        Select Case currCtl.Name.ToUpper
            Case "X1"
                a = Me.SÀüÁÖ¹øÈ£(1) ' X2
            Case "X2"
                a = Me.SÀüÁÖ¹øÈ£(2) 'X3
            Case "X3"
                a = Me.SÀüÁÖ¹øÈ£(3) 'x4
            Case "X4"
                a = Me.SÀüÁÖ¹øÈ£(4) 'x5
            Case "X5"
                a = Me.SÀüÁÖ¹øÈ£(5) ' x6
            Case "X6"
                a = Me.SÀüÁÖ¹øÈ£(6) 'x7
            Case "X7"
                a = Me.SÀüÁÖ¹øÈ£(7) ' x8
            Case "X8"
                a = Me.SÀüÁÖ¹øÈ£(8) 'x9
            Case "X9"
                a = Me.SÀüÁÖ¹øÈ£(9) 'x10
            Case "X10"
                a = Me.SÀüÁÖ¹øÈ£(10) ' x11
            Case "X11"
                a = Me.SÀüÁÖ¹øÈ£(11) 'x12
            Case "X12"
                a = Me.SÀüÁÖ¹øÈ£(12) 'X13
            Case "X13"
                a = Me.SÀüÁÖ¹øÈ£(13) 'x14
            Case "X14"
                a = Me.SÀüÁÖ¹øÈ£(14) 'x15
            Case "X15"
                a = Me.SÀüÁÖ¹øÈ£(15) ' x16
            Case "X16"
                a = Me.SÀüÁÖ¹øÈ£(16) 'x17
            Case "X17"
                a = Me.SÀüÁÖ¹øÈ£(17) ' x18
            Case "X18"
                a = Me.SÀüÁÖ¹øÈ£(18) 'x19
            Case "X19"
                a = Me.SÀüÁÖ¹øÈ£(19) 'x20
            Case "X20"
                a = Me.SÀüÁÖ¹øÈ£(20) ' x21
            Case Else
                a = Nothing
        End Select
        Return a
    End Function


    Private Sub ¹øÈ£Çü½ÄÁöÁ¤(Optional ByVal msg As String = "999")
        'MsgBox("¹øÈ£Çü½ÄÁöÁ¤ : " & ¹øÈ£, MsgBoxStyle.Information, msg)
        '//ÁöÁ¤µÈ ¹øÈ£Çü½ÄÀ¸·Î ÀüºÎ¹øÈ£¸¦ Ç¥½ÃÇÑ´Ù.
        '//20070826 ¹øÈ£´Â ºÐ¸®/ÅëÇÕÀ¸·Î ±¸ºÐÇؼ­ Ãâ·ÂÇÑ´Ù.

        Dim A() As Char = ÀüÁÖ¹øÈ£.ToCharArray
        Dim P() As String
        If msg.IndexOf(",") = -1 Then '//±¸¹öÁ¯ 140702
            Dim pp As New List(Of String)
            For Each cc As Char In msg.ToCharArray
                pp.Add(cc)
            Next
            P = pp.ToArray()
        Else
            P = msg.Split(",")
        End If
        Me.CLEAR_ITEM(Me.SÀüÁÖ¹øÈ£)

        '//12ÀÚÀÌ»óÀº °³º°À̶ó°í ÇÑ´Ù¸é ÇØ´ç¹øÈ£¸¦ È¥ÇÕÀ¸·Î ¹Ù²Û´Ù.
        If Me.cmb_sep.SelectedIndex = -1 OrElse (Me.cmb_sep.SelectedIndex = 1 AndAlso ÀüÁÖ¹øÈ£.Length > 30) Then Me.cmb_sep.SelectedIndex = 0

        Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.SÀüÁÖ¹øÈ£(0)
        Dim CurPos As Short = 0    '//¸î¹ø° ÄÁÆ®·Ñ±îÁö ›§´Ù´Â Ç¥½Ã
        Dim CPos As Short = 0       '//Àüü¹®ÀÚÁß ¸î¹ø°±îÁö Çߴٴ ǥ½Ã

        Dim Limit(P.GetUpperBound(0)) As Short    '//°¢¹è¿­º° ÇÑ°è¼ýÀÚ
        For i As Short = 0 To P.GetUpperBound(0)
            If i = 0 Then
                Limit(i) = CInt(P(i).ToString)
            Else
                Limit(i) = Limit(i - 1) + CInt(P(i).ToString)
            End If
            '   MsgBox("ÇÑ°Ô°ª : " & i & " °ª=" & Limit(i))
        Next

        Select Case Me.cmb_sep.SelectedIndex
            Case 0  '//È¥ÇÕ
                '//Çü½Ä¼ö°¡ 4¸¦ ³ÑÁö¾ÊÀ¸¸é °³º° ³ÑÀ»°æ¿ì ÅëÇÕÃâ·ÂÀ¸·ÎÇÑ´Ù.
                '//¿¬½Àµ¥ÀÌÅÍ 3442 : 345 R23L1 R932
                ' MsgBox("¹øÈ£Çü½Ä=" & msg & "/" & ¹øÈ£ & "/p0=" & P(0))
                Me.tb_ntype.Enabled = True  '//ºÐ¸®¿³À»¶§ ÀÌ°ÍÀÌ false ·Î µÈ´Ù.
                Dim OK As Short = -1  '//¿Ï·á ¹øÈ£Çü½Ä ¹è¿­°ª
                Dim »ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡ As Short = -1
                Dim RES As Boolean = False

                For i As Integer = 0 To A.GetUpperBound(0)
                    If CInt(P(OK + 1).ToString) <= 4 Then    '//°³º°·Î³Ö´Â´Ù
                        If i + 1 < Limit(OK + 1) Then
                            »ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡ += 1
                            Me.SÀüÁÖ¹øÈ£(»ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡).MyText &= IIf(A(i) <> ";", A(i), "")
                        ElseIf i + 1 = Limit(OK + 1) Then
                            OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For
                            »ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡ += 1
                            Me.SÀüÁÖ¹øÈ£(»ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡).MyText &= IIf(A(i) <> ";", A(i), "")
                        End If
                    Else   '//4º¸´ÙÅ©´Ù¸é ÇØ´ç ok°¡ ²ö³¯¶§±îÁö ÇÑ°³ÀÇ ÄÁÆ®·Ñ¿¡ ³Ö´Â´Ù.
                        If RES = False Then
                            »ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡ += 1
                            RES = True
                        End If
                        If i + 1 < Limit(OK + 1) Then
                            Me.SÀüÁÖ¹øÈ£(»ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡).MyText &= IIf(A(i) <> ";", A(i), "")
                        ElseIf i + 1 = Limit(OK + 1) Then
                            Me.SÀüÁÖ¹øÈ£(»ç¿ëÇÑÄÁÆ®·ÑÀ§Ä¡).MyText &= IIf(A(i) <> ";", A(i), "")
                            OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For
                            RES = False
                        End If
                    End If
                Next
            Case 1  '//ºÐ¸® 
                Me.tb_ntype.Enabled = False
                For i As Int16 = 0 To A.GetUpperBound(0) '//°³º° 12°³ÀÇ ¿­¿¡ µ¥ÀÌÅ͸¦ Ãâ·ÂÇÑ´Ù.(30°³·Î ´Ã·ÇÀ¸´Ï ÃæºÐÇÒ°ÍÀÌ´Ù)
                    Me.SÀüÁÖ¹øÈ£(i).MyText = IIf(A(i) <> ";", A(i), "")
                Next
            Case 2  '//ÅëÇÕ
                Me.tb_ntype.Enabled = True
                Dim OK As Short = -1  '//¿Ï·á ¹øÈ£Çü½Ä ¹è¿­°ª
                For i As Integer = 0 To A.GetUpperBound(0)
                    If i < Limit(OK + 1) Then
                        Me.SÀüÁÖ¹øÈ£(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "")
                    ElseIf i = Limit(OK + 1) Then
                        OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For
                        Me.SÀüÁÖ¹øÈ£(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "")
                    End If
                Next
        End Select

        For i As Integer = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
            Me.SÀüÁÖ¹øÈ£(i).Visible = IIf(Me.SÀüÁÖ¹øÈ£(i).MyText = "", False, True)
        Next
    End Sub


    Public Sub PARSE_º¯¾Ð±â¿ë·®ÆÐÅÏ(ByVal Srcstr As String, ByVal srcstr2 As String)
        Dim Log As String = "\PATTERN_º¯¾Ð±â¿ë·®.txt"
        Dim NewMsg As String = Srcstr & srcstr2
        Dim Wlen As Short = NewMsg.Length : If Wlen <= 0 Then Return

        '±æÀÌÆÐÅÏ¿©ºÎ¸¦ È®ÀÎÇßÀ¸¹Ç·Î ÆÐÅÏÀ»Àû¿ëÇÑ´Ù.[STYLE1LINEPATTERN9]
        Dim Pname As String = "BAPPATTERN" & NewMsg.Length

        ' Me.±æÀÌÆÐÅÏ¿¬½À(NewMsg, Pname, Log, "J", Sº¯¾Ð±â¿ë·®)
        '//ÆÐÅÏ1ÀÌ ³¡³µ´Ù ÆÐÅÏ2¸¦ ã´Â´Ù.
        '//ÆÐÅÏ2´Â style1LInepatternII¹®ÀÚ¼ýÀÚÇü½Ä
        Pname = "BAPPATTERN" & "II" & PATTERN_ENC(NewMsg)
        '  MsgBox(Pname)


        Me.¹®ÀÚÆÐÅÏ¿¬½À(NewMsg, Pname, Log, Me.Sº¯¾Ð±â¿ë·®)

    End Sub

    Public Function PARSE_º¯¾Ð±â¿ë·®(ByVal srcstr As String, ByVal srcstr2 As String) As Boolean
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        'MsgBox("p º¯¾Ð±â¿ë·®=" & º¯¾Ð±â»ó & "/" & º¯¾Ð±â¿ë·®)
        Me.CLEAR_ITEM(Me.Sº¯¾Ð±â¿ë·®)
        Dim Log As String = "\Parse_º¯¾Ð±â¿ë·®.txt"
        If (srcstr = "" AndAlso srcstr2 = "") OrElse Not Me.cb_j.Checked Then
            WLog2(Auto_Log, "Zero Length - Return", Log)
            Return False
        End If
        ' srcstr = IIf(srcstr = "", srcstr2, srcstr & "¨ª " & srcstr2 & "KVA")
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SRC() As Char = srcstr.ToCharArray
        WLog2(Auto_Log, "Length=" & srcstr.Length & "," & srcstr2.Length, Log)

        'If Me.cmb_style.Text = "º¯¾Ð±â¹øÈ£Âû(BÇü)" Or Me.cmb_style.Text = "º¯¾Ð±â¹øÈ£Âû(°íÈÖµµBÇü)" Then
        If Me.cmb_style.Text = "º¯¾Ð±â¹øÈ£Âû(°íÈÖµµBÇü)" Then
            Me.Sº¯¾Ð±â¿ë·®(0).MyText = IIf(srcstr = "", srcstr2, srcstr & "¨ª " & srcstr2 & "K")
            Me.Sº¯¾Ð±â¿ë·®(0).Visible = True
            Return True
        Else
            Me.Sº¯¾Ð±â¿ë·®(0).MyText = IIf(srcstr = "", srcstr2, srcstr & "¨ª " & srcstr2 & "KVA")
            Me.Sº¯¾Ð±â¿ë·®(0).Visible = True
            Return True
        End If


    End Function



    Private Sub tb_ntype_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            If Me.cmb_sep.SelectedIndex = 1 Then
                NOTICE("ºÐ¸®»óÅ¿¡¼­´Â ¹øÈ£ÁöÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", Drawing.Color.Red, Me.lb_msg)
            Else
                ¹øÈ£Çü½ÄÁöÁ¤(Me.tb_ntype.Text)
            End If
            Me.preview_window()
        End If

    End Sub

    Private Sub SaveReadLayOut(ByVal read As Boolean)   '//ÇöÀç È­¸é±¸¼ºÀ» °¡·Î/¼¼·Î °áÁ¤ÇÕ´Ï´Ù.
        '//iniÆÄÀÏ¿¡ÀúÀåÇÑ´Ù. ¼½¼Ç¸íÀº pagetype0 ,pagetyp1  0Àº ¼¼·Î 1Àº °¡·Î´Ù
        Dim ini As New MyINI2(drstyle.File)
        Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex

        If read = False Then
            ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top)
            ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height)
            ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top)
            ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height)
            ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top)
            ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height)
            ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top)
            ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height)
            ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top)
            ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height)
            ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top)
            ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height)
            ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top)
            ini.Write(Secname, "mesize", Me.Width & "," & Me.Height)
        Else   '//¿©±â´Â Àд ºÎºÐ

            If Me.cmb_landscape.SelectedIndex = 0 Then '//¼¼·Î
                Me.pDoc.DefaultPageSettings.Landscape = False
                TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1))
                TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1))
                PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1))
                PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1))
                TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1))
                TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1))
                TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1))
                GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1))
                GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1))
                GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1))
                GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1))
                cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1))
                cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1))
                ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1))
                Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1))
            Else
                Me.pDoc.DefaultPageSettings.Landscape = True
                TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1))
                TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1))
                PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1))
                PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1))
                TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1))
                TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1))
                TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1))
                GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1))
                GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1))
                GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1))
                GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1))
                cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1))
                cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1))
                ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1))
                Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1))
                'GroupBox9.Location = New Point(ini.Read(Secname, "GroupBox9loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox9loc", "262,6").Split(",")(1))
                'GroupBox9.Size = New Size(ini.Read(Secname, "GroupBox9size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox9size", "245,192").Split(",")(1))
            End If

        End If

    End Sub

    Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged
        Me.SaveReadLayOut(True)
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        '//°³Ã¼°¡ ¼±ÅõǸé ÇØ´ç °³Ã¼ÀÇ ³»¿ªÀ» º¸¿©ÁØ´Ù.
        'Me.Timer1.Enabled = False

    End Sub

    Private Sub GetPrintersName()
        WLog2(Auto_Log, "GetPrinterName()", "\ÁöÁß¼øÂ÷·Î±×.txt")
        Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters
        Me.combobox5.Items.Clear()
        For i As Integer = 0 To value.Count - 1
            Me.combobox5.Items.Add(value(i))
        Next
    End Sub


    Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta < 0 Then
            'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then
            Me.BindingNavigatorMoveNextItem.PerformClick()
            Me.BindingNavigatorPositionItem.Focus()
            'End If
        Else
            If Me.BindingNavigatorPositionItem.Text > 0 Then
                Me.BindingNavigatorMovePreviousItem.PerformClick()
                Me.BindingNavigatorPositionItem.Focus()
            End If

        End If
    End Sub


    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click
        If Me.bt_chkpattern.Text = "ÁßÁö(&S)" Then
            ' If BackWork.IsAlive Then BackWork.Abort()
            Me.bt_chkpattern.Text = "½ÃÀÛ(&S)"
        Else
            Me.bt_chkpattern.Text = "ÁßÁö(&S)"
            'BackWork = New Threading.Thread(AddressOf NPartternCheck)
            'BackWork.Start()
            NPartternCheck()
        End If

    End Sub


    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Me.SetFont()
        If Not IsNumeric(Me.tb_space.Text) Then
            MsgBox("¼ýÀÚ¸¸ ÀÔ·ÂÇϼ¼¿ä", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        For Each A As Control In SelCon
            CType(A, MyControlOLEDBv2.MyLabel).°ø¹é = CInt(Me.tb_space.Text)
            'Me.UpdateFontSize(Me.tb_space.Text, A)
        Next
        Me.preview_window()
        tb_space.SelectAll()
        tb_space.Focus()
    End Sub

    Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged
        If Not IO.File.Exists(Me.tb_picfile.Text) Then
            Me.erp.SetError(Me.tb_picfile, "±×¸²ÆÄÀÏÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù")
        Else
            Me.erp.SetError(Me.tb_picfile, "")
        End If
    End Sub

    Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click
        Me.PictureBox1.Width -= 2
    End Sub

    Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click
        Me.PictureBox1.Width += 2
    End Sub

    Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click
        Me.PictureBox1.Height -= 2
    End Sub

    Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click
        Me.PictureBox1.Height += 2
    End Sub

    Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick()
    End Sub


    Private Sub preview_window()    '//¹Ì¸®º¸±âÈ­¸éÀ» »ý¼ºÇÕ´Ï´Ù.
        'Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
        Dim MyFont As Font
        Dim NewFontSize As Int16 = 10
        Dim dummy As Boolean = False    '//ÀÌ°ªÀÌ true À̸é Ãâ·Â½Ã º¯À§¸¦ ÁöÁ¤Çؼ­ Ãâ·ÂÇÑ´Ù.
        Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics)
        Dim Ga As Graphics = Graphics.FromImage(BackScr)
        Dim Brush As SolidBrush
        Dim obj As MyControlOLEDBv2.MyLabel

        '//½¦ÀÌÇÁ¸¦ ¸ÕÀú ±×¸°´Ù.
        If Me.chk_draw.Checked Then
            '//¶óÀÎÀ» ±×¸°´Ù.
            For Each Rect As S_Line In Draw_Line
                Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
                Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2)
            Next
            '//¹Ú½º¸¦ ±×¸°´Ù.
            For Each Rect As S_Box In Draw_Box
                Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
                Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height)
            Next
            '//¿øÀ» ±×¸°´Ù
            For Each Rect As S_Circle In Draw_Circle
                Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth)
                Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height)
            Next

            If °ü¸®±¸ <> "" Then
                Try
                    '// qrÄڵ带 ±×¸°´Ù
                    For Each Rect As S_QRCode In Draw_QRcode
                        'Dim scale As Int16
                        Dim version As Int16
                        Dim image As Image
                        Dim data As String
                        Dim errorCorrect As String
                        Dim qrCodeEncoder1 As New QRCodeEncoder()
                        Dim encoding As String
                        encoding = cboEncoding.Text
                        If encoding = "3" Then
                            qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE
                        ElseIf encoding = "1" Then
                            qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC
                        ElseIf encoding = "2" Then
                            qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC
                            '     Try
                            'scale = Convert.ToInt16(txtSize.Text)
                            'qrCodeEncoder.QRCodeScale = scale
                            'Catch ex As Exception
                            ' MessageBox.Show("Invalid size!")
                            ' End Try
                            Try
                                version = Convert.ToInt16(cboVersion.Text)
                                qrCodeEncoder1.QRCodeVersion = version
                            Catch ex As Exception
                                MessageBox.Show("Invaild Version!")
                            End Try
                        End If

                        errorCorrect = cboCorrectionLevel.Text
                        If errorCorrect = "1" Then
                            qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L
                        ElseIf errorCorrect = "2" Then
                            qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M
                        ElseIf errorCorrect = "3" Then
                            qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q
                        ElseIf errorCorrect = "4" Then
                            qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H
                        End If

                        data = qrȨÆäÀÌÁö1 & "/" & qrȨÆäÀÌÁö2 & "/" & qrȨÆäÀÌÁö3 & "/" & qrȨÆäÀÌÁö4 & "=" & °ü¸®±¸ & "-" & Àü»ê¹øÈ£ & "&name=" & ¼±·Î¸í_±â±â & ":" & ÀüÁÖ¹øÈ£ & ":" & ½Ã°ø³â¿ù
                        If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor
                        If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor
                        image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY)
                        If Rect.Width = 0 OrElse Rect.Height = 0 Then
                            'Ga.DrawImage(image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY)
                            Ga.DrawImage(image, Rect.X, Rect.Y)
                        Else
                            'Ga.DrawImage(image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY, Rect.Width, Rect.Height)
                            Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                        End If
                    Next
                Catch ex As Exception
                    MessageBox.Show(ex.ToString())
                End Try
            End If



        End If

        If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0"

        For pi As Short = 0 To Me.tb_pagerepeat.Text - 1  '//ÆäÀÌÁö´ç ¿¬¼ÓÃâ·ÂÇÒ È½¼ö
            For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)   '//¸ðµç °³Ã¼µé¿¡ ´ëÇؼ­ Àμ⸦ ¼³Á¤ÇÑ´Ù.
                obj = Me.AllLabels(i).ctl
                If obj.Visible AndAlso obj.MyText <> "" Then   '//È­¸é¿¡ º¸À̴°͸¸ ÇÑ´Ù.                

                    For rcnt As Short = 0 To obj.Repeat '//¹Ýº¹±â´ÉÃß°¡ÇÑ´Ù
                        NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text
                        If NewFontSize < 0 Then NewFontSize = 0

                        If pi > 0 Then   '//¿¬¼ÓÃâ·Â¿¡ÀÇÇÑ ˜¹±òº¯°æ
                            Brush = New SolidBrush(Drawing.Color.DarkKhaki) '//Àü°æ»öÀ¸·Î ºê·¯½¬¸¦ ¸¸µç´Ù.
                        Else
                            If rcnt > 0 Then '//´õ¹ÌÃâ·Â¿¡ÀÇÇÑ »ö±òº¯°æ
                                Brush = New SolidBrush(Drawing.Color.LightGray) '//Àü°æ»öÀ¸·Î ºê·¯½¬¸¦ ¸¸µç´Ù.
                            Else
                                Brush = New SolidBrush(obj.MyForeColor) '//Àü°æ»öÀ¸·Î ºê·¯½¬¸¦ ¸¸µç´Ù.
                            End If
                        End If

                        MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style)
                        If obj.ÀåÆò = 100 AndAlso obj.Àå³ôÀÌ = 100 Then '//ÀåÆò¹Ì»ç¿ë ¹®ÀÚ¿­ ó¸®
                            Ga.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt))
                        Else    '//ÀåÆò»ç¿ë À̹ÌÁö ó¸®
                            Dim NewX, Newy As Integer
                            Dim SrcDpix, SrcDPiY As Single
                            'MsgBox(Tobj.Àå³ôÀÌ)
                            SrcDpix = obj.CreateGraphics.DpiX
                            SrcDPiY = obj.CreateGraphics.DpiY

                            NewX = obj.GetSize(MyFont).Width * (obj.ÀåÆò / 100) * (Ga.DpiX / SrcDpix)
                            Newy = obj.GetSize(MyFont).Height * (obj.Àå³ôÀÌ / 100) * (Ga.DpiY / SrcDPiY)

                            Dim BMP As New Bitmap(NewX, Newy, Ga)
                            Dim G As Graphics = Graphics.FromImage(BMP)

                            G.ResetTransform()
                            G.ScaleTransform((obj.ÀåÆò / 100), (obj.Àå³ôÀÌ / 100))
                            If rcnt > 0 Then
                                G.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brushes.LightGray, 0, 0)
                                G.Dispose()
                                Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (vÀåÆò / 100)), GetSize.Height)
                            Else
                                G.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brush, 0, 0)
                                G.Dispose()
                                Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (vÀåÆò / 100)), GetSize.Height)
                            End If
                        End If
                    Next
                End If
            Next
        Next
        Ga.Dispose()
        Me.PictureBox1.Image = BackScr
    End Sub

    Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SetFont()
    End Sub


    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If SelCon Is Nothing Then Return

        Dim B As New FontDialog
        B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont
        If B.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Return

        For Each a As MyControlOLEDBv2.MyLabel In SelCon
            a.MyFont = B.Font
        Next
        Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel))
        Me.preview_window()
    End Sub

    Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick()
    End Sub

    Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        For Each A As Control In SelCon
            A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top)
        Next
        Me.preview_window()
        tb_top.SelectAll()
        tb_top.Focus()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        If Not IsNumeric(Me.tb_wordwidth.Text) Then Return
        For Each A As Control In SelCon
            'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò - Val(Me.tb_pixelsize.Text))
            CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò = CInt(Me.tb_wordwidth.Text)
            ViewProperty(A)
        Next
        Me.preview_window()
        tb_wordwidth.SelectAll()
        tb_wordwidth.Focus()

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Not IsNumeric(Me.tb_wordheight.Text) Then Return

        For Each A As Control In SelCon
            'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò - Val(Me.tb_pixelsize.Text))
            CType(A, MyControlOLEDBv2.MyLabel).Àå³ôÀÌ = CInt(Me.tb_wordheight.Text)
            ViewProperty(A)
        Next
        Me.preview_window()
        tb_wordheight.SelectAll()
        tb_wordheight.Focus()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Not IsNumeric(Me.tb_fsize.Text) Then
            MsgBox("¼ýÀÚ¸¸ ÀÔ·ÂÇϼ¼¿ä", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        For Each A As Control In SelCon
            Me.UpdateFontSize(Me.tb_fsize.Text, A)
        Next
        Me.preview_window()
        tb_fsize.SelectAll()
        tb_fsize.Focus()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        For Each A As Control In SelCon
            A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left)
        Next
        Me.preview_window()
        tb_left.SelectAll()
        tb_left.Focus()
    End Sub

    Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick()
    End Sub

    Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick()
    End Sub

    Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick()
    End Sub

    Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If SelCon Is Nothing Then Return
        Dim B As New FontDialog
        B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont
        For Each a As MyControlOLEDBv2.MyLabel In SelCon
            a.MyFont = B.Font
        Next
        Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel))
        Me.preview_window()
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.preview_window()
    End Sub

    Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged
        'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView)
        Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position)
        Debug.Print("½ºÅ©·Ñ¹Ù°ª ¹üÀ§°ª " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum)
        If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position
        If Me.NoView Then
            Me.NoView = False
        Else
            Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True)
        End If

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.GeTviewData(Me.BindingSource1.Position, True)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        '//°í°ü¸®±¸ 5¹ø ÀúÀå

        Dim msg As New System.Text.StringBuilder
        msg.AppendLine("°ü¸®±¸5¹ø  ¿µ¹®ÀÚ(" & Me.S°ü¸®±¸(4).MyText & " )¹®ÀÚ¿¡´ëÇÑ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù")
        msg.AppendLine()
        msg.AppendLine("ÀúÀåÈÄ °ü¸®±¸5¹ø¿¡ µ¿ÀÏÇÑ ¿µ¹®ÀÚ°¡ ¿Ã°æ¿ì¿¡ ÀúÀåµÈ ³»¿ëÀÌ ¹Ý¿µµË´Ï´Ù")
        msg.AppendLine("------------------")
        msg.AppendLine("±Û²Ã = " & Me.S°ü¸®±¸(4).MyFont.ToString)
        msg.AppendLine("³Êºñ = " & Me.S°ü¸®±¸(4).ÀåÆò)
        msg.AppendLine("³ôÀÌ = " & Me.S°ü¸®±¸(4).Àå³ôÀÌ)
        msg.AppendLine("ÁÂÇ¥ = " & Me.S°ü¸®±¸(4).Location.ToString)
        msg.AppendLine("------------------")
        msg.AppendLine(" ÀúÀåÇϽðڽÀ´Ï±î?")

        If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÀúÀåÈ®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If

        'ÀÌ°Ç ±æÀÌÆÐÅÏ ÀúÀåÇÏ´Â ÇÔ¼ö´Ù.

        'MsgBox(drstyle.File)


        Dim Arinini As New MyINI2(drstyle.File)
        Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S°ü¸®±¸(4)
        Dim Pname As String = "CNUMPATTERNI" & TOBJ.MyText '//5¹øÀÌ W À϶§´Â cnumpatternIw ¸¦ ã°ÔµÈ´Ù.

        Arinini.Write(Pname, "DESC", "¿µ¹®ÀÚ Æ¯¼öÀúÀå(" & TOBJ.MyText & ")")
        Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height)
        Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ.ÀåÆò & "," & TOBJ.Àå³ôÀÌ)
        Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible)
        Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.°ø¹é)

        NOTICE("°ü¸®±¸5¹ø ÀÇ ¿µ¹®ÀÚ (" & TOBJ.MyText & ") »óŸ¦ ÀúÀåÇÏ¿´½À´Ï´Ù", Me.lb_msg)
        µ¥ÀÌÅÍÅ×ÀÌºí°»½Å()
    End Sub

    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value)
        Debug.Print("½ºÅ©·Ñ¹Ù°ª ¹üÀ§°ª " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum)
        If e.NewValue > 0 Then
            Me.BindingSource1.Position = e.NewValue
        Else
            Debug.Print("½ºÅ©·Ñ¹Ùvalue°ªÀÌ 0º¸´Ù ÀÛ½À´Ï´Ù. ¼Ò½ºÀÇ À§Ä¡¸¦ 0À¸·Î ¼³Á¤ÇÕ´Ï´Ù")
            Me.BindingSource1.Position = 0
        End If
    End Sub

    Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
        Dim Tobj As MyControlOLEDBv2.MyLabel
        Dim selitem As New ArrayList

        Tobj = Nothing

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _
                ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _
                AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then
                Tobj = Me.AllLabels(i).ctl
                selitem.Add(Me.AllLabels(i).ctl)
                'Exit For
            End If
        Next

        If Tobj Is Nothing Then Return '//¼±ÅÃµÈ°Ô ¾øÀ¸¸é ³¯¸°´Ù

        'If Me.chk_multisel.Checked Then '//´ÙÁ߸ñ·Ï¿¡¼­ ¼±Åýð¡ üũµÇ¾îÀÖÀ¸¸é ¸ñ·ÏÀ» Ç¥½ÃÇØÁØ´Ù.
        If selitem.Count > 1 Then
            Dim A As New selitem
            For si As Short = 1 To selitem.Count
                A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).¼³¸í)
            Next
            If A.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                Tobj = selitem.Item(A.ListBox1.SelectedIndex)
            Else   '//ĵ½½½Ã¿¡´Â ù¹ø° ¾ÆÅÛÀ¸·Î ÇÑ´Ù.
                Tobj = selitem.Item(0)
            End If
        End If
        'End If

        Dim Exist As Boolean = False   '//¼±Åð³Ã¼¿¡ Á¸Àç¿©ºÎ
        If SelCon Is Nothing Then
            SelCon.Add(Tobj)
        Else
            If e.Button = System.Windows.Forms.MouseButtons.Right Then
                For Each obj As MyControlOLEDBv2.MyLabel In SelCon
                    If obj.Name = Tobj.Name Then    '//»èÁ¦µÈ´Ù.
                        obj.MyForeColor = Drawing.Color.Black
                        SelCon.Remove(obj)
                        Exist = True
                        Exit For
                    End If
                Next
                If Exist = False Then
                    SelCon.Add(Tobj)
                    Tobj.MyForeColor = Drawing.Color.Tomato
                End If
            ElseIf e.Button = System.Windows.Forms.MouseButtons.Left Then '¿ÞÂÊŬ¸®À̸é Áö¿ì°í ´Ù½Ã ¼ÂÆÃ
                For Each SC As MyControlOLEDBv2.MyLabel In SelCon
                    SC.MyForeColor = Drawing.Color.Black
                Next
                SelCon.Clear()
                SelCon.Add(Tobj)
                Tobj.MyForeColor = Drawing.Color.DodgerBlue

                If My.Computer.Keyboard.CtrlKeyDown Then   '//ÄÁÆ®·ÑÀÌ ´­·¯ ºÀ¸¸é ÇØ´ç ±×·ìÀ» ÀüºÎ ã´Â´Ù.
                    'MsgBox(Tobj.Name)
                    SelCon.Clear()
                    For z As Short = 0 To Me.AllLabels.GetUpperBound(0)
                        If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then
                            If Not Me.AllLabels(z).ctl.Visible Then Continue For
                            If String.IsNullOrEmpty(Me.AllLabels(z).ctl.MyText) Then Continue For
                            Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue
                            SelCon.Add(Me.AllLabels(z).ctl)
                        End If
                    Next
                End If

            Else
                Me.Button1.PerformClick()
            End If
        End If
        'onlyOne = sender
        'CType(sender, MyControlOLEDBv2.MyLabel).
        Me.cmb_controls.Text = Tobj.¼³¸í
        ViewProperty(Tobj)

        'For Each A As MyControlOLEDBv2.MyLabel In SelCon
        ' A.MyForeColor = Color.DodgerBlue
        '  Next

        Me.tb_left.Focus()
        Me.preview_window()
    End Sub

    Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick
        Dim Tobj As MyControlOLEDBv2.MyLabel
        Tobj = Nothing

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _
                ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _
                AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then
                Tobj = Me.AllLabels(i).ctl
                Exit For
            End If
        Next

        If Tobj Is Nothing Then Return '//¼±ÅÃµÈ°Ô ¾øÀ¸¸é ³¯¸°´Ù

        Dim Msg As New System.Text.StringBuilder("º¯°æÇÒ °ªÀ» ÀÔ·ÂÇϼ¼¿ä")
        Msg.AppendLine("ÁٹٲÞÀ»ÇÏ·Á¸é \n À» ÀÔ·ÂÇϼ¼¿ä")
        Msg.AppendLine("¿¹) ¼¼·Î·Î 12¸¦ Ãâ·ÂÇÏ·Á¸é 1\n2 À» ÀÔ·ÂÇϼ¼¿ä")
        Msg.AppendLine()
        Msg.AppendLine("º¯°æÇÑ °ªÀº ÇöÀçÆäÀÌÁö¿¡¸¸ Àû¿ëµË´Ï´Ù")


        Dim Val As String = InputBox(Msg.ToString, "º¯°æ", Tobj.MyText)
        If Val = "" Then Return
        Val = Val.Replace("\n", vbCrLf)
        Tobj.MyText = Val

        Me.preview_window()
    End Sub

    Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted
        For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon
            A.MyForeColor = Drawing.Color.Black
        Next
        SelCon.Clear()
        SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
        AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue
        ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
        Me.preview_window()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub


    Public Sub PARSE_°ü¸®±¸ÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_°ü¸®±¸ÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        '±æÀÌÆÐÅÏ¿©ºÎ¸¦ È®ÀÎÇßÀ¸¹Ç·Î ÆÐÅÏÀ»Àû¿ëÇÑ´Ù.[STYLE1LINEPATTERN9]

        'Dim lpattern As Boolean = False
        Dim Pname As String = "CNUMPATTERN" & Wlen
        'Dim Sname As String
        Dim CTLPOS() As String
        Dim CTLFONT() As String
        Dim CTLVISIBLE As Boolean
        Dim Arinini As New MyINI2(drstyle.File)
        'Dim tobj As MyControlOLEDBv2.MyLabel
        Dim Dr() As DataRow
        'Dim idx As Short = 0
        ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "H", S°ü¸®±¸)

        Pname = "CNUMPATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, S°ü¸®±¸)

        '//°ü¸®±¸5¹ø ¾ËÆĺª ÁöÁ¤À̵ǾîÀÖ´ÂÁö È®ÀÎÇÑ´Ù.
        Pname = "CNUMPATTERNI" & S°ü¸®±¸(4).MyText ' Me.h5.MyText '//5¹øÀÌ W À϶§´Â cnumpatternIw ¸¦ ã°ÔµÈ´Ù.
        Dr = dtpattern.Select("NAME = '" & Pname & "DESC'")

        If Dr.GetUpperBound(0) = 0 Then '//ÀÖ´Ù.
            AddLog(Admin, "°ü¸®±¸5¹ø ¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù (" & Pname & "DESC" & ")", Log)
            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸(4).Name & "POS'")
            If Dr.GetUpperBound(0) = 0 Then
                CTLPOS = Dr(0)(1).ToString.Split(",")
                Me.S°ü¸®±¸(4).Location = New Point(CTLPOS(0), CTLPOS(1))
                Me.S°ü¸®±¸(4).Size = New Size(CTLPOS(2), CTLPOS(3))
            End If

            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸(4).Name & "FONT'")
            If Dr.GetUpperBound(0) = 0 Then
                CTLFONT = Dr(0)(1).ToString.Split(",")
                S°ü¸®±¸(4).MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                S°ü¸®±¸(4).ÀåÆò = CTLFONT(5)
                S°ü¸®±¸(4).Àå³ôÀÌ = CTLFONT(6)
            End If
            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸(4).Name & "VISIBLE'")
            If Dr.GetUpperBound(0) = 0 Then
                CTLVISIBLE = Dr(0)(1).ToString
                S°ü¸®±¸(4).Visible = CType(CTLVISIBLE, Boolean)
            End If
            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸(4).Name & "SPACE'")
            If Dr.GetUpperBound(0) = 0 Then
                S°ü¸®±¸(4).°ø¹é = Dr(0)(1)
            End If
        Else
            AddLog(Admin, "°ü¸®±¸5¹ø ¹®ÀÚ°¡ ÁöÁ¤µÇ¾îÀÖÁö¾Ê½À´Ï´Ù. (" & S°ü¸®±¸(4).MyText & ")", Log)
        End If
    End Sub

    Public Sub PARSE_°ü¸®±¸ÆÐÅÏ2(ByVal srcstr As String)
        Dim Log As String = "\Parse_°ü¸®±¸ÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        '±æÀÌÆÐÅÏ¿©ºÎ¸¦ È®ÀÎÇßÀ¸¹Ç·Î ÆÐÅÏÀ»Àû¿ëÇÑ´Ù.[STYLE1LINEPATTERN9]

        'Dim lpattern As Boolean = False
        Dim Pname As String = "BKWANPATTERN" & Wlen
        'Dim Sname As String
        Dim CTLPOS() As String
        Dim CTLFONT() As String
        Dim CTLVISIBLE As Boolean
        Dim Arinini As New MyINI2(drstyle.File)
        'Dim tobj As MyControlOLEDBv2.MyLabel
        Dim Dr() As DataRow
        'Dim idx As Short = 0
        ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "H", S°ü¸®±¸)

        Pname = "BKWANPATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, S°ü¸®±¸2)

        '//°ü¸®±¸5¹ø ¾ËÆĺª ÁöÁ¤À̵ǾîÀÖ´ÂÁö È®ÀÎÇÑ´Ù.
        Pname = "BKWANPATTERNI" & S°ü¸®±¸2(4).MyText ' Me.h5.MyText '//5¹øÀÌ W À϶§´Â cnumpatternIw ¸¦ ã°ÔµÈ´Ù.
        Dr = dtpattern.Select("NAME = '" & Pname & "DESC'")
        If Dr.GetUpperBound(0) = 0 Then '//ÀÖ´Ù.
            AddLog(Admin, "°ü¸®±¸5¹ø ¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù (" & Pname & "DESC" & ")", Log)
            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸2(4).Name & "POS'")
            If Dr.GetUpperBound(0) = 0 Then
                CTLPOS = Dr(0)(1).ToString.Split(",")
                Me.S°ü¸®±¸2(4).Location = New Point(CTLPOS(0), CTLPOS(1))
                Me.S°ü¸®±¸2(4).Size = New Size(CTLPOS(2), CTLPOS(3))
            End If

            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸2(4).Name & "FONT'")
            If Dr.GetUpperBound(0) = 0 Then
                CTLFONT = Dr(0)(1).ToString.Split(",")
                S°ü¸®±¸2(4).MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                S°ü¸®±¸2(4).ÀåÆò = CTLFONT(5)
                S°ü¸®±¸2(4).Àå³ôÀÌ = CTLFONT(6)
            End If
            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸2(4).Name & "VISIBLE'")
            If Dr.GetUpperBound(0) = 0 Then
                CTLVISIBLE = Dr(0)(1).ToString
                S°ü¸®±¸2(4).Visible = CType(CTLVISIBLE, Boolean)
            End If
            Dr = dtpattern.Select("NAME = '" & Pname & S°ü¸®±¸2(4).Name & "SPACE'")
            If Dr.GetUpperBound(0) = 0 Then
                S°ü¸®±¸2(4).°ø¹é = Dr(0)(1)
            End If
        Else
            AddLog(Admin, "°ü¸®±¸25¹ø ¹®ÀÚ°¡ ÁöÁ¤µÇ¾îÀÖÁö¾Ê½À´Ï´Ù. (" & S°ü¸®±¸2(4).MyText & ")", Log)
        End If
    End Sub

    Private Sub ¹®ÀÚÆÐÅÏ¿¬½À(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S¶óº§() As MyControlOLEDBv2.MyLabel)
        Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '//¾ø´Â ±Û±Í°¡ ¿ÓÀ»¶§ ÅÏÇعö¸°´Ù.
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim DR() As DataRow
        Dim CTLPOS() As String
        Dim CTLFONT() As String
        Dim CTLVISIBLE As Boolean

        AddLog(Admin, "ENter > ¹®ÀÚÆÐÅÏ¿¬½À(" & pname & ")", "\Alllog.txt")

        DR = dtpattern.Select("NAME = '" & pname & "DESC'")
        If DR.GetUpperBound(0) = 0 Then '//±æÀÌÆÐÅÏÀÌ ÀÖÀ¸¸é
            AddLog(Admin, "   ¹®ÀÚÆÐÅÏ¿¬½À¿¡¼­ ¹®ÀÚÆÐÅÏÀ» ã¾ÒÀ½", "\Alllog.txt")
            WLog2(Auto_Log, "¹®ÀÚÆÐÅÏ °Ë»ö ±æÀÌ=" & Wlen & " ±¸ºÐÀÚÀ§Ä¡=" & SepPos & " ¹Ìµé³×ÀÓ=" & pname, log)
            For Each C As MyControlOLEDBv2.MyLabel In S¶óº§
                Try
                    DR = dtpattern.Select("NAME = '" & pname & C.Name & "POS'")
                    If DR.GetUpperBound(0) = 0 Then
                        CTLPOS = DR(0)(1).ToString.Split(",")
                        C.Location = New Point(CTLPOS(0), CTLPOS(1))
                        C.Size = New Size(CTLPOS(2), CTLPOS(3))
                    End If

                    DR = dtpattern.Select("NAME = '" & pname & C.Name & "FONT'")
                    If DR.GetUpperBound(0) = 0 Then
                        CTLFONT = DR(0)(1).ToString.Split(",")
                        C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        C.ÀåÆò = CTLFONT(5)
                        C.Àå³ôÀÌ = CTLFONT(6)
                    End If

                    DR = dtpattern.Select("NAME = '" & pname & C.Name & "VISIBLE'")
                    If DR.GetUpperBound(0) = 0 Then
                        CTLVISIBLE = DR(0)(1).ToString
                        C.Visible = CType(CTLVISIBLE, Boolean)
                    End If

                    DR = dtpattern.Select("NAME = '" & pname & C.Name & "SPACE'")
                    If DR.GetUpperBound(0) = 0 Then
                        C.°ø¹é = DR(0)(1).ToString
                    End If

                    '//¹Ýº¹Á¤º¸È®ÀÎ  Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY)  '//¹Ýº¹Ãâ·ÂÁ¤º¸ÀúÀå
                    AddLog(Auto_Log, "¹Ýº¹¹®ÀÚ¼ÂÆ® : " & pname & C.Name & "REPEAT" & "  ¸¦ °Ë»öÇÕ´Ï´Ù")
                    DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'")
                    If DR.GetUpperBound(0) = 0 Then
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù")
                        CTLFONT = DR(0)(1).ToString.Split(",")
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚ¸¦ ÄÞ¸¶·Î ÂÉ°³¾î¼­ CTLFONT ¹è¿­¿¡ ÀúÀåÇÏ¿´½À´Ï´Ù.")
                        C.Repeat = CTLFONT(0)
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚÁß 0¹ø°À§Ä¡°ªÀ» Àû¿ë")
                        C.RepeatX = CTLFONT(1)
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚÁß 1¹ø°À§Ä¡°ªÀ» Àû¿ë")
                        C.RepeatY = CTLFONT(2)
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚÁß 2¹ø°À§Ä¡°ªÀ» Àû¿ë")
                        'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        ' C.ÀåÆò = CTLFONT(5)
                        '  C.Àå³ôÀÌ = CTLFONT(6)
                    Else
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚ¸¦ ãÁö¸øÇß½À´Ï´Ù.")
                    End If
                    C.Tag = "C"
                Catch ex As Exception
                    WLog2(Auto_Log, "¹®ÀÚÆÐÅÏ¿À·ù ±æÀÌ=" & Wlen & " Message=" & ex.Message.ToString, log)
                End Try
            Next
        Else
            AddLog(Admin, "   ¹®ÀÚÆÐÅÏ¿¬½À¿¡¼­ ¹®ÀÚÆÐÅÏÀ» ã±â½ÇÆÐ ÀϹݽºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù.", "\Alllog.txt")
            WLog2(Auto_Log, "¹®ÀÚÆÐÅϺÒÀÏÄ¡ ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & srcstr & "¸ÞÀνºÅ¸ÀÏÀ» ºÒ·¯¿À°ÔÇÕ´Ï´Ù(" & S¶óº§(0).DIV & ")", log)
            ''//¸ÞÀνºÅ¸ÀÏÀ» ºÒ·¯¿Â´Ù.
            Me.LOAD_STYLE(S¶óº§(0).DIV)
        End If
    End Sub

    Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted
        '//½ºÅ¸ÀÏÀ» Á÷Á¢ ¼±ÅÃÇÞÀ»¶§ ±âº»idx°ªÀ» 0 À¸·ÎÇÑ´Ù.
        ' MsgBox("½ºÅ¸ÀÏÁ÷Á¢¼±ÅÃ")
        FirstIdx = 0
    End Sub

    Private Sub cmb_ºñ°í1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_bigo1.SelectionChangeCommitted
        Select Case Me.cmb_bigo1.SelectedIndex
            Case 1
                Me.S±â±â¸í(0).MyText = "Áö»óº¯¾Ð±â"
            Case 2
                Me.S±â±â¸í(0).MyText = "Áö»ó°³Æó±â"
        End Select
        Me.preview_window()
    End Sub

    Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter
        Me.tb_ntype.Focus()
        Me.tb_ntype.SelectAll()
    End Sub

    Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp
        If e.KeyCode = Keys.Enter Then
            If Me.cmb_sep.SelectedIndex = 1 Then
                NOTICE("ºÐ¸®»óÅ¿¡¼­´Â ¹øÈ£ÁöÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", Drawing.Color.Red, Me.lb_msg)
            Else
                ¹øÈ£Çü½ÄÁöÁ¤(Me.tb_ntype.Text)
            End If
            Me.preview_window()
        End If
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        If MsgBox("ÇöÀç ½ºÅ¸ÀÏ(±âº»)À» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "½ºÅ¸ÀÏÀúÀå") = MsgBoxResult.Yes Then
            SAVE_STYLE()
        Else
            NOTICE("½ºÅ¸ÀÏ(±âÁ¸)ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
        End If
    End Sub

    Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter
        Me.BindingNavigatorPositionItem.Focus()
        Me.BindingNavigatorPositionItem.SelectAll()

    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        'Me.Text = e.X & "/" & e.Y

        If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then
            '//¼±ÅÃµÈ ÄÁÆ®·ÑÀ» ¸¶¿ì½ºÀ§Ä¡·Î À̵¿ÇÑ´Ù.
            If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub
            For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon
                sender1.Left = e.X - (sender1.Width / 2)
                sender1.Top = e.Y + (sender1.Height / 2)
            Next
            Me.preview_window()
        End If
    End Sub

    Private Sub ToolStripButton2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick
        Me.Print()
    End Sub

    Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click
        Me.Print_Preview()
    End Sub

    Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click
        StyleEdit.ListIndex = Me.cmb_style.SelectedIndex
        StyleEdit.Path = Me.StyleDir
        StyleEdit.Show()
    End Sub

    Private Sub Refresh_Drawlist()
        '//;¶óÀÎÇÏ°í ¹Ú½º¸¦ Àо ¸®½ºÆ®¹Ú½º¿¡
        Me.ListBox1.Items.Clear()
        Dim I As Short = 0
        For Each Rect As S_Line In Draw_Line
            Me.ListBox1.Items.Add("¼±(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I)
            I += 1
        Next
        I = 0
        For Each Rect As S_Box In Draw_Box
            Me.ListBox1.Items.Add("¹Ú½º(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I)
            I += 1
        Next
        I = 0
        For Each Rect As S_Circle In Draw_Circle
            Me.ListBox1.Items.Add("¿ø(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I)
        Next
        I = 0
        For Each Rect As S_QRCode In Draw_QRcode
            Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I)
            I += 1
        Next
        I = 0

        preview_window()
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        '//¼±Ãß°¡
        Dim NewLine As New S_Line
        NewLine.PenColor = Drawing.Color.Black
        NewLine.PenWidth = 3
        NewLine.X = Draw_Line.Count * 10
        NewLine.Y = 10
        NewLine.X2 = 100 + Draw_Line.Count * 10
        NewLine.Y2 = NewLine.X2

        Draw_Line.Add(NewLine)
        Refresh_Drawlist()

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        '//¼±Ãß°¡
        Dim NewLine As New S_Box
        NewLine.PenColor = Drawing.Color.Black
        NewLine.PenWidth = 3
        NewLine.X = Draw_Box.Count * 10
        NewLine.Y = Draw_Box.Count * 10
        NewLine.Width = 100 + Draw_Box.Count * 10
        NewLine.Height = NewLine.Width
        Draw_Box.Add(NewLine)
        Refresh_Drawlist()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If Me.ListBox1.SelectedIndex < 0 Then Return
        Select Case Me.ListBox1.Text.Substring(0, 1)
            Case "¼±"
                Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1))
                Me.bt_pencolor.BackColor = Line.PenColor
                Me.tb_pensize.Text = Line.PenWidth
                Me.tb_dx.Text = Line.X
                Me.tb_dy.Text = Line.Y
                Me.tb_dw.Text = Line.X2
                Me.tb_dh.Text = Line.Y2
            Case "¹Ú"
                Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1))
                Me.bt_pencolor.BackColor = Line.PenColor
                Me.tb_pensize.Text = Line.PenWidth
                Me.tb_dx.Text = Line.X
                Me.tb_dy.Text = Line.Y
                Me.tb_dw.Text = Line.Width
                Me.tb_dh.Text = Line.Height
            Case "¿ø"
                Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1))
                Me.bt_pencolor.BackColor = Line.PenColor
                Me.tb_pensize.Text = Line.PenWidth
                Me.tb_dx.Text = Line.X
                Me.tb_dy.Text = Line.Y
                Me.tb_dw.Text = Line.Width
            Case "Q"
                Dim Line As S_QRCode = Draw_QRcode(Me.ListBox1.Text.Split(":")(1))
                Me.tb_dx.Text = Line.X
                Me.tb_dy.Text = Line.Y
                Me.tb_dw.Text = Line.Width
                Me.tb_dh.Text = Line.Height

        End Select
    End Sub

    Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown
        If Me.ListBox1.SelectedIndex < 0 Then Return
        Dim SI As Short = Me.ListBox1.SelectedIndex
        If e.KeyCode = Keys.Enter Then
            '//»õ·Î¸¸µé¾î¼­ ÀúÀåÇÑ´Ù.
            Set_NewDraw()
            Me.Refresh_Drawlist()
            Me.ListBox1.SelectedIndex = SI
        End If

    End Sub

    Private Sub Set_NewDraw()
        Select Case Me.ListBox1.Text.Substring(0, 1)
            Case "¼±"
                Dim Line As New S_Line
                Line.PenColor = Me.bt_pencolor.BackColor
                Line.PenWidth = Me.tb_pensize.Text
                Line.X = Me.tb_dx.Text
                Line.Y = Me.tb_dy.Text
                Line.X2 = Me.tb_dw.Text
                Line.Y2 = Me.tb_dh.Text
                Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line
                'MsgBox("¼±À籸¼º")
            Case "¹Ú"
                Dim Line As New S_Box
                Line.PenColor = Me.bt_pencolor.BackColor
                Line.PenWidth = Me.tb_pensize.Text
                Line.X = Me.tb_dx.Text
                Line.Y = Me.tb_dy.Text
                Line.Width = Me.tb_dw.Text
                Line.Height = Me.tb_dh.Text
                Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line
                'MsgBox("¹Ú½ºÀ籸¼º")
            Case "¿ø"
                Dim Line As New S_Circle
                Line.PenColor = Me.bt_pencolor.BackColor
                Line.PenWidth = Me.tb_pensize.Text
                Line.X = Me.tb_dx.Text
                Line.Y = Me.tb_dy.Text
                Line.Width = Me.tb_dw.Text
                Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line
                'MsgBox("¿øÀ籸¼º")
            Case "Q"
                Dim Line As New S_QRCode
                Line.X = Me.tb_dx.Text
                Line.Y = Me.tb_dy.Text
                Line.Width = Me.tb_dw.Text
                Line.Height = Me.tb_dh.Text
                Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) = Line
        End Select
    End Sub

    Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click
        Dim CD As New ColorDialog
        CD.Color = Me.bt_pencolor.BackColor
        If CD.ShowDialog <> System.Windows.Forms.DialogResult.OK Then Return
        Me.bt_pencolor.BackColor = CD.Color
        Set_NewDraw()
    End Sub

    Private Sub SaveDrawData(ByVal read As Boolean)   '//ÇöÀç È­¸é±¸¼ºÀ» °¡·Î/¼¼·Î °áÁ¤ÇÕ´Ï´Ù.
        '//iniÆÄÀÏ¿¡ÀúÀåÇÑ´Ù. ¼½¼Ç¸íÀº pagetype0 ,pagetyp1  0Àº ¼¼·Î 1Àº °¡·Î´Ù
        Dim ini As New MyINI2(drstyle.File)

        Dim bname As String = "DrawBox"
        Dim lname As String = "DrawLine"
        Dim cname As String = "DrawCircle"
        Dim qname As String = "DrawQRcode"

        Dim bcnt, lcnt, ccnt, qcnt As Short

        If read = False Then
            ini.Write(bname, "Count", Draw_Box.Count)
            For i As Short = 1 To Draw_Box.Count '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As S_Box = Draw_Box(i - 1)
                ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb)
                ini.Write(bname, "box" & i & "pensize", L.PenWidth)
                ini.Write(bname, "box" & i & "x", L.X)
                ini.Write(bname, "box" & i & "y", L.Y)
                ini.Write(bname, "box" & i & "x2", L.Width)
                ini.Write(bname, "box" & i & "y2", L.Height)
            Next
            ini.Write(lname, "Count", Draw_Line.Count)
            For i As Short = 1 To Draw_Line.Count '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As S_Line = Draw_Line(i - 1)
                ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb)
                ini.Write(lname, "line" & i & "pensize", L.PenWidth)
                ini.Write(lname, "line" & i & "x", L.X)
                ini.Write(lname, "line" & i & "y", L.Y)
                ini.Write(lname, "line" & i & "x2", L.X2)
                ini.Write(lname, "line" & i & "y2", L.Y2)
            Next
            ini.Write(cname, "Count", Draw_Circle.Count)
            For i As Short = 1 To Draw_Circle.Count '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As S_Circle = Draw_Circle(i - 1)
                ini.Write(cname, "circle" & i & "pencolor", L.PenColor.ToArgb)
                ini.Write(cname, "circle" & i & "pensize", L.PenWidth)
                ini.Write(cname, "circle" & i & "x", L.X)
                ini.Write(cname, "circle" & i & "y", L.Y)
                ini.Write(cname, "circle" & i & "x2", L.Width)
                ini.Write(cname, "box" & i & "y2", L.Height)
            Next
            ini.Write(qname, "Count", Draw_QRcode.Count)
            For i As Short = 1 To Draw_QRcode.Count '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As S_QRCode = Draw_QRcode(i - 1)
                'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb)
                'ini.Write(pname, "Image" & i & "pensize", L.PenWidth)
                ini.Write(qname, "qrcode" & i & "x", L.X)
                ini.Write(qname, "qrcode" & i & "y", L.Y)
                ini.Write(qname, "qrcode" & i & "x2", L.Width)
                ini.Write(qname, "qrcode" & i & "y2", L.Height)
            Next
        Else   '//¿©±â´Â Àд ºÎºÐ
            Draw_Box.Clear()
            Draw_Line.Clear()
            Draw_Circle.Clear()
            Draw_QRcode.Clear()

            bcnt = ini.Read(bname, "Count", 0)
            For i As Short = 1 To bcnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_Box
                L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0))
                L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3)
                L.X = ini.Read(bname, "box" & i & "x", 0)
                L.Y = ini.Read(bname, "box" & i & "y", 0)
                L.Width = ini.Read(bname, "box" & i & "x2", 10)
                L.Height = ini.Read(bname, "box" & i & "y2", 10)
                Draw_Box.Add(L)
            Next

            lcnt = ini.Read(lname, "Count", 0)
            For i As Short = 1 To lcnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_Line
                L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0))
                L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3)
                L.X = ini.Read(lname, "line" & i & "x", 0)
                L.Y = ini.Read(lname, "line" & i & "y", 0)
                L.X2 = ini.Read(lname, "line" & i & "x2", 10)
                L.Y2 = ini.Read(lname, "line" & i & "y2", 10)
                Draw_Line.Add(L)
            Next

            ccnt = ini.Read(cname, "Count", 0)   '//¿ø
            For i As Short = 1 To ccnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_Circle
                L.PenColor = Drawing.Color.FromArgb(ini.Read(cname, "circle" & i & "pencolor", 0))
                L.PenWidth = ini.Read(cname, "circle" & i & "pensize", 3)
                L.X = ini.Read(cname, "circle" & i & "x", 0)
                L.Y = ini.Read(cname, "circle" & i & "y", 0)
                L.Width = ini.Read(cname, "circle" & i & "x2", 10)
                L.Height = ini.Read(cname, "circle" & i & "y2", 10)
                Draw_Circle.Add(L)
            Next

            qcnt = ini.Read(qname, "Count", 0)
            For i As Short = 1 To qcnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_QRCode
                'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0))
                'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3)
                L.X = ini.Read(qname, "qrcode" & i & "x", 0)
                L.Y = ini.Read(qname, "qrcode" & i & "y", 0)
                L.Width = ini.Read(qname, "qrcode" & i & "x2", 10)
                L.Height = ini.Read(qname, "qrcode" & i & "y2", 10)
                Draw_QRcode.Add(L)
            Next
            Me.Refresh_Drawlist()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            '//»èÁ¦
            Select Case Me.ListBox1.Text.Substring(0, 1)
                Case "¼±"
                    Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1))
                Case "¹Ú"
                    Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1))
                Case "¿ø"
                    Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1))
                Case "Q"
                    Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1))
            End Select
            Me.Refresh_Drawlist()
        Catch ex As Exception
            MessageBox.Show("¼±Åà ÈÄ »èÁ¦°¡ °¡´ÉÇÕ´Ï´Ù.", "È®ÀÎ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ListBox1.Focus()
        End Try
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        '//°í°ü¸®±¸ 5¹ø ÀúÀå

        Dim msg As New System.Text.StringBuilder
        msg.AppendLine("º¯¾Ð±â °ü¸®±¸5¹ø  ¿µ¹®ÀÚ(" & Me.S°ü¸®±¸2(4).MyText & " )¹®ÀÚ¿¡´ëÇÑ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù")
        msg.AppendLine()
        msg.AppendLine("ÀúÀåÈÄ º¯¾Ð±â °ü¸®±¸5¹ø¿¡ µ¿ÀÏÇÑ ¿µ¹®ÀÚ°¡ ¿Ã°æ¿ì¿¡ ÀúÀåµÈ ³»¿ëÀÌ ¹Ý¿µµË´Ï´Ù")
        msg.AppendLine("------------------")
        msg.AppendLine("±Û²Ã = " & Me.S°ü¸®±¸2(4).MyFont.ToString)
        msg.AppendLine("³Êºñ = " & Me.S°ü¸®±¸2(4).ÀåÆò)
        msg.AppendLine("³ôÀÌ = " & Me.S°ü¸®±¸2(4).Àå³ôÀÌ)
        msg.AppendLine("ÁÂÇ¥ = " & Me.S°ü¸®±¸2(4).Location.ToString)
        msg.AppendLine("------------------")
        msg.AppendLine(" ÀúÀåÇϽðڽÀ´Ï±î?")

        If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ÀúÀåÈ®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If

        'ÀÌ°Ç ±æÀÌÆÐÅÏ ÀúÀåÇÏ´Â ÇÔ¼ö´Ù.
        'MsgBox(drstyle.File)

        Dim Arinini As New MyINI2(drstyle.File)
        Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S°ü¸®±¸2(4)
        Dim Pname As String = "BKWANPATTERN" & "I" & TOBJ.MyText '//5¹øÀÌ W À϶§´Â cnumpatternIw ¸¦ ã°ÔµÈ´Ù.

        Arinini.Write(Pname, "DESC", "¿µ¹®ÀÚ Æ¯¼öÀúÀå(" & TOBJ.MyText & ")")
        Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height)
        Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ.ÀåÆò & "," & TOBJ.Àå³ôÀÌ)
        Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible)
        Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.°ø¹é)

        NOTICE("º¯¾Ð±â °ü¸®±¸5¹ø ÀÇ ¿µ¹®ÀÚ (" & TOBJ.MyText & ") »óŸ¦ ÀúÀåÇÏ¿´½À´Ï´Ù", Me.lb_msg)
        µ¥ÀÌÅÍÅ×ÀÌºí°»½Å()
    End Sub

    Private Sub ¼±·Î¸í±â±â¹øÈ£ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ¼±·Î¸í±â±â¹øÈ£ToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_±â±â¸í, "U", Me.±â±â¸í.Length, "\±â±â¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S¼±·Î¸í¼±·Î¹øÈ£_±â±â, Me.¼±·Î¸í¼±·Î¹øÈ£_±â±â, "\¼±·Î±â±â¸íÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub ¼±·Î¸íº¯¾Ð±â¸íToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ¼±·Î¸íº¯¾Ð±â¸íToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_±â±â¸í, "U", Me.±â±â¸í.Length, "\±â±â¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð, Me.¼±·Î¸í¼±·Î¹øÈ£_º¯¾Ð, "\¼±·Îº¯¾Ð±âÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub yoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yoolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_±â±â¸í, "U", Me.±â±â¸í.Length, "\±â±â¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S±â±â¸í, Me.±â±â¸í, "\±â±â¸íÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub fyripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fyripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_º¯¾Ð±â¿ë·®, "J", CStr(Me.º¯¾Ð±â»ó & Me.º¯¾Ð±â¿ë·®).Length, "\º¯¾Ð±â¿ë·®ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.Sº¯¾Ð±â¿ë·®, CStr(Me.º¯¾Ð±â»ó & Me.º¯¾Ð±â¿ë·®), "\º¯¾Ð±â¿ë·®ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.

    End Sub

    Private Sub dfgdfoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dfgdfoolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        '  SAVE_PATTERN(Me.ÆÐÅϸí_¼±·Î¸í, "L", Me.¼±·Î¸í.Length, "\¼±·Î¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S¼±·Î¸í_±â±â, Me.¼±·Î¸í_±â±â, "\¼±·Î¸í±â±âÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub fdaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savenum.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_ÀüÁÖ¹øÈ£, "X", Me.¹øÈ£.Length, "\¹øÈ£ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.SÀüÁÖ¹øÈ£, Me.ÀüÁÖ¹øÈ£, "\¹øÈ£ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub pbt_c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_c.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_½Ã°ø¾÷ü, "C", Me.½Ã°ø¾÷ü.Length, "\½Ã°ø¾÷üÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S½Ã°ø¾÷ü, Me.½Ã°ø¾÷ü, "\½Ã°ø¾÷üÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub pbt_y_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_y.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        'SAVE_PATTERN(Me.ÆÐÅϸé_½Ã°ø³â¿ù, "Y", Me.½Ã°ø³â¿ù.Length, "\½Ã°ø³â¿ùÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S½Ã°ø³â¿ù, Me.½Ã°ø³â¿ù, "\½Ã°ø³â¿ùÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub bt_kwnbripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kwnb.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        'SAVE_PATTERN(Me.ÆÐÅϸí_º¯¾Ð±â°ü¸®±¸, "D", Me.°ü¸®±¸2.Length, "\º¯¾Ð±â°ü¸®±¸ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S°ü¸®±¸2, Me.°ü¸®±¸2, "\º¯¾Ð±â°ü¸®±¸ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub bt_kawnbusipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kawnbus.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_º¯¾Ð±âÀü»ê¹øÈ£, "E", Me.Àü»ê¹øÈ£2.Length, "\º¯¾Ð±âÀü»ê¹øÈ£ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.Sº¯¾Ð±âÀü»ê¹øÈ£, Me.º¯¾Ð±âÀü»ê¹øÈ£, "\º¯¾ÐÀü»ê¹øÈ£ÆÐÅÏ.TXT", "", True)    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub bt_nuhaipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_nuha.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_ºÎÇÏÃø, "K", Me.ºÎÇÏÃø.Length, "\ºÎÇÏÃøÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.SºÎÇÏÃø, Me.ºÎÇÏÃø, "\ºÎÇÏÃøÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub bt_swenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_sw.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_Àü¿øÃø, "I", Me.Àü¿øÃø.Length, "\Àü¿øÃøÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.sÀü¿øÃø, Me.Àü¿øÃø, "\Àü¿øÃøÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub bt_byunenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_byun.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        'SAVE_PATTERN(Me.ÆÐÅϸí_º¯¾Ð±â¸í, "F", Me.º¯¾Ð±â¸í.Length, "\º¯¾Ð±â¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.Sº¯¾Ð±â¸í, Me.º¯¾Ð±â¸í, "\º¯¾Ð±â¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub
    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        If Me.cmb_style.Items.Count < 1 Then
            Me.cm_styleedit.Enabled = False
        End If

    End Sub

    Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.preview_window()
        End If
    End Sub

    Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged
        WLog2(Auto_Log, "Ç¥½Ã üũ¹Ú½º ¼±Åà ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        For Each a As Control In SelCon
            a.Visible = Me.cb_visible.Checked
        Next
        WLog2(Auto_Log, "[Ç¥½Ã] üũ¹Ú½º ¼±Åÿ¡¼­ pewview¸¦ È£Ãâ ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        Me.preview_window()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim NewLine As New S_Circle
        NewLine.PenColor = Drawing.Color.Black
        NewLine.PenWidth = 3
        NewLine.X = 100
        NewLine.Y = 100
        NewLine.Width = 200
        'NewLine.Height = 200
        Draw_Circle.Add(NewLine)
        Refresh_Drawlist()
    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim NewLine As New S_QRCode
        NewLine.X = 100
        NewLine.Y = 100
        NewLine.Width = 0
        NewLine.Height = 0
        Draw_QRcode.Add(NewLine)
        Refresh_Drawlist()
    End Sub


    Private Sub ¼±·Î¸íº¯¾ÐToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ¼±·Î¸íº¯¾ÐToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        '  SAVE_PATTERN(Me.ÆÐÅϸí_¼±·Î¸í, "L", Me.¼±·Î¸í.Length, "\¼±·Î¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S¼±·Î¸í_º¯¾Ð, Me.¼±·Î¸í_º¯¾Ð, "\¼±·Î¸íº¯¾ÐÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub °ü¸®±¸AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles °ü¸®±¸AToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        'SAVE_PATTERN(Me.ÆÐÅϸí_º¯¾Ð±â°ü¸®±¸, "D", Me.°ü¸®±¸2.Length, "\º¯¾Ð±â°ü¸®±¸ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.S°ü¸®±¸, Me.°ü¸®±¸, "\°ü¸®±¸AÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub Àü»êÈ­¹øÈ£AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Àü»êÈ­¹øÈ£AToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_º¯¾Ð±âÀü»ê¹øÈ£, "E", Me.Àü»ê¹øÈ£2.Length, "\º¯¾Ð±âÀü»ê¹øÈ£ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.SÀü»ê¹øÈ£, Me.Àü»ê¹øÈ£, "\Àü»ê¹øÈ£ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub Á¦Á¶È¸»çToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Á¦Á¶È¸»çToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.ÆÐÅϸí_½Ã°ø¾÷ü, "C", Me.½Ã°ø¾÷ü.Length, "\½Ã°ø¾÷üÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.SÁ¦Á¶È¸»ç, Me.Á¦Á¶È¸»ç, "\Á¦Á¶È¸»çÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub Á¦Á¶³â¿ùToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Á¦Á¶³â¿ùToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        'SAVE_PATTERN(Me.ÆÐÅϸé_½Ã°ø³â¿ù, "Y", Me.½Ã°ø³â¿ù.Length, "\½Ã°ø³â¿ùÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.SÁ¦Á¶³â¿ù, Me.Á¦Á¶³â¿ù, "\Á¦Á¶³â¿ùÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub
    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim a As New ColorDialog
        a.Color = lbQrBg.BackColor
        If a.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            lbQrBg.BackColor = a.Color
        End If
    End Sub

    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Dim a As New ColorDialog
        a.Color = lbQrFG.BackColor
        If a.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            lbQrFG.BackColor = a.Color
        End If
    End Sub
End Class