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

Public Class printformCable2

    Dim DrStyle As PatternDS.TStyleRow = Nothing
    Dim DtPattern As PatternDS.TPatternDataTable = Nothing

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

    Dim S°ü¸®±¸(0) As MyControlOLEDBv2.MyLabel
    Dim SÀü»ê¹øÈ£(0) As MyControlOLEDBv2.MyLabel
    Dim °ü¸®±¸ As String
    Dim Àü»ê¹øÈ£ As String

    Dim SHA´ÜÀÚ¸í(0) As MyControlOLEDBv2.MyLabel
    Dim SHASS(20) As MyControlOLEDBv2.MyLabel
    Dim SHADL(20) As MyControlOLEDBv2.MyLabel
    Dim SHA±¸°£(20) As MyControlOLEDBv2.MyLabel
    Dim HA´ÜÀÚ¸í As String
    Dim HA±¸°£ As String
    Dim HASS As String
    Dim HADL As String

    Dim SHB´ÜÀÚ¸í(0) As MyControlOLEDBv2.MyLabel
    Dim SHBSS(20) As MyControlOLEDBv2.MyLabel
    Dim SHBDL(20) As MyControlOLEDBv2.MyLabel
    Dim SHB±¸°£(20) As MyControlOLEDBv2.MyLabel
    Dim HB´ÜÀÚ¸í As String
    Dim HBSS As String
    Dim HBDL As String
    Dim HB±¸°£ As String

    'Dim SS0¹øÈ£1(0) As MyControlOLEDBv2.MyLabel
    'Dim SS0¹øÈ£2(20) As MyControlOLEDBv2.MyLabel
    'Dim SS0¹øÈ£3(20) As MyControlOLEDBv2.MyLabel
    ''Dim SS0¹øÈ£4(0) As MyControlOLEDBv2.MyLabel
    'Dim SS0SW¸í(20) As MyControlOLEDBv2.MyLabel
    '' Dim SS0¼ö¿ë°¡(0) As MyControlOLEDBv2.MyLabel
    'Dim S0¹øÈ£1 As String
    'Dim S0¹øÈ£2 As String
    'Dim S0¹øÈ£3 As String
    ''Dim S0¹øÈ£4 As String
    'Dim S0SW¸í As String
    ''Dim S0¼ö¿ë°¡ As String

    Dim SS1¹øÈ£1(0) As MyControlOLEDBv2.MyLabel
    Dim SS1¹øÈ£2(20) As MyControlOLEDBv2.MyLabel
    Dim SS1¹øÈ£3(20) As MyControlOLEDBv2.MyLabel
    'Dim SS1¹øÈ£4(0) As MyControlOLEDBv2.MyLabel
    Dim SS1SW¸í(20) As MyControlOLEDBv2.MyLabel
    ' Dim SS1À§Ä¡(0) As MyControlOLEDBv2.MyLabel
    Dim S1¹øÈ£1 As String
    Dim S1¹øÈ£2 As String
    Dim S1¹øÈ£3 As String
    'Dim S1¹øÈ£4 As String
    Dim S1SW¸í As String
    'Dim S1À§Ä¡ As String


    Dim SS2¹øÈ£1(0) As MyControlOLEDBv2.MyLabel
    Dim SS2¹øÈ£2(20) As MyControlOLEDBv2.MyLabel
    Dim SS2¹øÈ£3(20) As MyControlOLEDBv2.MyLabel
    'Dim SS2¹øÈ£4(0) As MyControlOLEDBv2.MyLabel
    Dim SS2SW¸í(20) As MyControlOLEDBv2.MyLabel
    'Dim SS2À§Ä¡(0) As MyControlOLEDBv2.MyLabel
    Dim S2¹øÈ£1 As String
    Dim S2¹øÈ£2 As String
    Dim S2¹øÈ£3 As String
    'Dim S2¹øÈ£4 As String
    Dim S2SW¸í As String
    'Dim S2À§Ä¡ As String



    Dim SS3¹øÈ£1(0) As MyControlOLEDBv2.MyLabel
    Dim SS3¹øÈ£2(20) As MyControlOLEDBv2.MyLabel
    Dim SS3¹øÈ£3(20) As MyControlOLEDBv2.MyLabel
    'Dim SS3¹øÈ£4(0) As MyControlOLEDBv2.MyLabel
    Dim SS3SW¸í(20) As MyControlOLEDBv2.MyLabel
    'Dim SS3À§Ä¡(0) As MyControlOLEDBv2.MyLabel
    Dim S3¹øÈ£1 As String
    Dim S3¹øÈ£2 As String
    Dim S3¹øÈ£3 As String
    ' Dim S3¹øÈ£4 As String
    Dim S3SW¸í As String
    'Dim S3À§Ä¡ As String


    Dim SS4¹øÈ£1(0) As MyControlOLEDBv2.MyLabel
    Dim SS4¹øÈ£2(20) As MyControlOLEDBv2.MyLabel
    Dim SS4¹øÈ£3(20) As MyControlOLEDBv2.MyLabel
    'Dim SS4¹øÈ£4(0) As MyControlOLEDBv2.MyLabel
    Dim SS4SW¸í(20) As MyControlOLEDBv2.MyLabel
    'Dim SS4À§Ä¡(0) As MyControlOLEDBv2.MyLabel
    Dim S4¹øÈ£1 As String
    Dim S4¹øÈ£2 As String
    Dim S4¹øÈ£3 As String
    Dim S4¹øÈ£4 As String
    Dim S4SW¸í As String
    Dim S4À§Ä¡ As String



    'Dim S½Ã°ø³â¿ù(0) As MyControlOLEDBv2.MyLabel
    'Dim S½Ã°øȸ»ç(0) As MyControlOLEDBv2.MyLabel
    'Dim S°ø»ç¹øÈ£(0) As MyControlOLEDBv2.MyLabel
    'Dim S°¨µ¶ÀÚ(0) As MyControlOLEDBv2.MyLabel
    'Dim ½Ã°ø³â¿ù As String
    'Dim ½Ã°øȸ»ç As String
    'Dim °ø»ç¹øÈ£ As String
    'Dim °¨µ¶ÀÚ As String


    Dim Sºñ°í1(0) As MyControlOLEDBv2.MyLabel
    Dim Sºñ°í2(0) As MyControlOLEDBv2.MyLabel
    Dim Sºñ°í3(0) As MyControlOLEDBv2.MyLabel
    Dim Sºñ°í4(0) As MyControlOLEDBv2.MyLabel
    Dim Sºñ°í5(0) As MyControlOLEDBv2.MyLabel
    Dim Sºñ°í6(0) As MyControlOLEDBv2.MyLabel
    Dim ºñ°í1 As String
    Dim ºñ°í2 As String
    Dim ºñ°í3 As String
    Dim ºñ°í4 As String
    Dim ºñ°í5 As String
    Dim ºñ°í6 As String

    'Dim st°ø»ç¹øÈ£(0), st°ø»ç¹øÈ£2(0) As MyControlOLEDBv2.MyLabel
    'Dim st¼³Ä¡³â¿ù(0), st¼³Ä¡³â¿ù2(0) As MyControlOLEDBv2.MyLabel
    'Dim st½Ã°ø¾÷ü(0), st½Ã°ø¾÷ü2(0) As MyControlOLEDBv2.MyLabel
    'Dim st°¨µ¶ÀÚ(0), st°¨µ¶ÀÚ2(0) As MyControlOLEDBv2.MyLabel
    'Dim stSS1(0), stss2(0) As MyControlOLEDBv2.MyLabel
    'Dim stdl1(0), stdl2(0) As MyControlOLEDBv2.MyLabel
    'Dim stÀü»ê¹øÈ£(0) As MyControlOLEDBv2.MyLabel

    Dim st¹®ÀÚss1(0) As MyLabel
    Dim st¹®ÀÚss2(0) As MyLabel
    Dim st¹®ÀÚss3(0) As MyLabel
    Dim st¹®ÀÚss4(0) As MyLabel
    Dim st¹®ÀÚss5(0) As MyLabel
    Dim st¹®ÀÚss6(0) As MyLabel

    Dim st¹®ÀÚdl1(0) As MyLabel
    Dim st¹®ÀÚdl2(0) As MyLabel
    Dim st¹®ÀÚdl3(0) As MyLabel
    Dim st¹®ÀÚdl4(0) As MyLabel
    Dim st¹®ÀÚdl5(0) As MyLabel
    Dim st¹®ÀÚdl6(0) As MyLabel


    Dim S¹øÈ£(0) As MyLabel

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

    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 & "\styleCAB2")
    Public FileC As String = My.Application.Info.DirectoryPath & "\styleCECAB2.ini" '//»ç¿ëÀÚ ½ºÅ¸ÀÏ ÆÄÀÏ

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

    Dim srcTable As ireaDataSet.Detail_Cable2DataTable    '//µ¥ÀÌÅÍ°¡ ÀúÀåµÉ Å×À̺í
    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 Sub New()
        InitializeComponent()
        WLog2(Auto_Log, "New()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
    End Sub

    Public Sub New(ByRef Src As ireaDataSet.Detail_Cable2DataTable, Optional ByVal IRow As DataRowView = Nothing)
        InitializeComponent()
        WLog2(Auto_Log, "New(srctable,srcRow)", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "printjjungCAB2", "\viewConfig\JijungCAB2_")
        WLog2(Auto_Log, "Form_Close", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "printjjungCAB2", "\viewConfig\JijungCAB2_")
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//´õºí¹öÆÛ¸µ
        WLog2(Auto_Log, "Form_Load()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        GetPrintersName()   '//ÇÁ¸°Å͸íÀ» °¡Á®¿É´Ï´Ù.
        Load_Setting()
        SetControls()   '//ÄÁÆ®·ÑÀ» ÃʱâÈ­ÇÏ°í ¼ÂÆÃÇÑ´Ù.

        If srcTable Is Nothing Then
            'MsgBox("¼Ò½º°¡¾ø¾î¼­ ±âº»¼ÂÆÃÀ¸·Î ÀüȯÇÔ")
            WLog2(Auto_Log, "°³¹ßÀÚ ±âº»¼ÂÆÃÀ¸·Î Àüȯ()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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


        WLog2(Auto_Log, "°³¹ßÀÚ¸ðµå=" & Admin.ToString, "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 / ÀϹݿëÀ¸·Î ¼ÂÆÃÇÕ´Ï´Ù()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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_JNUMCSAVE.PerformClick()
                End If
            Case Keys.F7
                Me.bt_print.PerformButtonClick()
            Case Keys.F8
                Me.bt_prnpreview.PerformClick()
        End Select

    End Sub
    Private 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)
            Me.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()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        Dim CtlCnt As Short = 0

        AddControl(CtlCnt, "¹øÈ£", "XX", Me.S¹øÈ£, Me.cb_seq, )

        AddControl(CtlCnt, "°ü¸®±¸", "AA", Me.S°ü¸®±¸, Me.CB_KWAN, "KWANPATTERN")
        AddControl(CtlCnt, "Àü»ê¹øÈ£", "AB", Me.SÀü»ê¹øÈ£, Me.CB_JUNSA, "JUNNUMPATTERN")

        AddControl(CtlCnt, "HA´ÜÀÚ¸í", "CN", Me.SHA´ÜÀÚ¸í, Me.CB_HA´ÜÀÚ, "CNPATTERN")
        AddControl(CtlCnt, "HASS", "AC", Me.SHASS, Me.CB_HASS, "HAGPATTERN")
        AddControl(CtlCnt, "HADL", "AD", Me.SHADL, Me.CB_HADL, "HASSPATTERN")
        AddControl(CtlCnt, "HA±¸°£", "AE", Me.SHA±¸°£, Me.CB_HAKUKAN, "HADLPTTERN")

        AddControl(CtlCnt, "HB´ÜÀÚ¸í", "CO", Me.SHB´ÜÀÚ¸í, Me.CB_HB´ÜÀÚ, "COPATTERN")
        AddControl(CtlCnt, "HBSS", "AF", Me.SHBSS, Me.CB_HBSS, "HBSSPATTERN")
        AddControl(CtlCnt, "HBDL", "AG", Me.SHBDL, Me.CB_HBDL, "HBDLPATTERN")
        AddControl(CtlCnt, "HB±¸°£", "AH", Me.SHB±¸°£, Me.CB_HBKUKAN, "HBGPATTERN")

        'AddControl(CtlCnt, "»ó´ë1´ÜÀÚ", "AI", Me.SS0¹øÈ£1, Me.cb_ai, "S01PATTERN")
        'AddControl(CtlCnt, "»ó´ë1S/S", "AJ", Me.SS0¹øÈ£2, Me.cb_aj, "S02PATTERN")
        'AddControl(CtlCnt, "»ó´ë1D/L", "AK", Me.SS0¹øÈ£3, Me.cB_ak, "S03PATTERN")
        ''AddControl(CtlCnt, "S0¹øÈ£4", "AL", Me.SS0¹øÈ£4, Me.cb_al, "S04PATTERN")
        'AddControl(CtlCnt, "»ó´ë1±¸°£", "AM", Me.SS0SW¸í, Me.cb_am, "S0SWPATTERN")
        ''AddControl(CtlCnt, "S0À§Ä¡", "AN", Me.SS0¼ö¿ë°¡, Me.cb_an, "S0SUPATTERN")

        AddControl(CtlCnt, "»ó´ë1´ÜÀÚ", "AO", Me.SS1¹øÈ£1, Me.cb_ao, "S11PATTERN")
        AddControl(CtlCnt, "»ó´ë1S/S", "AP", Me.SS1¹øÈ£2, Me.cb_ap, "S12PATTERN")
        AddControl(CtlCnt, "»ó´ë1D/L", "AQ", Me.SS1¹øÈ£3, Me.cb_aq, "S13PATTERN")
        'AddControl(CtlCnt, "S1¹øÈ£4", "AR", Me.SS1¹øÈ£4, Me.cb_ar, "S14PATTERN")
        AddControl(CtlCnt, "»ó´ë1±¸°£", "AS", Me.SS1SW¸í, Me.cb_as, "S1SWPATTERN")
        'AddControl(CtlCnt, "S1À§Ä¡", "AT", Me.SS1À§Ä¡, Me.cb_at, "S1SUPATTERN")

        AddControl(CtlCnt, "»ó´ë2´ÜÀÚ", "AU", Me.SS2¹øÈ£1, Me.cb_au, "S21PATTERN")
        AddControl(CtlCnt, "»ó´ë2S/S", "AV", Me.SS2¹øÈ£2, Me.cb_av, "S22PATTERN")
        AddControl(CtlCnt, "»ó´ë2D/L", "AW", Me.SS2¹øÈ£3, Me.cB_aw, "S23PATTERN")
        'AddControl(CtlCnt, "s2¹øÈ£4", "AX", Me.SS2¹øÈ£4, Me.cb_ax, "S24PATTERN")
        AddControl(CtlCnt, "»ó´ë2±¸°£", "AY", Me.SS2SW¸í, Me.cb_ay, "S2SWPATTERN")
        'AddControl(CtlCnt, "s2À§Ä¡", "AZ", Me.SS2À§Ä¡, Me.cb_az, "S2SUPATTERN")

        AddControl(CtlCnt, "»ó´ë3´ÜÀÚ", "BA", Me.SS3¹øÈ£1, Me.cb_ba, "S31PATTERN")
        AddControl(CtlCnt, "»ó´ë3S/S", "BB", Me.SS3¹øÈ£2, Me.cB_bb, "S32PATTERN")
        AddControl(CtlCnt, "»ó´ë3D/L", "BC", Me.SS3¹øÈ£3, Me.cb_bc, "S33PATTERN")
        ' AddControl(CtlCnt, "s3¹øÈ£4", "BD", Me.SS3¹øÈ£4, Me.cb_bd, "S34PATTERN")
        AddControl(CtlCnt, "»ó´ë3±¸°£", "BE", Me.SS3SW¸í, Me.cb_be, "S3SWPATTERN")
        'AddControl(CtlCnt, "s3À§Ä¡", "BF", Me.SS3À§Ä¡, Me.cb_bf, "S3SUPATTERN")

        AddControl(CtlCnt, "»ó´ë4´ÜÀÚ", "BG", Me.SS4¹øÈ£1, Me.cb_bg, "S41PATTERN")
        AddControl(CtlCnt, "»ó´ë4S/S", "BH", Me.SS4¹øÈ£2, Me.cb_bh, "S42PATTERN")
        AddControl(CtlCnt, "»ó´ë4D/L", "BI", Me.SS4¹øÈ£3, Me.cb_bi, "S43PATTERN")
        'AddControl(CtlCnt, "s4¹øÈ£4", "BJ", Me.SS4¹øÈ£4, Me.cb_bj, "S44PATTERN")
        AddControl(CtlCnt, "»ó´ë4±¸°£", "BK", Me.SS4SW¸í, Me.cB_bk, "S4SWPATTERN")
        ' AddControl(CtlCnt, "s4À§Ä¡", "BL", Me.SS4À§Ä¡, Me.cb_bl, "S4SUPATTERN")

        'AddControl(CtlCnt, "½Ã°ø³â¿ù", "BM", Me.S½Ã°ø³â¿ù, Me.cb_bm, "YMPATTERN")
        'AddControl(CtlCnt, "½Ã°øȸ»ç", "BN", Me.S½Ã°øȸ»ç, Me.cb_bn, "CMPATTERN")
        'AddControl(CtlCnt, "°ø»ç¹øÈ£", "BO", Me.S°ø»ç¹øÈ£, Me.cb_bo, "KONGNPATTERN")
        'AddControl(CtlCnt, "°¨µ¶ÀÚ", "BP", Me.S°¨µ¶ÀÚ, Me.cb_bp, "KAMDOKPATTERN")

        AddControl(CtlCnt, "ºñ°í1", "BQ", Me.Sºñ°í1, Me.cb_bq)
        AddControl(CtlCnt, "ºñ°í2", "BR", Me.Sºñ°í2, Me.cb_br)
        AddControl(CtlCnt, "ºñ°í3", "BS", Me.Sºñ°í3, Me.cb_bs)
        AddControl(CtlCnt, "ºñ°í4", "BT", Me.Sºñ°í4, Me.cb_bt)
        AddControl(CtlCnt, "ºñ°í5", "BU", Me.Sºñ°í5, Me.cb_bu)
        AddControl(CtlCnt, "ºñ°í6", "BV", Me.Sºñ°í6, Me.cb_bv)

        AddControl(CtlCnt, "¹®ÀÚ(S/S1)", "CI", Me.st¹®ÀÚss1, Me.cb_ci)
        AddControl(CtlCnt, "¹®ÀÚ(S/S2)", "CJ", Me.st¹®ÀÚss2, Me.cb_cj)
        AddControl(CtlCnt, "¹®ÀÚ(S/S3)", "CK", Me.st¹®ÀÚss3, Me.cb_ck)
        AddControl(CtlCnt, "¹®ÀÚ(S/S4)", "CL", Me.st¹®ÀÚss4, Me.cb_cl)
        AddControl(CtlCnt, "¹®ÀÚ(S/S5)", "CM", Me.st¹®ÀÚss5, Me.cb_cm)
        AddControl(CtlCnt, "¹®ÀÚ(S/S6)", "CN", Me.st¹®ÀÚss6, Me.cb_cn)
        AddControl(CtlCnt, "¹®ÀÚ(D/L1)", "CO", Me.st¹®ÀÚdl1, Me.cb_co)
        AddControl(CtlCnt, "¹®ÀÚ(D/L2)", "CP", Me.st¹®ÀÚdl2, Me.cb_CP)
        AddControl(CtlCnt, "¹®ÀÚ(D/L3)", "CQ", Me.st¹®ÀÚdl3, Me.CB_CQ)
        AddControl(CtlCnt, "¹®ÀÚ(D/L4)", "CR", Me.st¹®ÀÚdl4, Me.CB_CR)
        AddControl(CtlCnt, "¹®ÀÚ(D/L5)", "CS", Me.st¹®ÀÚdl5, Me.CB_CS)
        AddControl(CtlCnt, "¹®ÀÚ(D/L6)", "CT", Me.st¹®ÀÚdl6, Me.CB_CT)



    End Sub

    Private Sub SETTOOLTIP()
        WLog2(Auto_Log, "Settooltip()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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("¼±ÅÃµÈ °³Ã¼µéÀÇ È­¸éÇ¥½Ã¿©ºÎ¸¦ °áÁ¤Á¤ÇÕ´Ï´Ù")
        Me.ToolTip1.SetToolTip(Me.cb_visible, 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, "°³Ã¼¸¦ ´õºíŬ¸¯Çß½À´Ï´Ù.(ÀÌ°ÍÀº »ç¿ëµÇÁö ¾ÊÀ½)", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "ÇöÀç ¼³Á¤(½ºÅ¸ÀÏ)À» ÀúÀåÇÕ´Ï´Ù.", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        Dim A As New MyINI2(SettingFile)
        A.Write("PRINTFORM", "printername", Me.combobox5.Text)   '//ÆÐÅÏ°Ë»çÁ¶°Ç ÄÞº¸¹Ú½º      
    End Sub
    Private Sub Load_Setting()
        WLog2(Auto_Log, "ÇöÀç¼³Á¤(½ºÅ¸ÀÏ)À» °¡Á®¿É´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        WLog2(Auto_Log, "Load_Setting()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 ÁøÀÔ()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then
            WLog2(Auto_Log, "GetViewData : À妽º°¡ ¾ø°Å³ª ¹®Á¦°¡ Àվ ¸®ÅÏÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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
        Me.°ü¸®±¸ = GetSpread(Me.Dv, index, "°ü¸®±¸")
        Me.Àü»ê¹øÈ£ = GetSpread(Me.Dv, index, "Àü»ê¹øÈ£")

        Me.HA´ÜÀÚ¸í = GetSpread(Me.Dv, index, "HA´ÜÀÚ¸í")
        Me.HASS = GetSpread(Me.Dv, index, "HASS")
        Me.HADL = GetSpread(Me.Dv, index, "HADL")
        Me.HA±¸°£ = GetSpread(Me.Dv, index, "HA±¸°£")

        Me.HB´ÜÀÚ¸í = GetSpread(Me.Dv, index, "HB´ÜÀÚ¸í")
        Me.HBSS = GetSpread(Me.Dv, index, "HBSS")
        Me.HBDL = GetSpread(Me.Dv, index, "HBDL")
        Me.HB±¸°£ = GetSpread(Me.Dv, index, "HB±¸°£")

        'Me.SS1¹øÈ£1 = GetSpread(me.dv,index, "S0¹øÈ£1")
        'Me.S0¹øÈ£2 = GetSpread(me.dv,index, "S0¹øÈ£2")
        'Me.S0¹øÈ£3 = GetSpread(me.dv,index, "S0¹øÈ£3")
        'Me.S0¹øÈ£4 = GetSpread(me.dv,index, "S0¹øÈ£4")
        'Me.S0SW¸í = GetSpread(me.dv,index, "S0SW¸í")
        'Me.S0¼ö¿ë°¡ = GetSpread(me.dv,index, "S0¼ö¿ë°¡")

        Me.S1¹øÈ£1 = GetSpread(Me.Dv, index, "S1¹øÈ£1")
        Me.S1¹øÈ£2 = GetSpread(Me.Dv, index, "S1¹øÈ£2")
        Me.S1¹øÈ£3 = GetSpread(Me.Dv, index, "S1¹øÈ£3")
        'Me.S1¹øÈ£4 = GetSpread(me.dv,index, "S1¹øÈ£4")
        Me.S1SW¸í = GetSpread(Me.Dv, index, "S1SW¸í")
        'Me.S1À§Ä¡ = GetSpread(me.dv,index, "S1À§Ä¡")

        Me.S2¹øÈ£1 = GetSpread(Me.Dv, index, "S2¹øÈ£1")
        Me.S2¹øÈ£2 = GetSpread(Me.Dv, index, "S2¹øÈ£2")
        Me.S2¹øÈ£3 = GetSpread(Me.Dv, index, "S2¹øÈ£3")
        ' Me.S2¹øÈ£4 = GetSpread(me.dv,index, "S2¹øÈ£4")
        Me.S2SW¸í = GetSpread(Me.Dv, index, "S2SW¸í")
        'Me.S2À§Ä¡ = GetSpread(me.dv,index, "S2À§Ä¡")

        Me.S3¹øÈ£1 = GetSpread(Me.Dv, index, "S3¹øÈ£1")
        Me.S3¹øÈ£2 = GetSpread(Me.Dv, index, "S3¹øÈ£2")
        Me.S3¹øÈ£3 = GetSpread(Me.Dv, index, "S3¹øÈ£3")
        'Me.S3¹øÈ£4 = GetSpread(me.dv,index, "S3¹øÈ£4")
        Me.S3SW¸í = GetSpread(Me.Dv, index, "S3SW¸í")
        'Me.S3À§Ä¡ = GetSpread(me.dv,index, "S3À§Ä¡")

        Me.S4¹øÈ£1 = GetSpread(Me.Dv, index, "S4¹øÈ£1")
        Me.S4¹øÈ£2 = GetSpread(Me.Dv, index, "S4¹øÈ£2")
        Me.S4¹øÈ£3 = GetSpread(Me.Dv, index, "S4¹øÈ£3")
        Me.S4¹øÈ£4 = GetSpread(Me.Dv, index, "S4¹øÈ£4")
        Me.S4SW¸í = GetSpread(Me.Dv, index, "S4SW¸í")
        Me.S4À§Ä¡ = GetSpread(Me.Dv, index, "S4À§Ä¡")

        'Me.½Ã°ø³â¿ù = GetSpread(me.dv,index, "½Ã°ø³â¿ù")
        'Me.½Ã°øȸ»ç = GetSpread(me.dv,index, "½Ã°øȸ»ç")
        'Me.°ø»ç¹øÈ£ = GetSpread(me.dv,index, "°ø»ç¹øÈ£")
        'Me.°¨µ¶ÀÚ = GetSpread(me.dv,index, "°¨µ¶ÀÚ")

        Me.ºñ°í1 = GetSpread(Me.Dv, index, "ºñ°í1")
        Me.ºñ°í2 = GetSpread(Me.Dv, index, "ºñ°í2")
        Me.ºñ°í3 = GetSpread(Me.Dv, index, "ºñ°í3")
        Me.ºñ°í4 = GetSpread(Me.Dv, index, "ºñ°í4")
        Me.ºñ°í5 = GetSpread(Me.Dv, index, "ºñ°í5")
        Me.ºñ°í6 = GetSpread(Me.Dv, index, "ºñ°í6")

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

        Me.Text = "ÁöÁß(ÄÉÀ̺í2) Ãâ·ÂÀÛ¾÷(" & °ü¸®±¸ & Àü»ê¹øÈ£ & ")"

        WLog2(Auto_Log, "PASE±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        '============ ¿©±â´Â µû·Î Çؼ®ÀÌ ¾ø´Â°÷ÀÌ´Ù ==========================================================
        If Me.PARSE(Me.ºñ°í1, Me.Sºñ°í1) Then Me.PARSE_PATTERN(ºñ°í1, Me.Sºñ°í1)
        If Me.PARSE(Me.ºñ°í2, Me.Sºñ°í2) Then Me.PARSE_PATTERN(ºñ°í2, Me.Sºñ°í2)
        If Me.PARSE(Me.ºñ°í3, Me.Sºñ°í3) Then Me.PARSE_PATTERN(ºñ°í3, Me.Sºñ°í3)
        If Me.PARSE(Me.ºñ°í4, Me.Sºñ°í4) Then Me.PARSE_PATTERN(ºñ°í4, Me.Sºñ°í4)
        If Me.PARSE(Me.ºñ°í5, Me.Sºñ°í5) Then Me.PARSE_PATTERN(ºñ°í5, Me.Sºñ°í5)
        If Me.PARSE(Me.ºñ°í6, Me.Sºñ°í6) Then Me.PARSE_PATTERN(ºñ°í6, Me.Sºñ°í6)
        '=====================°íÁ¤¹®ÀÚ======================================================================
        Me.PARSE("S/S", Me.st¹®ÀÚss1)
        Me.PARSE("S/S", Me.st¹®ÀÚss2)
        Me.PARSE("S/S", Me.st¹®ÀÚss3)
        Me.PARSE("S/S", Me.st¹®ÀÚss4)
        Me.PARSE("S/S", Me.st¹®ÀÚss5)
        Me.PARSE("S/S", Me.st¹®ÀÚss6)
        Me.PARSE("D/L", Me.st¹®ÀÚdl1)
        Me.PARSE("D/L", Me.st¹®ÀÚdl2)
        Me.PARSE("D/L", Me.st¹®ÀÚdl3)
        Me.PARSE("D/L", Me.st¹®ÀÚdl4)
        Me.PARSE("D/L", Me.st¹®ÀÚdl5)
        Me.PARSE("D/L", Me.st¹®ÀÚdl6)
        'Me.PARSE("Àü»êÈ­¹øÈ£:", Me.stÀü»ê¹øÈ£)

        '====================================================================================================

        WLog2(Auto_Log, "ÆÐÅÏÀÌÀÖ´Â PASE ±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        '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(HA´ÜÀÚ¸í, Me.SHA´ÜÀÚ¸í) Then Me.PARSE_PATTERN(HA´ÜÀÚ¸í, Me.SHA´ÜÀÚ¸í)
        If Me.PARSE(HASS, Me.SHASS) Then Me.PARSE_PATTERN(HASS, Me.SHASS)
        If Me.PARSE(HADL, Me.SHADL) Then Me.PARSE_PATTERN(HADL, Me.SHADL)
        If Me.PARSE(HA±¸°£, Me.SHA±¸°£) Then Me.PARSE_PATTERN(HA±¸°£, Me.SHA±¸°£)

        If Me.PARSE(HB´ÜÀÚ¸í, Me.SHB´ÜÀÚ¸í) Then Me.PARSE_PATTERN(HB´ÜÀÚ¸í, Me.SHB´ÜÀÚ¸í)
        If Me.PARSE(HBSS, Me.SHBSS) Then Me.PARSE_PATTERN(HBSS, Me.SHBSS)
        If Me.PARSE(HBDL, Me.SHBDL) Then Me.PARSE_PATTERN(HBDL, Me.SHBDL)
        If Me.PARSE(HB±¸°£, Me.SHB±¸°£) Then Me.PARSE_PATTERN(HB±¸°£, Me.SHB±¸°£)

        'If Me.PARSE(S0¹øÈ£1, Me.SS0¹øÈ£1) Then Me.PARSE_PATTERN(S0¹øÈ£1, Me.SS0¹øÈ£1)
        'If Me.PARSE(S0¹øÈ£2, Me.SS0¹øÈ£2) Then Me.PARSE_PATTERN(S0¹øÈ£2, Me.SS0¹øÈ£2)
        'If Me.PARSE(S0¹øÈ£3, Me.SS0¹øÈ£3) Then Me.PARSE_PATTERN(S0¹øÈ£3, Me.SS0¹øÈ£3)
        'If Me.PARSE(S0¹øÈ£4, Me.SS0¹øÈ£4) Then Me.PARSE_PATTERN(S0¹øÈ£4, Me.SS0¹øÈ£4)
        'If Me.PARSE(S0SW¸í, Me.SS0SW¸í) Then Me.PARSE_PATTERN(S0SW¸í, Me.SS0SW¸í)
        'If Me.PARSE(S0¼ö¿ë°¡, Me.SS0¼ö¿ë°¡) Then Me.PARSE_PATTERN(S0¼ö¿ë°¡, Me.SS0¼ö¿ë°¡)

        If Me.PARSE(S1¹øÈ£1, Me.SS1¹øÈ£1) Then Me.PARSE_PATTERN(S1¹øÈ£1, Me.SS1¹øÈ£1)
        If Me.PARSE(S1¹øÈ£2, Me.SS1¹øÈ£2) Then Me.PARSE_PATTERN(S1¹øÈ£2, Me.SS1¹øÈ£2)
        If Me.PARSE(S1¹øÈ£3, Me.SS1¹øÈ£3) Then Me.PARSE_PATTERN(S1¹øÈ£3, Me.SS1¹øÈ£3)
        '  If Me.PARSE(S1¹øÈ£4, Me.SS1¹øÈ£4) Then Me.PARSE_PATTERN(S1¹øÈ£4, Me.SS1¹øÈ£4)
        If Me.PARSE(S1SW¸í, Me.SS1SW¸í) Then Me.PARSE_PATTERN(S1SW¸í, Me.SS1SW¸í)
        ' If Me.PARSE(S1À§Ä¡, Me.SS1À§Ä¡) Then Me.PARSE_PATTERN(S1À§Ä¡, Me.SS1À§Ä¡)

        If Me.PARSE(S2¹øÈ£1, Me.SS2¹øÈ£1) Then Me.PARSE_PATTERN(S2¹øÈ£1, Me.SS2¹øÈ£1)
        If Me.PARSE(S2¹øÈ£2, Me.SS2¹øÈ£2) Then Me.PARSE_PATTERN(S2¹øÈ£2, Me.SS2¹øÈ£2)
        If Me.PARSE(S2¹øÈ£3, Me.SS2¹øÈ£3) Then Me.PARSE_PATTERN(S2¹øÈ£3, Me.SS2¹øÈ£3)
        '  If Me.PARSE(S2¹øÈ£4, Me.SS2¹øÈ£4) Then Me.PARSE_PATTERN(S2¹øÈ£4, Me.SS2¹øÈ£4)
        If Me.PARSE(S2SW¸í, Me.SS2SW¸í) Then Me.PARSE_PATTERN(S2SW¸í, Me.SS2SW¸í)
        '  If Me.PARSE(S2À§Ä¡, Me.SS2À§Ä¡) Then Me.PARSE_PATTERN(S2À§Ä¡, Me.SS2À§Ä¡)

        If Me.PARSE(S3¹øÈ£1, Me.SS3¹øÈ£1) Then Me.PARSE_PATTERN(S3¹øÈ£1, Me.SS3¹øÈ£1)
        If Me.PARSE(S3¹øÈ£2, Me.SS3¹øÈ£2) Then Me.PARSE_PATTERN(S3¹øÈ£2, Me.SS3¹øÈ£2)
        If Me.PARSE(S3¹øÈ£3, Me.SS3¹øÈ£3) Then Me.PARSE_PATTERN(S3¹øÈ£3, Me.SS3¹øÈ£3)
        '  If Me.PARSE(S3¹øÈ£4, Me.SS3¹øÈ£4) Then Me.PARSE_PATTERN(S3¹øÈ£4, Me.SS3¹øÈ£4)
        If Me.PARSE(S3SW¸í, Me.SS3SW¸í) Then Me.PARSE_PATTERN(S3SW¸í, Me.SS3SW¸í)
        '  If Me.PARSE(S3À§Ä¡, Me.SS3À§Ä¡) Then Me.PARSE_PATTERN(S3À§Ä¡, Me.SS3À§Ä¡)

        If Me.PARSE(S4¹øÈ£1, Me.SS4¹øÈ£1) Then Me.PARSE_PATTERN(S4¹øÈ£1, Me.SS4¹øÈ£1)
        If Me.PARSE(S4¹øÈ£2, Me.SS4¹øÈ£2) Then Me.PARSE_PATTERN(S4¹øÈ£2, Me.SS4¹øÈ£2)
        If Me.PARSE(S4¹øÈ£3, Me.SS4¹øÈ£3) Then Me.PARSE_PATTERN(S4¹øÈ£3, Me.SS4¹øÈ£3)
        '  If Me.PARSE(S4¹øÈ£4, Me.SS4¹øÈ£4) Then Me.PARSE_PATTERN(S4¹øÈ£4, Me.SS4¹øÈ£4)
        If Me.PARSE(S4SW¸í, Me.SS4SW¸í) Then Me.PARSE_PATTERN(S4SW¸í, Me.SS4SW¸í)
        '  If Me.PARSE(S4À§Ä¡, Me.SS4À§Ä¡) Then Me.PARSE_PATTERN(S4À§Ä¡, Me.SS4À§Ä¡)

        WLog2(Auto_Log, "±¸°ü¸®Àü»ê,ÀϷùøÈ£,°ü¸®Àü»êÇ¥½Ã¿©ºÎ¸¦ pase ÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        '========================= ±âŸ =================================================
        '//ÀÌ·¯¸é Ç¥½ÃÇؾßÇÑ´Ù.
        If Me.cb_seq.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_kwanglijungsan.Checked Then
        '    Me.S°ü¸®±¸ÀüÁÖ¹øÈ£(0).MyText = °ü¸®±¸ & "-" & Àü»ê¹øÈ£
        '    Me.S°ü¸®±¸ÀüÁÖ¹øÈ£(0).Visible = True
        'Else
        '    Me.S°ü¸®±¸ÀüÁÖ¹øÈ£(0).Visible = False
        'End If

        WLog2(Auto_Log, "»ç¿ëÀÚ¹®ÀÚÀÇ Ç¥½Ã¿©ºÎ¸¦ °áÁ¤ÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        '»ç¿ëÀÚ¹®ÀÚÀÇ Ç¥½Ã¿©ºÎ u a b d e
        'ÈÞ ³¡³µ´Ù.......................................................
        WLog2(Auto_Log, "Pewview À©µµ¿ì¸¦ ½ÇÇàÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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À» ¹ÝȯÇÕ´Ï´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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=", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "µ¥ÀÌÅÍÅ×ÀÌºí °»½Å()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex)

        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 '//¹üÀ§³»ÀÇ ÆäÀÌÁö¹øÈ£¿Í ÀÏÄ¡ÇÏ´Â ¹øÈ£¸¦ ã¾Æ¼­ ¹è¿­¿¡ ÇÒ´çÇÑ´Ù.
        WLog2(Auto_Log, "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 '//ÀüüÃâ·ÂÀ̹ǷΠ¹è¿­¿¡ ¸ðµç°ÍÀ» ¸®ÅÏÇÑ´Ù : ¸ðµçµ¥ÀÌÅÍÀÇ ·¹ÄÚµå À妽º¸¦ ÀúÀåÇÑ´Ù.
            'MsgBox("rad1")
            ReDim Me.PrintArray(Me.Dv.Count - 1)
            For i As Integer = 0 To Dv.Count - 1
                Me.PrintArray(i) = i
            Next
        End If

        If Me.RadioButton2.Checked Then '//ÇöÀçÆäÀÌÁö : ÇöÀ纸°íÀÖ´Ù´Â Æä¿¡ÁöÀÇ  ·¹ÄÚµåÀ妽º¸¸ ÀúÀåÇÑ´Ù.
            'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1)
            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 '//¹üÀ§ÁöÁ¤ : ÁöÁ¤µÈ¹üÀ§³»ÀÇ ¹øÈ£°ªÀ» °¡Áö°í ÇØ´ç À妽º¸¦ ã¾Æ¼­ ¹è¿­¿¡ ÇÒ´çÇÑ´Ù.
            '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 ¹Ì¸®º¸±â ¹öÆ°À» ´­·¶À»¶§´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "proc_printpage ÇÁ¸°Æ®ÆÐÀÌÁö¸¦ ÀÛ¼ºÇÑ´Ù Áß¿äÇÏ´Ù.()", "\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
            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 Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1"
        For pi As Short = 0 To Me.tb_pagerepeat.Text - 1  '//ÆäÀÌÁö´ç ¿¬¼ÓÃâ·ÂÇÒ È½¼ö
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("ÀμⰡ Ãë¼ÒµÇ¾ú½À´Ï´Ù", 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 °³Ã¼À̵¿ÇÒ ÇÁ·Î½ÃÁ®Àε¥ ÇöÀç ¾È¾´´Ù.()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = 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  °³Ã¼ÀÇ »óź¸±â()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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.tb_rep.Text = sender.Repeat
        Me.tb_repx.Text = sender.RepeatX
        Me.tb_repy.Text = sender.RepeatY


        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, Color.Green, Color.Black)
            Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Color.Green, 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 = Color.Black
            Me.lb_strpattern.ForeColor = 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, "¹è°æº¸±â üũ¹Ú½º¸¦ Ŭ¸¯Çß´Ù.)", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False)
        If CType(sender, 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, "ÆÄÀÏã±â ¹öÆ°ÀÌ Å¬¸¯µÊ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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() <> 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 (¼±ÅÃµÈ °³Ã¼µéÀÇ À§Ä¡°ªÀ» º¯°æÇÕ´Ï´Ù)", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 È£ÃâÇÕ´Ï´Ù]", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        Me.preview_window()
        'Me.ViewProperty(sender)
    End Sub

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

    Public Sub SetFont()   '//üũ¹Ú½º »óÅ¿¡µû¶ó¼­ ÆùÆ®¸¦ º¯°æÇÕ´Ï´Ù.
        WLog2(Auto_Log, "set font üũ¹Ú½º »óÅ¿¡ µû¶ó¼­ ÆùÆ®¸¦ º¯°æÇÕ´Ï´Ù.", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 È£ÃâÇÕ´Ï´Ù.", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 ·Î Çعö¸°´Ù.", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "½ºÅ¸ÀÏ À妽º°¡ º¯°æµÇ¾ú´Ù.", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 ¸¦ È£ÃâÇÔ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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, "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        Dim Arinini As New MyINI2(drstyle.File)
        Dim pos(), font(), visible, mytext, repeat() 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

                DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'")
                If DR.GetUpperBound(0) = 0 Then
                    repeat = DR(0)(1).ToString.Split(",")
                    Tobj.Repeat = repeat(0)
                    Tobj.RepeatX = repeat(1)
                    Tobj.RepeatY = repeat(2)
                End If


                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.DIV = Div 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

                    DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'")
                    If DR.GetUpperBound(0) = 0 Then
                        repeat = DR(0)(1).ToString.Split(",")
                        Tobj.Repeat = repeat(0)
                        Tobj.RepeatX = repeat(1)
                        Tobj.RepeatY = repeat(2)
                    End If

                    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


        Next

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

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

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

        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ÆÄÀÏ¿¡ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù. ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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()

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)

            f.ProgressBar1.Value += 1
            f.Refresh()

            Tobj = Me.AllLabels(i).ctl
            If Tobj.Pattern = "" Then
                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 & "," & Tobj.RepeatX & "," & Tobj.RepeatY)  '//¹Ýº¹Ãâ·ÂÁ¤º¸ÀúÀå
            End If
        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, Windows.Forms.CheckBox).Checked) 'A.Visible)
                End If
            Next
        Next

        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)

        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 ¿Ï·áÈÄ µ¥ÀÌÅÍÅ×ÀÌºí °»½ÅÀ» È£­„ ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 = 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")   'ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù. ÆÐÅÏ¿ª½Ã À§Ä¡/Å©±â/ÀåÆòµîÀÌ ÀúÀåµË´Ï´Ù.
        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
        '¼±·Î¸í ÆÐÅÏ ÀúÀå
        Dim TOBJ As MyControlOLEDBv2.MyLabel
        Dim Pname As String = MidName & "II" & mb.ToString

        WLog2(Auto_Log, " save_pattern2 ¸¦ ½ÇÇàÇÑ´Ù.", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 ¤Ä¼­ µ¥ÀÌÅÍÅ×ÀÌºí °»½ÅÀ» ¤¾È£ÃâÇÑ´Ù¤Ó¤Ó ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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 È£Ãâ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
    End Sub

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

    Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick
        WLog2(Auto_Log, " ±Û¾¾»ö±ò º¯°æ Ŭ¸¯µÊ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        Dim A As New ColorDialog
        If A.ShowDialog() = 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 È£Ãâ ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.txt")
        SetFont()
    End Sub

    Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) '
        WLog2(Auto_Log, "updatefont :  ", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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.DIV = 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 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]
        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

    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("ºÐ¸®»óÅ¿¡¼­´Â ¹øÈ£ÁöÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", 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) '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))
            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 GetPrintersName()
        WLog2(Auto_Log, "GetPrinterName()", "\ÁöÁß(ÄÉÀ̺í2)¼øÂ÷·Î±×.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()
    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
        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 Not String.IsNullOrEmpty(obj.MyText.Trim()) 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(Color.DarkKhaki) '//Àü°æ»öÀ¸·Î ºê·¯½¬¸¦ ¸¸µç´Ù.
                        Else
                            If rcnt > 0 Then '//´õ¹ÌÃâ·Â¿¡ÀÇÇÑ »ö±òº¯°æ
                                Brush = New SolidBrush(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() <> 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()
    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))
            '  MsgBox(CType(A, MyControlOLEDBv2.MyLabel).¼³¸í)
            CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò = CShort(Me.tb_wordwidth.Text)
        Next
        ViewProperty(SelCon(0))
        Me.preview_window()
    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).Àå³ôÀÌ = CShort(Me.tb_wordheight.Text)
        Next
        ViewProperty(SelCon(0))
        Me.preview_window()
    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()
    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()
    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() = 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 = Windows.Forms.MouseButtons.Right Then
                For Each obj As MyControlOLEDBv2.MyLabel In SelCon
                    If obj.Name = Tobj.Name Then    '//»èÁ¦µÈ´Ù.
                        obj.MyForeColor = Color.Black
                        SelCon.Remove(obj)
                        Exist = True
                        Exit For
                    End If
                Next
                If Exist = False Then
                    SelCon.Add(Tobj)
                    Tobj.MyForeColor = Color.Tomato
                End If
            ElseIf e.Button = Windows.Forms.MouseButtons.Left Then '¿ÞÂÊŬ¸®À̸é Áö¿ì°í ´Ù½Ã ¼ÂÆÃ
                For Each SC As MyControlOLEDBv2.MyLabel In SelCon
                    SC.MyForeColor = Color.Black
                Next
                SelCon.Clear()
                SelCon.Add(Tobj)
                Tobj.MyForeColor = 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.DIV = Tobj.DIV And Me.AllLabels(z).ctl.TextValue.Trim <> "" Then
                            Me.AllLabels(z).ctl.MyForeColor = 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 = Color.Black
        Next
        SelCon.Clear()
        SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
        AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = 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


    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

        DR = dtpattern.Select("NAME = '" & pname & "DESC'")
        If DR.GetUpperBound(0) = 0 Then '//±æÀÌÆÐÅÏÀÌ ÀÖÀ¸¸é
            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
            WLog2(Auto_Log, "¹®ÀÚÆÐÅϺÒÀÏÄ¡ ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & srcstr, 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 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("ºÐ¸®»óÅ¿¡¼­´Â ¹øÈ£ÁöÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", 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.X & "," & Rect.Width & "," & Rect.Height & "):" & I)
            I += 1
        Next

        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 = 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 = 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
                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
                Line.Height = Me.tb_dh.Text
                Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line
                'MsgBox("¹Ú½ºÀ籸¼º")
        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 <> 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 bcnt, lcnt, ccnt 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(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, "Circle" & 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
        Else   '//¿©±â´Â Àд ºÎºÐ
            Draw_Box.Clear()
            Draw_Line.Clear()
            Draw_Circle.Clear()

            bcnt = ini.Read(bname, "Count", 0)
            For i As Short = 1 To bcnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_Box
                L.PenColor = 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

            ccnt = ini.Read(cname, "Count", 0)
            For i As Short = 1 To ccnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_Circle
                L.PenColor = 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

            lcnt = ini.Read(lname, "Count", 0)
            For i As Short = 1 To lcnt '//¸ðµÎµ¹¾Æ¼­ ÀúÀåÇÑ´Ù.
                Dim L As New S_Line
                L.PenColor = 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

            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))
            End Select
            Me.Refresh_Drawlist()

        Catch ex As Exception
            MessageBox.Show("¼±Åà ÈÄ »èÁ¦°¡ °¡´ÉÇÕ´Ï´Ù.", "È®ÀÎ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ListBox1.Focus()
        End Try
    End Sub



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


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


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

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

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

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

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

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


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

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

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


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



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

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

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


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



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

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

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



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



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

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

    Private Sub ToolStripMenuItem75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem75.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.SS4SW¸í, Me.S4SW¸í.Length, "\º¯¾Ð±â°ü¸®±¸ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù
        SAVE_PATTERNII(Me.SS4SW¸í, Me.S4SW¸í, "\º¯¾Ð±âÀü»ê¹øÈ£ÆÐÅÏ.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_rep_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_rep.KeyUp
        If e.KeyCode = Keys.Enter Then
            If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0
            For Each A As Control In SelCon
                CType(A, MyLabel).Repeat = Me.tb_rep.Text
            Next
            Me.preview_window()
        End If
    End Sub

    Private Sub tb_repx_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repx.KeyUp
        If e.KeyCode = Keys.Enter Then
            If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0
            For Each A As Control In SelCon
                CType(A, MyLabel).RepeatX = Me.tb_repx.Text
            Next
            Me.preview_window()
        End If
    End Sub

    Private Sub tb_repy_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repy.KeyUp
        If e.KeyCode = Keys.Enter Then
            If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0
            For Each A As Control In SelCon
                CType(A, MyLabel).RepeatY = Me.tb_repy.Text
            Next
            Me.preview_window()
        End If
    End Sub

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

    Private Sub BT_HBDANJA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_HBDANJA.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.SHB´ÜÀÚ¸í, Me.HB´ÜÀÚ¸í.Length, "\º¯¾Ð±â°ü¸®±¸ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.SHB´ÜÀÚ¸í, Me.HB´ÜÀÚ¸í, "\º¯¾Ð±âÀü»ê¹øÈ£ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.()
    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 Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim NewLine As New S_Circle
        NewLine.PenColor = 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 ºñ°í1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ºñ°í1ToolStripMenuItem.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return
        End If
        ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\º¯¾Ð±â°ü¸®±¸ÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.Sºñ°í1, Me.ºñ°í1, "\ºñ°í1.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

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

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

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

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