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

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

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

    '//ÀÌ ½ºÆ®·°Ã³·Î ÄÞº¸¹Ú½º¸¦ °»½ÅÇϸç ÀÌ°ÍÀú°Í °Ë»öÇÒ¶§ »ç¿ëÇÑ´Ù.
    Dim AllLabels() As Str_Alllabels    '//Àüü°¹¼ö´Â Ãß°¡ÇÒ´ë ¼ÂÆÃÇÑ´Ù.
    Dim S°ü¸®±¸(4) As MyControlOLEDBv2.MyLabel
    Dim SÀü»ê¹øÈ£(2) As MyControlOLEDBv2.MyLabel
    Dim S¼±·Î¸í(10) As MyControlOLEDBv2.MyLabel
    Dim SÀüÁÖ¹øÈ£(30) As MyControlOLEDBv2.MyLabel
    Dim SÀϷùøÈ£(0) As MyControlOLEDBv2.MyLabel
    Dim S°ü¸®±¸Àü»êÈ­¹øÈ£ As MyControlOLEDBv2.MyLabel
    Dim sºñ°í1 As MyControlOLEDBv2.MyLabel
    Dim sºñ°í2 As MyControlOLEDBv2.MyLabel
    Dim sºñ°í3 As MyControlOLEDBv2.MyLabel
    Dim sºñ°í4 As MyControlOLEDBv2.MyLabel

    '//°¢°¢ÀÇ Çʵ尡 ÇÑÁٷκ¯Çؼ­ ÀÌ°÷¿¡ µé¾î°¡µµ·ÏÇÑ´Ù.
    Dim SDL11(1) As MyControlOLEDBv2.MyLabel
    Dim SDL12(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL13(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL14(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL15(1) As MyControlOLEDBv2.MyLabel

    Dim SDL21(1) As MyControlOLEDBv2.MyLabel
    Dim SDL22(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL23(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL24(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL25(1) As MyControlOLEDBv2.MyLabel

    Dim SDL31(1) As MyControlOLEDBv2.MyLabel
    Dim SDL32(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL33(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL34(1) As MyControlOLEDBv2.MyLabel
    'Dim SDL35(1) As MyControlOLEDBv2.MyLabel

    '//»ç¿ëÀÚ¹®ÀÚ
    Dim S»ç¿ëÀÚ1 As MyControlOLEDBv2.MyLabel 'U
    Dim S»ç¿ëÀÚ2 As MyControlOLEDBv2.MyLabel 'A
    Dim S»ç¿ëÀÚ3 As MyControlOLEDBv2.MyLabel 'B
    Dim S»ç¿ëÀÚ4 As MyControlOLEDBv2.MyLabel 'D
    Dim S»ç¿ëÀÚ5 As MyControlOLEDBv2.MyLabel 'E

    Dim °ü¸®±¸ As String = vbNullString
    Dim Àü»ê¹øÈ£ As String = vbNullString
    Dim ¼±·Î¸í As String = vbNullString
    Dim ¹øÈ£ As String = vbNullString

    Dim Dl11 As String = vbNullString
    Dim Dl12 As String = vbNullString
    'Dim Dl13 As String = vbNullString
    'Dim Dl14 As String = vbNullString
    'Dim Dl15 As String = vbNullString

    Dim Dl21 As String = vbNullString
    Dim Dl22 As String = vbNullString
    'Dim Dl23 As String = vbNullString
    'Dim Dl24 As String = vbNullString
    'Dim Dl25 As String = vbNullString

    Dim Dl31 As String = vbNullString
    Dim Dl32 As String = vbNullString
    'Dim Dl33 As String = vbNullString
    'Dim Dl34 As String = vbNullString
    'Dim Dl35 As String = vbNullString
    
    Dim ºñ°í1 As String
    Dim ºñ°í2 As String
    Dim ºñ°í3 As String
    Dim ºñ°í4 As String

    Dim ÀüÁÖ¹øÈ£ÇÑÁÙ As String = ""

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

    Dim SrcIdx As Integer = -1  '//¿øº» ¸®ºä¿¡¼­ Ŭ¸¯µÈ À妽º
    Dim Srcnum As Integer = -1  '//¿øº» ¸®ºå¿¡¼­ Ŭ¸¯µÈ ¹øÈ£°ª
    Dim Srcrow As ireaDataSet.Detail_kikiRow
    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 & "\styleKK")
    Public FileC As String = My.Application.Info.DirectoryPath & "\styleCK.ini" '//»ç¿ëÀÚ ½ºÅ¸ÀÏ ÆÄÀÏ

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

    Dim srcTable As ireaDataSet.Detail_kikiDataTable    '//µ¥ÀÌÅÍ°¡ ÀúÀåµÉ Å×À̺í
    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  '//½ÇÁ¦Ãâ·ÂÀ϶§´Â true À» °¡Áø´Ù.

    Public Sub New()
        InitializeComponent()
        AddLog(Admin, "New()", "\Alllog.txt")
    End Sub

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

    Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.dataview.Setting_Save(False, "printkiki", "\viewConfig\main_")
        AddLog(Admin, "Form_Closk", "\Alllog.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, "printkiki", "\viewConfig\main_")
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//´õºí¹öÆÛ¸µ
        AddLog(Admin, "Form_Load()", "\Alllog.txt")
        GetPrintersName()   '//ÇÁ¸°Å͸íÀ» °¡Á®¿É´Ï´Ù.
        Load_Setting()
        SetControls()   '//ÄÁÆ®·ÑÀ» ÃʱâÈ­ÇÏ°í ¼ÂÆÃÇÑ´Ù.
        Me.SETTOOLTIP()
        GetStyleList()  '//style.ini ¿¡¼­ ½ºÅ¸Àϸñ·Ï¸í¸¸ °¡Á®¿Â´Ù.

        If srcTable Is Nothing Then
            MsgBox("¿øº»µ¥ÀÌÅͼҽº°¡ Á¤ÀǵÇÁö ¾Ê¾Ò½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            AddLog(Admin, "°³¹ßÀÚ ±âº»¼ÂÆÃÀ¸·Î Àüȯ()", "\Alllog.txt")
            Common.Admin = True
            Me.NoView = True
            Admin = True
        End If

        AddLog(Admin, "°³¹ßÀÚ¸ðµå=" & Admin.ToString, "\Alllog.txt")
        If Admin Then   '//°³¹ßÀÚ¸ðµå´Â üũ¹Ú½º¸¦ »ç¿ëÇÒ¼ö ÀÖ°ÔÇÑ´Ù.
            showlog()
            For Each A As Control In Me.TabPage3.Controls
                If A.GetType.Name.ToUpper = "CHECKBOX" Then
                    A.Visible = True
                End If
            Next
        End If

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

        '//¿©±â¼­ Çà°ªÀ» ºÐ¼®Çؼ­ ÄÞº¸¹Ü¸¦ ¼ÂÆÃÇØÁØ´Ù; '//ÀüºÎ ¼ÂÆõÈÈÄ ÇØ´ç °ªÀ» ¶Ç ã¾Æ¾ß ÇÑ´Ù.
        Srcnum = Srcrow.¹øÈ£ ' Srcrow("¹øÈ£") 'srcTable.Rows(SrcIdx).Item("¹øÈ£")
        AddLog(Admin, "¼±ÅõǼ­ ³Ñ¿À¿Âµ¥ÀÌÅÍÀÇ ¹øÈ£¸¦ ã½À´Ï´Ù=" & Srcnum, "\Alllog.txt")

        If Srcrow.ȸ¼±10 <> "" AndAlso Srcrow.ȸ¼±20 <> "" AndAlso Srcrow.ȸ¼±30 <> "" Then
            AddLog(Admin, "3ȸ¼± ÆǺ°()", "\Alllog.txt")
            Me.cmb_style.Text = "±â±âÁÖ(3ȸ¼±)"  '//¿©±â¼­ µ¥ÀÌÅÍ°¡ °É·¯Áö°ÔµÈ´Ù.

        ElseIf Srcrow.ȸ¼±10 <> "" AndAlso Srcrow.ȸ¼±20 <> "" Then
            AddLog(Admin, "2ȸ¼± ÆǺ°()", "\Alllog.txt")
            Me.cmb_style.Text = "±â±âÁÖ(2ȸ¼±)"  '//¿©±â¼­ µ¥ÀÌÅÍ°¡ °É·¯Áö°ÔµÈ´Ù.

        ElseIf Srcrow.ȸ¼±10 <> "" Then
            AddLog(Admin, "1ȸ¼± ÆǺ°()", "\Alllog.txt")
            Me.cmb_style.Text = "±â±âÁÖ(1ȸ¼±)"  '//¿©±â¼­ µ¥ÀÌÅÍ°¡ °É·¯Áö°ÔµÈ´Ù.        
        Else
            AddLog(Admin, "±âŸȸ¼±À¸·Î¼ÂÆÃÇÑ´Ù.()", "\Alllog.txt")
            Me.cmb_style.Text = "±â±âÁÖ(Ç¥ÁØ¿ë)"  '//¿©±â¼­ µ¥ÀÌÅÍ°¡ °É·¯Áö°ÔµÈ´Ù.
        End If

        If Me.cmb_style.SelectedIndex = -1 Then
            Me.cmb_style.SelectedIndex = 0
        End If
    End Sub

    Private Sub SetControls()
        AddLog(Admin, "SetControls()", "\Alllog.txt")
        Dim CtlCnt As Short = 0

        For i As Integer = 0 To S°ü¸®±¸.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            S°ü¸®±¸(i) = New MyControlOLEDBv2.MyLabel
            S°ü¸®±¸(i).¼³¸í = "°ü¸®±¸" & i + 1
            S°ü¸®±¸(i).Name = "H" & i + 1
            S°ü¸®±¸(i).DIV = "H"
            S°ü¸®±¸(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = S°ü¸®±¸(i)
            Me.cmb_controls.Items.Add(S°ü¸®±¸(i).¼³¸í)
            CtlCnt += 1
        Next

        '//////////////////////////
        For i As Integer = 0 To SDL11.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SDL11(i) = New MyControlOLEDBv2.MyLabel
            SDL11(i).¼³¸í = "D/L 1ȸ¼±(1)" & i + 1
            SDL11(i).Name = "I" & i + 1
            SDL11(i).DIV = "I"
            SDL11(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SDL11(i)
            Me.cmb_controls.Items.Add(SDL11(i).¼³¸í)
            CtlCnt += 1
        Next

        For i As Integer = 0 To SDL12.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SDL12(i) = New MyControlOLEDBv2.MyLabel
            SDL12(i).¼³¸í = "D/L 1ȸ¼±(2)" & i + 1
            SDL12(i).Name = "C" & i + 1
            SDL12(i).DIV = "C"
            SDL12(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SDL12(i)
            Me.cmb_controls.Items.Add(SDL12(i).¼³¸í)
            CtlCnt += 1
        Next

        'For i As Integer = 0 To SDL13.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL13(i) = New MyControlOLEDBv2.MyLabel
        '    SDL13(i).¼³¸í = "D/L 1ȸ¼±(3)" & i + 1
        '    SDL13(i).Name = "PA" & i + 1
        '    SDL13(i).DIV = "PA"
        '    SDL13(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL13(i)
        '    Me.cmb_controls.Items.Add(SDL13(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        'For i As Integer = 0 To SDL14.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL14(i) = New MyControlOLEDBv2.MyLabel
        '    SDL14(i).¼³¸í = "D/L 1ȸ¼±(4)" & i + 1
        '    SDL14(i).Name = "PB" & i + 1
        '    SDL14(i).DIV = "PB"
        '    SDL14(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL14(i)
        '    Me.cmb_controls.Items.Add(SDL14(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        'For i As Integer = 0 To SDL15.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL15(i) = New MyControlOLEDBv2.MyLabel
        '    SDL15(i).¼³¸í = "D/L 1ȸ¼±(5)" & i + 1
        '    SDL15(i).Name = "PC" & i + 1
        '    SDL15(i).DIV = "PC"
        '    SDL15(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL15(i)
        '    Me.cmb_controls.Items.Add(SDL15(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        For i As Integer = 0 To SDL21.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SDL21(i) = New MyControlOLEDBv2.MyLabel
            SDL21(i).¼³¸í = "D/L 2ȸ¼±(1)" & i + 1
            SDL21(i).Name = "J" & i + 1
            SDL21(i).DIV = "J"
            SDL21(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SDL21(i)
            Me.cmb_controls.Items.Add(SDL21(i).¼³¸í)
            CtlCnt += 1
        Next

        For i As Integer = 0 To SDL22.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SDL22(i) = New MyControlOLEDBv2.MyLabel
            SDL22(i).¼³¸í = "D/L 2ȸ¼±(2)" & i + 1
            SDL22(i).Name = "F" & i + 1
            SDL22(i).DIV = "F"
            SDL22(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SDL22(i)
            Me.cmb_controls.Items.Add(SDL22(i).¼³¸í)
            CtlCnt += 1
        Next

        'For i As Integer = 0 To SDL23.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL23(i) = New MyControlOLEDBv2.MyLabel
        '    SDL23(i).¼³¸í = "D/L 2ȸ¼±(3)" & i + 1
        '    SDL23(i).Name = "QA" & i + 1
        '    SDL23(i).DIV = "QA"
        '    SDL23(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL23(i)
        '    Me.cmb_controls.Items.Add(SDL23(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        'For i As Integer = 0 To SDL24.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL24(i) = New MyControlOLEDBv2.MyLabel
        '    SDL24(i).¼³¸í = "D/L 2ȸ¼±(4)" & i + 1
        '    SDL24(i).Name = "QB" & i + 1
        '    SDL24(i).DIV = "QB"
        '    SDL24(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL24(i)
        '    Me.cmb_controls.Items.Add(SDL24(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        'For i As Integer = 0 To SDL25.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL25(i) = New MyControlOLEDBv2.MyLabel
        '    SDL25(i).¼³¸í = "D/L 2ȸ¼±(5)" & i + 1
        '    SDL25(i).Name = "QC" & i + 1
        '    SDL25(i).DIV = "QC"
        '    SDL25(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL25(i)
        '    Me.cmb_controls.Items.Add(SDL25(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        For i As Integer = 0 To SDL31.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SDL31(i) = New MyControlOLEDBv2.MyLabel
            SDL31(i).¼³¸í = "D/L 3ȸ¼±(1)" & i + 1
            SDL31(i).Name = "K" & i + 1
            SDL31(i).DIV = "K"
            SDL31(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SDL31(i)
            Me.cmb_controls.Items.Add(SDL31(i).¼³¸í)
            CtlCnt += 1
        Next

        For i As Integer = 0 To SDL32.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SDL32(i) = New MyControlOLEDBv2.MyLabel
            SDL32(i).¼³¸í = "D/L 3ȸ¼±(2)" & i + 1
            SDL32(i).Name = "M" & i + 1
            SDL32(i).DIV = "M"
            SDL32(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SDL32(i)
            Me.cmb_controls.Items.Add(SDL32(i).¼³¸í)
            CtlCnt += 1
        Next

        'For i As Integer = 0 To SDL33.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL33(i) = New MyControlOLEDBv2.MyLabel
        '    SDL33(i).¼³¸í = "D/L 3ȸ¼±(3)" & i + 1
        '    SDL33(i).Name = "RA" & i + 1
        '    SDL33(i).DIV = "RA"
        '    SDL33(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL33(i)
        '    Me.cmb_controls.Items.Add(SDL33(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        'For i As Integer = 0 To SDL34.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL34(i) = New MyControlOLEDBv2.MyLabel
        '    SDL34(i).¼³¸í = "D/L 3ȸ¼±(4)" & i + 1
        '    SDL34(i).Name = "RB" & i + 1
        '    SDL34(i).DIV = "RB"
        '    SDL34(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL34(i)
        '    Me.cmb_controls.Items.Add(SDL34(i).¼³¸í)
        '    CtlCnt += 1
        'Next

        'For i As Integer = 0 To SDL35.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
        '    SDL35(i) = New MyControlOLEDBv2.MyLabel
        '    SDL35(i).¼³¸í = "D/L 3ȸ¼±(5)" & i + 1
        '    SDL35(i).Name = "RC" & i + 1
        '    SDL35(i).DIV = "RC"
        '    SDL35(i).Visible = False
        '    ReDim Preserve AllLabels(CtlCnt)
        '    Me.AllLabels(CtlCnt).ctl = SDL35(i)
        '    Me.cmb_controls.Items.Add(SDL35(i).¼³¸í)
        '    CtlCnt += 1
        'Next
        '//////////////////////////

        For i As Integer = 0 To SÀü»ê¹øÈ£.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SÀü»ê¹øÈ£(i) = New MyControlOLEDBv2.MyLabel
            SÀü»ê¹øÈ£(i).¼³¸í = "Àü»ê¹øÈ£" & i + 1
            SÀü»ê¹øÈ£(i).Name = "S" & i + 1
            SÀü»ê¹øÈ£(i).DIV = "S"
            SÀü»ê¹øÈ£(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SÀü»ê¹øÈ£(i)
            Me.cmb_controls.Items.Add(SÀü»ê¹øÈ£(i).¼³¸í)
            CtlCnt += 1
        Next
        For i As Integer = 0 To S¼±·Î¸í.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            S¼±·Î¸í(i) = New MyControlOLEDBv2.MyLabel
            S¼±·Î¸í(i).¼³¸í = "¼±·Î¸í" & i + 1
            S¼±·Î¸í(i).Name = "L" & i + 1
            S¼±·Î¸í(i).DIV = "L"
            S¼±·Î¸í(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = S¼±·Î¸í(i)
            Me.cmb_controls.Items.Add(S¼±·Î¸í(i).¼³¸í)
            CtlCnt += 1
        Next
        For i As Integer = 0 To SÀüÁÖ¹øÈ£.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SÀüÁÖ¹øÈ£(i) = New MyControlOLEDBv2.MyLabel
            SÀüÁÖ¹øÈ£(i).¼³¸í = "ÀüÁÖ¹øÈ£" & i + 1
            SÀüÁÖ¹øÈ£(i).Name = "X" & i + 1
            SÀüÁÖ¹øÈ£(i).DIV = "X"
            SÀüÁÖ¹øÈ£(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SÀüÁÖ¹øÈ£(i)
            Me.cmb_controls.Items.Add(SÀüÁÖ¹øÈ£(i).¼³¸í)
            CtlCnt += 1
        Next

        For i As Integer = 0 To SÀϷùøÈ£.GetUpperBound(0)  '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            SÀϷùøÈ£(i) = New MyControlOLEDBv2.MyLabel
            SÀϷùøÈ£(i).¼³¸í = "ÀϷùøÈ£" & i + 1
            SÀϷùøÈ£(i).Name = "N" & i + 1
            SÀϷùøÈ£(i).DIV = "N"
            SÀϷùøÈ£(i).Visible = False
            ReDim Preserve AllLabels(CtlCnt)
            Me.AllLabels(CtlCnt).ctl = SÀϷùøÈ£(i)
            Me.cmb_controls.Items.Add(SÀϷùøÈ£(i).¼³¸í)
            CtlCnt += 1
        Next

        S»ç¿ëÀÚ1 = New MyControlOLEDBv2.MyLabel
        S»ç¿ëÀÚ1.¼³¸í = "»ç¿ëÀÚ¹®ÀÚ1"
        S»ç¿ëÀÚ1.MyText = ""
        S»ç¿ëÀÚ1.Name = "U"
        S»ç¿ëÀÚ1.DIV = "U"
        S»ç¿ëÀÚ1.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = S»ç¿ëÀÚ1
        Me.cmb_controls.Items.Add(S»ç¿ëÀÚ1.¼³¸í)
        CtlCnt += 1

        S»ç¿ëÀÚ2 = New MyControlOLEDBv2.MyLabel
        S»ç¿ëÀÚ2.¼³¸í = "»ç¿ëÀÚ¹®ÀÚ2"
        S»ç¿ëÀÚ2.Name = "A"
        S»ç¿ëÀÚ2.DIV = "A"
        S»ç¿ëÀÚ2.MyText = ""
        S»ç¿ëÀÚ2.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = S»ç¿ëÀÚ2
        Me.cmb_controls.Items.Add(S»ç¿ëÀÚ2.¼³¸í)
        CtlCnt += 1

        S»ç¿ëÀÚ3 = New MyControlOLEDBv2.MyLabel
        S»ç¿ëÀÚ3.¼³¸í = "»ç¿ëÀÚ¹®ÀÚ3"
        S»ç¿ëÀÚ3.Name = "B"
        S»ç¿ëÀÚ3.DIV = "B"
        S»ç¿ëÀÚ3.MyText = ""
        S»ç¿ëÀÚ3.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = S»ç¿ëÀÚ3
        Me.cmb_controls.Items.Add(S»ç¿ëÀÚ3.¼³¸í)
        CtlCnt += 1

        S»ç¿ëÀÚ4 = New MyControlOLEDBv2.MyLabel
        S»ç¿ëÀÚ4.¼³¸í = "»ç¿ëÀÚ¹®ÀÚ4"
        S»ç¿ëÀÚ4.Name = "D"
        S»ç¿ëÀÚ4.DIV = "D"
        S»ç¿ëÀÚ4.MyText = ""
        S»ç¿ëÀÚ4.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = S»ç¿ëÀÚ4
        Me.cmb_controls.Items.Add(S»ç¿ëÀÚ4.¼³¸í)
        CtlCnt += 1

        S»ç¿ëÀÚ5 = New MyControlOLEDBv2.MyLabel
        S»ç¿ëÀÚ5.¼³¸í = "»ç¿ëÀÚ¹®ÀÚ5"
        S»ç¿ëÀÚ5.Name = "E"
        S»ç¿ëÀÚ5.DIV = "E"
        S»ç¿ëÀÚ5.MyText = ""
        S»ç¿ëÀÚ5.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = S»ç¿ëÀÚ5
        Me.cmb_controls.Items.Add(S»ç¿ëÀÚ5.¼³¸í)
        CtlCnt += 1

        S°ü¸®±¸Àü»êÈ­¹øÈ£ = New MyControlOLEDBv2.MyLabel
        S°ü¸®±¸Àü»êÈ­¹øÈ£.¼³¸í = "°ü¸®±¸Àü»êÈ­¹øÈ£"
        S°ü¸®±¸Àü»êÈ­¹øÈ£.Name = "G"
        S°ü¸®±¸Àü»êÈ­¹øÈ£.DIV = "G"
        S°ü¸®±¸Àü»êÈ­¹øÈ£.MyText = ""
        S°ü¸®±¸Àü»êÈ­¹øÈ£.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = S°ü¸®±¸Àü»êÈ­¹øÈ£
        Me.cmb_controls.Items.Add(S°ü¸®±¸Àü»êÈ­¹øÈ£.¼³¸í)
        CtlCnt += 1

        sºñ°í1 = New MyControlOLEDBv2.MyLabel
        sºñ°í1.¼³¸í = "ºñ°í1"
        sºñ°í1.Name = "V"
        sºñ°í1.DIV = "V"
        sºñ°í1.MyText = ""
        sºñ°í1.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = sºñ°í1
        Me.cmb_controls.Items.Add(sºñ°í1.¼³¸í)
        CtlCnt += 1

        sºñ°í2 = New MyControlOLEDBv2.MyLabel
        sºñ°í2.¼³¸í = "ºñ°í2"
        sºñ°í2.Name = "W"
        sºñ°í2.DIV = "W"
        sºñ°í2.MyText = ""
        sºñ°í2.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = sºñ°í2
        Me.cmb_controls.Items.Add(sºñ°í2.¼³¸í)
        CtlCnt += 1

        sºñ°í3 = New MyControlOLEDBv2.MyLabel
        sºñ°í3.¼³¸í = "ºñ°í3"
        sºñ°í3.Name = "Y"
        sºñ°í3.DIV = "Y"
        sºñ°í3.MyText = ""
        sºñ°í3.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = sºñ°í3
        Me.cmb_controls.Items.Add(sºñ°í3.¼³¸í)
        CtlCnt += 1

        sºñ°í4 = New MyControlOLEDBv2.MyLabel
        sºñ°í4.¼³¸í = "ºñ°í4"
        sºñ°í4.Name = "Z"
        sºñ°í4.DIV = "Z"
        sºñ°í4.MyText = ""
        sºñ°í4.Visible = False
        ReDim Preserve AllLabels(CtlCnt)
        Me.AllLabels(CtlCnt).ctl = sºñ°í4
        Me.cmb_controls.Items.Add(sºñ°í4.¼³¸í)
        CtlCnt += 1
    End Sub

    Private Sub SETTOOLTIP()
        AddLog(Admin, "Settooltip()", "\Alllog.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("¿ÞÂÊŬ¸¯½Ã Çش簳ü¸¸ ¼±Åõ˴ϴÙ.")
        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("<È­¸í Áß¾ÓÀÇ 1/2 ¹Ì¸®º¸±â âÀÇ È°¼ºÈ­ ¿©ºÎ>")
        TMSG.AppendLine()
        TMSG.AppendLine("Ŭ¸¯ÇØÁ¦½Ã Áß¾Ó ¹Ì¸®º¸±â È­¸éÀÌ Ç¥½ÃµÇÁö ¾Ê½À´Ï´Ù")
        TMSG.AppendLine()
        'Me.ToolTip1.SetToolTip(Me.chb_preview, 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("<1Àå¿¡ µÎ¹øÀÇ µ¥ÀÌÅÍ°¡ Ç¥½ÃµË´Ï´Ù.>")
        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)
        AddLog(Admin, "°³Ã¼¸¦ ´õºíŬ¸¯Çß½À´Ï´Ù.(ÀÌ°ÍÀº »ç¿ëµÇÁö ¾ÊÀ½)", "\Alllog.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()
        AddLog(Admin, "ÇöÀç ¼³Á¤(½ºÅ¸ÀÏ)À» ÀúÀåÇÕ´Ï´Ù.", "\Alllog.txt")
        Dim A As New MyINI2(SettingFile)
        A.Write("PRINTFORM", "printername", Me.combobox5.Text)   '//ÆÐÅÏ°Ë»çÁ¶°Ç ÄÞº¸¹Ú½º      
    End Sub
    Private Sub Load_Setting()
        AddLog(Admin, "ÇöÀç¼³Á¤(½ºÅ¸ÀÏ)À» °¡Á®¿É´Ï´Ù.()", "\Alllog.txt")
        AddLog(Admin, "Load_Setting()", "\Alllog.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)

        AddLog(Admin, "GetviewData ÁøÀÔ()", "\Alllog.txt")
        'MsgBox("getview = " & index)

        If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then
            AddLog(Admin, "GetViewData : À妽º°¡ ¾ø°Å³ª ¹®Á¦°¡ Àվ ¸®ÅÏÇÕ´Ï´Ù.(" & index & ")", "\Alllog.txt")
            'MsgBox("GETVIEWDATA : µ¥ÀÌÅÍ°¡ ¾ø°Å³ª À߸øµÈ À妽º ÀÔ´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "È®ÀÎ")
            Return '//À߸øµÈ À妽º´Â ¸®ÅÏ
        End If

        Dim ÀüÁÖ¹øÈ£ÇÑÁÙ As String = ""

        °ü¸®±¸ = GetSpread(Me.Dv, index, "°ü¸®±¸")
        Àü»ê¹øÈ£ = GetSpread(Me.Dv, index, "ÀüÁÖ¹øÈ£")
        ¼±·Î¸í = GetSpread(Me.Dv, index, "¼±·Î¸í")
        ¹øÈ£ = GetSpread(Me.Dv, index, "¹øÈ£1") & GetSpread(Me.Dv, index, "¹øÈ£2") & GetSpread(Me.Dv, index, "¹øÈ£3") & GetSpread(Me.Dv, index, "¹øÈ£4") & GetSpread(Me.Dv, index, "¹øÈ£5")

        Dl11 = GetSpread(Me.Dv, index, "ȸ¼±11")
        Dl12 = GetSpread(Me.Dv, index, "ȸ¼±12")
        'Dl13 = GetSpread(Me.Dv, index, "ȸ¼±13")
        'Dl14 = GetSpread(Me.Dv, index, "ȸ¼±14")
        'Dl15 = GetSpread(Me.Dv, index, "ȸ¼±15")

        Dl21 = GetSpread(Me.Dv, index, "ȸ¼±21")
        Dl22 = GetSpread(Me.Dv, index, "ȸ¼±22")
        'Dl23 = GetSpread(Me.Dv, index, "ȸ¼±23")
        'Dl24 = GetSpread(Me.Dv, index, "ȸ¼±24")
        'Dl25 = GetSpread(Me.Dv, index, "ȸ¼±25")

        Dl31 = GetSpread(Me.Dv, index, "ȸ¼±31")
        Dl32 = GetSpread(Me.Dv, index, "ȸ¼±32")
        'Dl33 = GetSpread(Me.Dv, index, "ȸ¼±33")
        'Dl34 = GetSpread(Me.Dv, index, "ȸ¼±34")
        'Dl35 = GetSpread(Me.Dv, index, "ȸ¼±35")

        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")

        AddLog(Admin, "Complete : Load Data From Dataview", "\Alllog.txt")
        Me.Text = "±â±â¿ë¹øÈ£Âû Ãâ·ÂÀÛ¾÷(" & ¹øÈ£ & ")"

        AddLog(Admin, "PASE±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\Alllog.txt")
        AddLog(Admin, "ÆÐÅÏÀÌÀÖ´Â PASE ±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\Alllog.txt")

        If PARSE_°ü¸®±¸(°ü¸®±¸) Then Me.PARSE_°ü¸®±¸ÆÐÅÏ(°ü¸®±¸) '//¼±·Î¸íÀ» Çؼ®ÈÄ °¡Á®¿ÂÈÄ ÆÐÅϺм®ÈÄ Àû¿ë
        If PARSE_¼±·Î¸í(¼±·Î¸í) Then Me.PARSE_¼±·Î¸íÆÐÅÏ(¼±·Î¸í) '//¼±·Î¸íÀ» Çؼ®ÈÄ °¡Á®¿ÂÈÄ ÆÐÅϺм®ÈÄ Àû¿ë
        If PARSE_Àü»ê¹øÈ£(Àü»ê¹øÈ£) Then Me.PARSE_Àü»ê¹øÈ£ÆÐÅÏ(Àü»ê¹øÈ£) '//¼±·Î¸íÀ» Çؼ®ÈÄ °¡Á®¿ÂÈÄ ÆÐÅϺм®ÈÄ Àû¿ë  

        If PARSE_DL11(Dl11) Then Me.PARSE_DL11¸íÆÐÅÏ(Dl11) '/DL¸í Ãß°¡Çß´Ù.     
        If PARSE_DL12(Dl12) Then Me.PARSE_DL12¸íÆÐÅÏ(Dl12) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl13) Then Me.PARSE_DL13¸íÆÐÅÏ(Dl13) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl14) Then Me.PARSE_DL14¸íÆÐÅÏ(Dl14) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl15) Then Me.PARSE_DL15¸íÆÐÅÏ(Dl15) '/DL¸í Ãß°¡Çß´Ù.     

        If PARSE_DL21(Dl21) Then Me.PARSE_DL21¸íÆÐÅÏ(Dl21) '/DL¸í Ãß°¡Çß´Ù.     
        If PARSE_DL22(Dl22) Then Me.PARSE_DL22¸íÆÐÅÏ(Dl22) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl23) Then Me.PARSE_DL23¸íÆÐÅÏ(Dl23) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl24) Then Me.PARSE_DL24¸íÆÐÅÏ(Dl24) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl25) Then Me.PARSE_DL25¸íÆÐÅÏ(Dl25) '/DL¸í Ãß°¡Çß´Ù.     

        If PARSE_DL31(Dl31) Then Me.PARSE_DL31¸íÆÐÅÏ(Dl31) '/DL¸í Ãß°¡Çß´Ù.     
        If PARSE_DL32(Dl32) Then Me.PARSE_DL32¸íÆÐÅÏ(Dl32) '/DL¸í Ãß°¡Çß´Ù.   
        'If PARSE_DL12(Dl33) Then Me.PARSE_DL33¸íÆÐÅÏ(Dl33) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl34) Then Me.PARSE_DL34¸íÆÐÅÏ(Dl34) '/DL¸í Ãß°¡Çß´Ù.     
        'If PARSE_DL12(Dl35) Then Me.PARSE_DL35¸íÆÐÅÏ(Dl35) '/DL¸í Ãß°¡Çß´Ù.     

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

        AddLog(Admin, "±¸°ü¸®Àü»ê,ÀϷùøÈ£,°ü¸®Àü»êÇ¥½Ã¿©ºÎ¸¦ pase ÇÕ´Ï´Ù.()", "\Alllog.txt")
        '========================= ±âŸ =================================================
        '//ÀÌ·¯¸é Ç¥½ÃÇؾßÇÑ´Ù.
        'MsgBox(±¸°ü¸®Àü»ê)

        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 Me.CB_BIGO1.Checked Then
            Me.sºñ°í1.MyText = Me.ºñ°í1
            Me.sºñ°í1.Visible = True
        Else
            Me.sºñ°í1.Visible = False
        End If

        If Me.CB_BIGO2.Checked Then
            Me.sºñ°í2.MyText = Me.ºñ°í2
            Me.sºñ°í2.Visible = True
        Else
            Me.sºñ°í2.Visible = False
        End If

        If Me.CB_BIGO3.Checked Then
            Me.sºñ°í3.MyText = Me.ºñ°í3
            Me.sºñ°í3.Visible = True
        Else
            Me.sºñ°í3.Visible = False
        End If

        If Me.CB_BIGO4.Checked Then
            Me.sºñ°í4.MyText = Me.ºñ°í4
            Me.sºñ°í4.Visible = True
        Else
            Me.sºñ°í4.Visible = False
        End If

        If Me.cb_kwanjun.Checked Then
            Me.S°ü¸®±¸Àü»êÈ­¹øÈ£.MyText = Me.°ü¸®±¸ & "-" & Me.Àü»ê¹øÈ£
            Me.S°ü¸®±¸Àü»êÈ­¹øÈ£.Visible = True
        Else
            Me.S°ü¸®±¸Àü»êÈ­¹øÈ£.Visible = False
        End If

        AddLog(Admin, "»ç¿ëÀÚ¹®ÀÚÀÇ Ç¥½Ã¿©ºÎ¸¦ °áÁ¤ÇÕ´Ï´Ù.()", "\Alllog.txt")
        '»ç¿ëÀÚ¹®ÀÚÀÇ Ç¥½Ã¿©ºÎ u a b d e
        If Not Me.cb_u1.Checked Then Me.S»ç¿ëÀÚ1.Visible = False
        If Not Me.cb_u2.Checked Then Me.S»ç¿ëÀÚ2.Visible = False
        If Not Me.cb_u3.Checked Then Me.S»ç¿ëÀÚ3.Visible = False
        If Not Me.cb_u4.Checked Then Me.S»ç¿ëÀÚ4.Visible = False
        If Not Me.cb_u5.Checked Then Me.S»ç¿ëÀÚ5.Visible = False

        'ENDTIME = Now
        ' Me.Text = "°É¸°½Ã°£ = " & (ENDTIME - STARTTIME).ToString

        'ÈÞ ³¡³µ´Ù.......................................................
        AddLog(Admin, "Pewview À©µµ¿ì¸¦ ½ÇÇàÇÕ´Ï´Ù.()", "\Alllog.txt")
        'Me.preview_window()
        If previewWindow Then Me.preview_window()
    End Sub

    Public Function ChkNumPattern(ByVal index As Integer) As Int16
        AddLog(Admin, "¹øÈ£ÆÐÅÏÀ» üũÇÕ´Ï´Ù. int16À» ¹ÝȯÇÕ´Ï´Ù.()", "\Alllog.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(°Ë»ç¹øÈ£)

        '//¸ÕÀú¹®ÀÚ°¡ÀÖ´ÂÁö È®ÀÎÇÑ´Ù.
        'MsgBox(°Ë»ç¹øÈ£ & "/" & PATTERN)

        pname = "JJNUMPATTERNII" & PATTERN

        Dim Dr() As DataRow
        Dr = dtpattern.Select("NAME = '" & pname & "DESC'")
        AddLog(Admin, "¹®ÀÚÆÐÅÏÀÇ Á¸Àç¿©ºÎ = " & Dr.GetUpperBound(0) & ":" & pname, "\Alllog.txt")
        If Dr.GetUpperBound(0) <> -1 Then '//ÀÖ´Ù.
            retval += 2
            'addlog(admin, "°ü¸®±¸5¹ø ¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù (" & pname & "DESC" & ")", Log)
        End If

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

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

    Public Sub CLEAR_ITEM(ByVal DIV As String)
        AddLog(Admin, "Clear_item div=" & DIV, "\Alllog.txt")

        Select Case DIV.ToUpper
            Case "L"
                For i As Short = 0 To S¼±·Î¸í.GetUpperBound(0)
                    S¼±·Î¸í(i).MyText = ""
                    S¼±·Î¸í(i).Visible = False
                Next
            Case "H"
                For i As Short = 0 To S°ü¸®±¸.GetUpperBound(0)
                    S°ü¸®±¸(i).MyText = ""
                    S°ü¸®±¸(i).Visible = False
                Next
            Case "I"
                For i As Short = 0 To SDL11.GetUpperBound(0)
                    SDL11(i).MyText = ""
                    SDL11(i).Visible = False
                Next
            Case "C"
                For i As Short = 0 To SDL12.GetUpperBound(0)
                    SDL12(i).MyText = ""
                    SDL12(i).Visible = False
                Next

                'Case "PA"
                '    For i As Short = 0 To SDL13.GetUpperBound(0)
                '        SDL13(i).MyText = ""
                '        SDL13(i).Visible = False
                '    Next

                'Case "PB"
                '    For i As Short = 0 To SDL14.GetUpperBound(0)
                '        SDL14(i).MyText = ""
                '        SDL14(i).Visible = False
                '    Next

                'Case "PC"
                '    For i As Short = 0 To SDL15.GetUpperBound(0)
                '        SDL15(i).MyText = ""
                '        SDL15(i).Visible = False
                '    Next


            Case "J"
                For i As Short = 0 To SDL21.GetUpperBound(0)
                    SDL21(i).MyText = ""
                    SDL21(i).Visible = False
                Next
            Case "F"
                For i As Short = 0 To SDL22.GetUpperBound(0)
                    SDL22(i).MyText = ""
                    SDL22(i).Visible = False
                Next
                'Case "QA"
                '    For i As Short = 0 To SDL23.GetUpperBound(0)
                '        SDL23(i).MyText = ""
                '        SDL23(i).Visible = False
                '    Next
                'Case "QB"
                '    For i As Short = 0 To SDL24.GetUpperBound(0)
                '        SDL24(i).MyText = ""
                '        SDL24(i).Visible = False
                '    Next
                'Case "QC"
                '    For i As Short = 0 To SDL25.GetUpperBound(0)
                '        SDL25(i).MyText = ""
                '        SDL25(i).Visible = False
                '    Next


            Case "K"
                For i As Short = 0 To SDL31.GetUpperBound(0)
                    SDL31(i).MyText = ""
                    SDL31(i).Visible = False
                Next
            Case "M"
                For i As Short = 0 To SDL32.GetUpperBound(0)
                    SDL32(i).MyText = ""
                    SDL32(i).Visible = False
                Next

                'Case "RA"
                '    For i As Short = 0 To SDL33.GetUpperBound(0)
                '        SDL33(i).MyText = ""
                '        SDL33(i).Visible = False
                '    Next
                'Case "RB"
                '    For i As Short = 0 To SDL34.GetUpperBound(0)
                '        SDL34(i).MyText = ""
                '        SDL34(i).Visible = False
                '    Next
                'Case "RC"
                '    For i As Short = 0 To SDL35.GetUpperBound(0)
                '        SDL35(i).MyText = ""
                '        SDL35(i).Visible = False
                '    Next




            Case "X"
                For i As Short = 0 To SÀüÁÖ¹øÈ£.GetUpperBound(0)
                    SÀüÁÖ¹øÈ£(i).MyText = ""
                    SÀüÁÖ¹øÈ£(i).Visible = False
                Next
            Case "S"
                For i As Short = 0 To SÀü»ê¹øÈ£.GetUpperBound(0)
                    SÀü»ê¹øÈ£(i).MyText = ""
                    SÀü»ê¹øÈ£(i).Visible = False
                Next
            Case "N"
                For i As Short = 0 To SÀϷùøÈ£.GetUpperBound(0)
                    SÀϷùøÈ£(i).MyText = ""
                    SÀϷùøÈ£(i).Visible = False
                Next
            Case "G"
                Me.S°ü¸®±¸Àü»êÈ­¹øÈ£.MyText = ""
                Me.S°ü¸®±¸Àü»êÈ­¹øÈ£.Visible = False

            Case "U"
                Me.S»ç¿ëÀÚ1.MyText = ""
                Me.S»ç¿ëÀÚ1.Visible = False

            Case "A"
                Me.S»ç¿ëÀÚ2.MyText = ""
                Me.S»ç¿ëÀÚ2.Visible = False

            Case "B"
                Me.S»ç¿ëÀÚ3.MyText = ""
                Me.S»ç¿ëÀÚ3.Visible = False

            Case "D"
                Me.S»ç¿ëÀÚ4.MyText = ""
                Me.S»ç¿ëÀÚ4.Visible = False

            Case "E"
                Me.S»ç¿ëÀÚ5.MyText = ""
                Me.S»ç¿ëÀÚ5.Visible = False


            Case "V"
                Me.sºñ°í1.MyText = ""
                Me.sºñ°í1.Visible = False

            Case "W"
                Me.sºñ°í2.MyText = ""
                Me.sºñ°í2.Visible = False

            Case "Y"
                Me.sºñ°í3.MyText = ""
                Me.sºñ°í3.Visible = False

            Case "Z"
                Me.sºñ°í4.MyText = ""
                Me.sºñ°í4.Visible = False

            Case Else
                MsgBox("Clear_Item ¿¡ ¾Ë¼ö¾ø´Â ¹®ÀÚ ( " & DIV & ") ÀÔ´Ï´Ù")
        End Select

    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 µ¥ÀÌÅÍÅ×ÀÌºí°»½Å()
        AddLog(Admin, "µ¥ÀÌÅÍÅ×ÀÌºí °»½Å()", "\Alllog.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 '//¹üÀ§³»ÀÇ ÆäÀÌÁö¹øÈ£¿Í ÀÏÄ¡ÇÏ´Â ¹øÈ£¸¦ ã¾Æ¼­ ¹è¿­¿¡ ÇÒ´çÇÑ´Ù.
        AddLog(Admin, "Func(PrePare_Print) Àμâ¹øÈ£ ÇÒ´ç Áغñ", "\Alllog.txt")

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

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

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


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

        If Me.RadioButton1.Checked Then '//ÀüüÃâ·ÂÀ̹ǷΠ¹è¿­¿¡ ¸ðµç°ÍÀ» ¸®ÅÏÇÑ´Ù : ¸ðµçµ¥ÀÌÅÍÀÇ ·¹ÄÚµå À妽º¸¦ ÀúÀåÇÑ´Ù.
            '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()
        AddLog(Admin, "print_preview ¹Ì¸®º¸±â ¹öÆ°À» ´­·¶À»¶§´Ù.()", "\Alllog.txt")
        Me.PrintMode = False
        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

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

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

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

                        '   If Rect.Width = 0 OrElse Rect.Height = 0 Then
                        '        Ga.DrawImage(Image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY)
                        'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text))
                        'Else
                        '        Ga.DrawImage(Image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY, Rect.Width, Rect.Height)
                        'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                        'End If
                    Next
                Catch ex As Exception
                    MessageBox.Show(ex.ToString())
                End Try
            End If
        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
            AddLog(Admin, "print ¹Ù·Î Ãâ·ÂÀ» Ç϶ó´Â ¸í·ÉÀÌ´Ù()", "\Alllog.txt")
            Me.PrintMode = True
            If Me.Prepare_Print() Then
                pDoc.Print()
                GeTviewData(BindingSource1.Position, True) '   preview_window()
            Else
                MsgBox("ÀμⰡ´ÉÇÑ ¸ñ·ÏÀÌ ¾ø½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            End If
        Else
            NOTICE("ÀμⰡ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Drawing.Color.Tomato, Me.lb_msg)
        End If

    End Sub

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

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

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

        Me.tb_foncol.BackColor = sender.MyForeColor
        Me.cb_visible.Checked = sender.Visible

        Me.cb_bold.Checked = sender.MyFont.Bold
        'Me.cb_italic.Checked = sender.MyFont.Italic
        ' Me.cb_uline.Checked = sender.MyFont.Underline

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

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

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

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


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

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        Dim A As New OpenFileDialog
        AddLog(Admin, "ÆÄÀÏã±â ¹öÆ°ÀÌ Å¬¸¯µÊ", "\Alllog.txt")

        If System.IO.File.Exists(Me.tb_picfile.Text) Then
            A.FileName = Me.tb_picfile.Text
        Else
            A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg"
        End If
        If A.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Return
        Me.tb_picfile.Text = A.FileName
        Me.chk_DisplayBG.Checked = True
        Me.ViewBackImage() '//¹è°æÀÌ“GÇ¥½Ã

    End Sub

    Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short)
        AddLog(Admin, "ctrpos (¼±ÅÃµÈ °³Ã¼µéÀÇ À§Ä¡°ªÀ» º¯°æÇÕ´Ï´Ù)", "\Alllog.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

        AddLog(Admin, "ctrpos =[ preview È£ÃâÇÕ´Ï´Ù]", "\Alllog.txt")
        Me.preview_window()
        'Me.ViewProperty(sender)
    End Sub

    Private Sub ShowMsg(ByVal Message As String)
        AddLog(Admin, "showmsg ¸Þ¼¼Áö¸¦ º¸¿©ÁÝ´Ï´Ù =" & Message, "\Alllog.txt")
        Me.lb_msg.Text = "¢¹ " & Message & Space(1) & TimeOfDay.ToString
    End Sub

    Public Sub SetFont()   '//üũ¹Ú½º »óÅ¿¡µû¶ó¼­ ÆùÆ®¸¦ º¯°æÇÕ´Ï´Ù.
        AddLog(Admin, "set font üũ¹Ú½º »óÅ¿¡ µû¶ó¼­ ÆùÆ®¸¦ º¯°æÇÕ´Ï´Ù.", "\Alllog.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
        AddLog(Admin, "setfont = preview È£ÃâÇÕ´Ï´Ù.", "\Alllog.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
        AddLog(Admin, "½ºÅ¸ÀÏÄÞº¸¹Ú½º¿¡¼­ keyip ÀÌ °¨ÁöµÇ¾úÀ¸³ª ÇÚµéÀ» true ·Î Çعö¸°´Ù.", "\Alllog.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
        AddLog(Admin, "¡æ Change : Style Index...", "\Alllog.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)

        Dim AlphaPos As Short = 0

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

        If Dv.Count <= 0 Then '//µ¥ÀÌÅÍ°¡¾ø´Ù¸é
            MsgBox(Me.cmb_style.Text & "¿¡ ÇØ´çÇÏ´Â µ¥ÀÌÅÍ°¡Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù" & vbCrLf & vbCrLf & "´Ù¸¥ ½ºÅ¸ÀÏÀ» ¼±ÅÃÇϼ¼¿ä", MsgBoxStyle.Information, "È®ÀÎ")
            Me.PictureBox1.Refresh()
        Else
            AddLog(Admin, "FindData : Count = " & Dv.Count, "\Alllog.txt")
            Me.TB_Pattern_End.Text = Dv.Count - 1 '//ÆÐÅÏ°Ë»ç½Ã Á¾·áÄ«¿îÅÍÀÌ´Ù...
            Me.VScrollBar1.Minimum = 0  '//½ºÅ©·Ñ¹Ù°¡ Àß ¾È¿òÁ÷ÀδÙ.(Â÷ÈÄ¿¡ ¼öÁ¤¿ä¸Á)
            Me.VScrollBar1.Maximum = Dv.Count - 1
            Me.LOAD_STYLE()   '//½ºÅ¸ÀϺҷ¯¿À±â(¿©±â¼­ ¸ðµçÄÁÆ®·ÑÀÇ ±âº» À§Ä¡¿Í ±Û²ÃÀÌ °áÁ¤µÈ´Ù)

            Debug.Print("½ºÅ©·Ñ¹Ù°ª ¼³Á¤ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum)
            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


            If FirstIdx = 0 Then    '//Index is first
                AddLog(Admin, "View : First Record // Set = 0", "\Alllog.txt")
            Else    '//index is not first
                AddLog(Admin, "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

        'addlog(admin, "cmb_style selectindexchanged ¿¡¼­ preview ¸¦ È£ÃâÇÔ", "\Alllog.txt")
        'Me.preview_window()
    End Sub

    Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z")   '//ÀúÀåµÈ ½ºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù.     


        AddLog(Admin, "load_style : ½ºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù. div= " & Div, "\Alllog.txt")

        Dim pos(), font(), visible, mytext As String
        Dim Tobj As MyControlOLEDBv2.MyLabel
        Dim DR() As DataRow
        Dim idx As Integer = 0

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        Next

        If Div.ToUpper <> "Z" Then Return '//¸ðµçÅÛÀ̾ƴϴÙ
        AddLog(Admin, "load_style ±âº»°ª üũ¹Ú½ºµîÀÇ °ªÀ» ºÒ·¯¿Â´Ù. ÀÌ°ÍÀº ¸Ç÷¿¡¸¸ ºÒ·¯¿À¸é µÈ´Ù. ", "\Alllog.txt")

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

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



        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()
        AddLog(Admin, "iniÆÄÀÏ¿¡ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù. ", "\Alllog.txt")
        Dim Arinini As New MyINI2(drstyle.File)
        Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg"))

        Dim Tobj As MyControlOLEDBv2.MyLabel
        '//ÇöÀç ¼±ÅÃµÈ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù.
        If Me.cmb_style.SelectedIndex < 0 Then
            erp.SetError(Me.cmb_style, "ÀúÀåÇÒ ½ºÅ¸ÀÏÀÌ ¼±ÅõǾîÀÖÁö ¾Ê½À´Ï´Ù")
            NOTICE("½ºÅ¸ÀÏÀ» ¼±ÅÃÇϼ¼¿ä", Me.lb_msg)
            Return
        End If
        erp.SetError(Me.cmb_style, vbNullString)


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


        Dim Div As Char

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

            Tobj = Me.AllLabels(i).ctl
            Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height)
            Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj.ÀåÆò & "," & Tobj.Àå³ôÀÌ)
            Arinini.Write("STYLE", Tobj.Name & "visible", "true") '±âº»°ªÀ¸·Î Ç¥½Ã·Î Á¤Çسõ°í üũ¹Ú½º üũÇÑ´Ù.
            Arinini.Write("STYLE", Tobj.Name & "space", Tobj.°ø¹é)
            Select Case Tobj.Name.ToUpper.Substring(0, 1)
                Case "U", "A", "B", "D", "E"
                    Arinini.Write("STYLE", Tobj.Name & "mytext", TextEnc(Tobj.MyText))
            End Select

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

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

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

        'For Each B As Control In Me.TabPage1.Controls
        '    If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
        '        Arinini.Write("STYLE", B.Name.ToString, CType(B, System.Windows.Forms.CheckBox).Checked) 'A.Visible)
        '    End If
        'Next
        'For Each B As Control In Me.TabPage3.Controls
        '    If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũ¹Ú½º¶ó¸é ű׸¦ ÀúÀåÇÑ´Ù.
        '        Arinini.Write("STYLE", B.Name.ToString, CType(B, System.Windows.Forms.CheckBox).Checked) 'A.Visible)
        '    End If
        'Next
        f.Label1.Text = String.Format("½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù" + vbCrLf + "ÀϹÝÁ¤º¸")
        f.Show()
        Application.DoEvents()

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

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

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

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

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

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


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

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

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

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

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

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

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


        SaveReadLayOut(False)

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

        Me.SaveDrawData(False)
        NOTICE("±âº»½ºÅ¸ÀÏÀ» ÀúÀåÇß½À´Ï´Ù", Me.lb_msg)
        AddLog(Admin, "save style ¿Ï·áÈÄ µ¥ÀÌÅÍÅ×ÀÌºí °»½ÅÀ» È£­„ ", "\Alllog.txt")

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


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



    Public Sub SAVE_PATTERNII(ByVal SRCSTR As String, ByVal MIDNAME As String, ByVal DIV As Char, 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 TOBJ As MyControlOLEDBv2.MyLabel
        Dim Pname As String = MIDNAME & mb.ToString



        AddLog(Admin, " save_pattern2 ¸¦ ½ÇÇàÇÑ´Ù.", "\Alllog.txt")

        Select Case DIV.ToString.ToUpper

            Case "L"    '//¼±·Î¸í
                For i As Integer = 0 To Me.S¼±·Î¸í.GetUpperBound(0)
                    TOBJ = Me.S¼±·Î¸í(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
            Case "I"    '//dl¸í
                For i As Integer = 0 To Me.SDL11.GetUpperBound(0)
                    TOBJ = Me.SDL11(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
            Case "C"    '//dl¸í
                For i As Integer = 0 To Me.SDL12.GetUpperBound(0)
                    TOBJ = Me.SDL12(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next

                'Case "PA"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL13.GetUpperBound(0)
                '        TOBJ = Me.SDL13(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next
                'Case "PB"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL14.GetUpperBound(0)
                '        TOBJ = Me.SDL14(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next
                'Case "PC"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL15.GetUpperBound(0)
                '        TOBJ = Me.SDL15(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next


            Case "J"    '//dl¸í
                For i As Integer = 0 To Me.SDL21.GetUpperBound(0)
                    TOBJ = Me.SDL21(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
            Case "F"    '//dl¸í
                For i As Integer = 0 To Me.SDL22.GetUpperBound(0)
                    TOBJ = Me.SDL22(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
                'Case "QA"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL23.GetUpperBound(0)
                '        TOBJ = Me.SDL23(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next
                'Case "QB"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL24.GetUpperBound(0)
                '        TOBJ = Me.SDL24(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next
                'Case "QC"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL25.GetUpperBound(0)
                '        TOBJ = Me.SDL25(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next



            Case "K"    '//dl¸í
                For i As Integer = 0 To Me.SDL31.GetUpperBound(0)
                    TOBJ = Me.SDL31(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
            Case "M"    '//dl¸í
                For i As Integer = 0 To Me.SDL32.GetUpperBound(0)
                    TOBJ = Me.SDL32(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
                'Case "RA"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL33.GetUpperBound(0)
                '        TOBJ = Me.SDL33(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next
                'Case "RB"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL34.GetUpperBound(0)
                '        TOBJ = Me.SDL34(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next
                'Case "RC"    '//dl¸í
                '    For i As Integer = 0 To Me.SDL35.GetUpperBound(0)
                '        TOBJ = Me.SDL35(i)
                '        AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                '        Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                '        AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                '    Next



            Case "X"    '//ÀüÁÖ¹øÈ£
                For i As Integer = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
                    TOBJ = Me.SÀüÁÖ¹øÈ£(i)
                    AddLog(Admin, MIDNAME & "ÆÐÅÏÀúÀå½Ã ¾ÆÀÌÅÛ=" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME)
                    Arinini.Write(Pname, "DESC", "ÀúÀåµÈ ¹®ÀÚÆÐÅÏ " & MIDNAME)
                    AddLog(Admin, "ÃÖÁ¾¼±ÅÿϷá=" & 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.°ø¹é)
                Next
                Arinini.Write(Pname, "LineType", Me.tb_ntype.Text)
                Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex)
            Case Else
                MsgBox("Save_PatternII ¿¡ Á¤ÀǵÇÁö¾ÊÀº ¹®ÀÚ(" & DIV & ") °¡ ¹ß»ýÇÏ¿´½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
        End Select

        AddLog(Admin, "save_patter2 ¤Ä¼­ µ¥ÀÌÅÍÅ×ÀÌºí °»½ÅÀ» ¤¾È£ÃâÇÑ´Ù¤Ó¤Ó ", "\Alllog.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
        AddLog(Admin, "°³Ã¼¸ñ·Ï ÄÞº¸¹Ú½º¿¡¼­ ƯÁ¤ °³Ã¼°¡ ¼±ÅõǾú´Ù view property È£Ãâ", "\Alllog.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
        AddLog(Admin, "Ç¥½Ã üũ¹Ú½º ¼±Åà ", "\Alllog.txt")
        For Each a As Control In SelCon
            a.Visible = Me.cb_visible.Checked
        Next
        AddLog(Admin, "[Ç¥½Ã] üũ¹Ú½º ¼±Åÿ¡¼­ pewview¸¦ È£Ãâ ", "\Alllog.txt")
        Me.preview_window()
    End Sub

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

    Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged
        AddLog(Admin, "±Û¾¾…B°Ô ¼±ÅÃµÊ setfont È£Ãâ ", "\Alllog.txt")
        SetFont()
    End Sub

    Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) '
        AddLog(Admin, "updatefont :  ", "\Alllog.txt")
        Dim A As Font
        For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon
            A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point)
            Tobj.MyFont = A
        Next
        Me.SetFont()
    End Sub


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

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

        Me.preview_window()
    End Sub

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

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            Tobj = Me.AllLabels(i).ctl
            Try
                If Div.ToUpper = "Z" Then '//¸ðµç¾ÆÀÌÅÛÀ» °¡Á®¿À°í
                    pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",")
                    font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",")
                    visible = Arinini.Read(StyleName, Tobj.Name & "visible")
                    '//»óŸ¦ Àо ¹Ù·Î Àû¿ëÇÑ´Ù.
                    Tobj.Location = New Point(pos(0), pos(1))
                    Tobj.Size = New Size(pos(2), pos(3))
                    Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                    Tobj.ÀåÆò = font(5)
                    Tobj.Àå³ôÀÌ = font(6)
                    Tobj.°ø¹é = Arinini.Read(StyleName, Tobj.Name & "space", 0)
                    Tobj.Visible = CType(visible, Boolean)
                Else 'ÀÌ°÷¿¡ O°¡¿Ã°ÍÀÌ´Ù.
                    If Tobj.Name.ToUpper.Substring(0, 1) = Div Then
                        pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",")
                        font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",")
                        visible = Arinini.Read(StyleName, Tobj.Name & "visible")
                        '//»óŸ¦ Àо ¹Ù·Î Àû¿ëÇÑ´Ù.
                        Tobj.Location = New Point(pos(0), pos(1))
                        Tobj.Size = New Size(pos(2), pos(3))
                        Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        Tobj.ÀåÆò = font(5)
                        Tobj.Àå³ôÀÌ = font(6)
                        Tobj.°ø¹é = Arinini.Read(StyleName, Tobj.Name & "space", 0)
                        Tobj.Visible = CType(visible, Boolean)
                    End If
                End If
            Catch ex As Exception
                AddLog(Admin, "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.TB_Pattern_Start.Text To Me.TB_Pattern_End.Text
            '  If chkFlag Then Exit For
            showcnt(i, Me.TB_Pattern_End.Text)

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

            If ¹øÈ£ÆÐÅÏ°Ë»ç = 0 Then    '0Àº µÑ´Ù ¾ø´Ù´Â ¶æÀÌ´Ù // 3Àº.. ¹®ÀÚ¿Í ±æÀÌ°¡ µ¿½Ã¿¡ Á¸ÀçÇÑ´Ù´Â ¶æÀÌ´Ù.
                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.TB_Pattern_Start.Text = Me.TB_Pattern_End.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) As Boolean
        'Me.CLEAR_ITEM("X")

        Dim Log As String = "\Parse_¹øÈ£.txt"
        If srcsTR = "" OrElse Not Me.cb_jjnum.Checked Then
            Me.CLEAR_ITEM("X")
            AddLog(Admin, "¹øÈ£¿¡´ëÇÑ ³»¿ëÀÌ ¾ø°Å³ª ¹øÈ£¸¦ Ç¥½ÃÇÏÁö ¾Êµµ·Ï üũµÇ¾îÀÖ½À´Ï´Ù", Log)
            Return False
        End If

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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


    End Function

    Private Function SetXdata(ByVal idx As Short, ByRef Src() As Char) As MyControlOLEDBv2.MyLabel
        If idx > Src.GetUpperBound(0) Then Return Nothing
        Dim A As MyControlOLEDBv2.MyLabel = Me.SÀüÁÖ¹øÈ£(0)

        For i As Integer = 0 To Me.SÀüÁÖ¹øÈ£.GetUpperBound(0)
            If Me.SÀüÁÖ¹øÈ£(i).MyText = "" Then
                Me.SÀüÁÖ¹øÈ£(i).MyText = Src(idx)
                If i = 11 Then
                    A = Nothing
                Else
                    A = Me.SÀüÁÖ¹øÈ£(i + 1)
                End If
                Exit For
            End If
        Next
        Return A
    End Function
    Private Function GetnextCtl(ByVal currCtl As MyControlOLEDBv2.MyLabel) As MyControlOLEDBv2.MyLabel
        Dim a As MyControlOLEDBv2.MyLabel = Nothing
        Select Case currCtl.Name.ToUpper
            Case "X1"
                a = Me.SÀüÁÖ¹øÈ£(1) ' X2
            Case "X2"
                a = Me.SÀüÁÖ¹øÈ£(2) 'X3
            Case "X3"
                a = Me.SÀüÁÖ¹øÈ£(3) 'x4
            Case "X4"
                a = Me.SÀüÁÖ¹øÈ£(4) 'x5
            Case "X5"
                a = Me.SÀüÁÖ¹øÈ£(5) ' x6
            Case "X6"
                a = Me.SÀüÁÖ¹øÈ£(6) 'x7
            Case "X7"
                a = Me.SÀüÁÖ¹øÈ£(7) ' x8
            Case "X8"
                a = Me.SÀüÁÖ¹øÈ£(8) 'x9
            Case "X9"
                a = Me.SÀüÁÖ¹øÈ£(9) 'x10
            Case "X10"
                a = Me.SÀüÁÖ¹øÈ£(10) ' x11
            Case "X11"
                a = Me.SÀüÁÖ¹øÈ£(11) 'x12
            Case "X12"
                a = Me.SÀüÁÖ¹øÈ£(12) 'X13
            Case "X13"
                a = Me.SÀüÁÖ¹øÈ£(13) 'x14
            Case "X14"
                a = Me.SÀüÁÖ¹øÈ£(14) 'x15
            Case "X15"
                a = Me.SÀüÁÖ¹øÈ£(15) ' x16
            Case "X16"
                a = Me.SÀüÁÖ¹øÈ£(16) 'x17
            Case "X17"
                a = Me.SÀüÁÖ¹øÈ£(17) ' x18
            Case "X18"
                a = Me.SÀüÁÖ¹øÈ£(18) 'x19
            Case "X19"
                a = Me.SÀüÁÖ¹øÈ£(19) 'x20
            Case "X20"
                a = Me.SÀüÁÖ¹øÈ£(20) ' x21
            Case "X21"
                a = Me.SÀüÁÖ¹øÈ£(21) 'x12
            Case "X22"
                a = Me.SÀüÁÖ¹øÈ£(22) 'X13
            Case "X23"
                a = Me.SÀüÁÖ¹øÈ£(23) 'x14
            Case "X24"
                a = Me.SÀüÁÖ¹øÈ£(24) 'x15
            Case "X25"
                a = Me.SÀüÁÖ¹øÈ£(25) ' x16
            Case "X26"
                a = Me.SÀüÁÖ¹øÈ£(26) 'x17
            Case "X27"
                a = Me.SÀüÁÖ¹øÈ£(27) ' x18
            Case "X28"
                a = Me.SÀüÁÖ¹øÈ£(28) 'x19
            Case "X29"
                a = Me.SÀüÁÖ¹øÈ£(29) 'x20
            Case "X30"
                a = Me.SÀüÁÖ¹øÈ£(30) ' x21
            Case Else
                a = Nothing
        End Select
        Return a
    End Function
    Private Sub ¹øÈ£Çü½ÄÁöÁ¤(Optional ByVal msg As String = "999")
        'MsgBox("¹øÈ£Çü½ÄÁöÁ¤ : " & ¹øÈ£, MsgBoxStyle.Information, msg)
        '//ÁöÁ¤µÈ ¹øÈ£Çü½ÄÀ¸·Î ÀüºÎ¹øÈ£¸¦ Ç¥½ÃÇÑ´Ù.
        '//20070826 ¹øÈ£´Â ºÐ¸®/ÅëÇÕÀ¸·Î ±¸ºÐÇؼ­ Ãâ·ÂÇÑ´Ù.
        Dim A() As Char = ¹øÈ£.ToCharArray
        Dim P() As String
        If msg.IndexOf(",") = -1 Then '//±¸¹öÁ¯ 140702
            Dim pp As New List(Of String)
            For Each cc As Char In msg.ToCharArray
                pp.Add(cc)
            Next
            P = pp.ToArray()
        Else
            P = msg.Split(",")
        End If

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

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

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

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

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

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

    Public Function PARSE_°ü¸®±¸(ByVal srcstr As String) As Boolean
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        ' MsgBox("PARSET_°ü¸®±¸")
        Me.CLEAR_ITEM("H")
        Dim Log As String = "\Parse_°ü¸®±¸.txt"
        If srcstr = "" OrElse Not Me.cb_kwang.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        For i As Integer = 0 To Wlen - 1   '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            Try
                S°ü¸®±¸(i).MyText = SRC(i).ToString
                S°ü¸®±¸(i).Visible = True
            Catch ex As Exception
                Exit For
            End Try
            'S°ü¸®±¸(i) = New MyControlOLEDBv2.MyLabel

            ' MsgBox(S°ü¸®±¸(i).MyText)

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

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

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

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

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

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

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

    Public Function PARSE_DL11(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("I")
        Dim Log As String = "\Parse_DL11¸í.txt"
        If srcstr = "" OrElse Not Me.cb_dl1.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If
        AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        Me.SDL11(0).MyText = Me.Dl11
        Me.SDL11(0).Visible = True


        Return True
    End Function
    Public Function PARSE_DL12(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("C")
        Dim Log As String = "\Parse_DL12¸í.txt"
        If srcstr = "" OrElse Not Me.cb_dl1.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If
        AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        Me.SDL12(0).MyText = Me.Dl12
        Me.SDL12(0).Visible = True

        Return True
    End Function
    'Public Function PARSE_DL13(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("C")
    '    Dim Log As String = "\Parse_DL13¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl1.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL13(0).MyText = Me.Dl13
    '    Me.SDL13(0).Visible = True

    '    Return True
    'End Function
    'Public Function PARSE_DL14(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("C")
    '    Dim Log As String = "\Parse_DL14¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl1.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL14(0).MyText = Me.Dl14
    '    Me.SDL14(0).Visible = True

    '    Return True
    'End Function
    'Public Function PARSE_DL15(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("C")
    '    Dim Log As String = "\Parse_DL15¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl1.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL15(0).MyText = Me.Dl15
    '    Me.SDL15(0).Visible = True

    '    Return True
    'End Function

    Public Sub PARSE_DL11¸íÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_dl11¸íÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "DL11PATTERN" & Wlen
        'Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "I", SDL11)

        Pname = "DL11PATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL11)

    End Sub
    Public Sub PARSE_DL12¸íÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_dl12¸íÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "DL12PATTERN" & Wlen
        ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "C", SDL12)

        Pname = "DL12PATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL12)

    End Sub
    'Public Sub PARSE_DL13¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl13¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL13PATTERN" & Wlen
    '    ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "C", SDL12)

    '    Pname = "DL13PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL13)

    'End Sub
    'Public Sub PARSE_DL14¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl14¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL14PATTERN" & Wlen
    '    ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "C", SDL12)

    '    Pname = "DL14PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL14)

    'End Sub
    'Public Sub PARSE_DL15¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl15¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL15PATTERN" & Wlen
    '    ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "C", SDL12)

    '    Pname = "DL15PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL15)

    'End Sub

    Public Function PARSE_DL21(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("J")
        Dim Log As String = "\Parse_DL21¸í.txt"
        If srcstr = "" OrElse Not Me.cb_dl2.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If
        AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        Me.SDL21(0).MyText = Me.Dl21
        Me.SDL21(0).Visible = True

        Return True
    End Function
    Public Function PARSE_DL22(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("F")
        Dim Log As String = "\Parse_DL22¸í.txt"
        If srcstr = "" OrElse Not Me.cb_dl2.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If
        AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        Me.SDL22(0).MyText = Me.Dl22
        Me.SDL22(0).Visible = True

        Return True
    End Function
    'Public Function PARSE_DL23(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("F")
    '    Dim Log As String = "\Parse_DL23¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl2.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL23(0).MyText = Me.Dl23
    '    Me.SDL23(0).Visible = True

    '    Return True
    'End Function
    'Public Function PARSE_DL24(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("F")
    '    Dim Log As String = "\Parse_DL24¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl2.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL24(0).MyText = Me.Dl24
    '    Me.SDL24(0).Visible = True

    '    Return True
    'End Function
    'Public Function PARSE_DL25(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("F")
    '    Dim Log As String = "\Parse_DL25¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl2.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL25(0).MyText = Me.Dl25
    '    Me.SDL25(0).Visible = True

    '    Return True
    'End Function

    Public Sub PARSE_DL21¸íÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_dl2¸íÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "DL21PATTERN" & Wlen
        '   Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "J", SDL21)

        Pname = "DL21PATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL21)

    End Sub
    Public Sub PARSE_DL22¸íÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_dl2¸íÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "DL22PATTERN" & Wlen
        'Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "F", SDL22)

        Pname = "DL22PATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL22)

    End Sub
    'Public Sub PARSE_DL23¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl23¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL23PATTERN" & Wlen
    '    'Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "F", SDL22)

    '    Pname = "DL23PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL23)

    'End Sub
    'Public Sub PARSE_DL24¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl24¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL24PATTERN" & Wlen
    '    'Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "F", SDL22)

    '    Pname = "DL24PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL24)

    'End Sub
    'Public Sub PARSE_DL25¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl25¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL25PATTERN" & Wlen
    '    'Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "F", SDL22)

    '    Pname = "DL25PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL25)

    'End Sub

    Public Function PARSE_DL31(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("K")
        Dim Log As String = "\Parse_DL31¸í.txt"
        If srcstr = "" OrElse Not Me.cb_dl3.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If
        AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        Me.SDL31(0).MyText = Me.Dl31
        Me.SDL31(0).Visible = True
        Return True
    End Function
    Public Function PARSE_DL32(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("M")
        Dim Log As String = "\Parse_DL32¸í.txt"
        If srcstr = "" OrElse Not Me.cb_dl3.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If
        AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        Me.SDL32(0).MyText = Me.Dl32
        Me.SDL32(0).Visible = True
        Return True
    End Function
    'Public Function PARSE_DL33(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("M")
    '    Dim Log As String = "\Parse_DL33¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl3.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL33(0).MyText = Me.Dl33
    '    Me.SDL33(0).Visible = True
    '    Return True
    'End Function
    'Public Function PARSE_DL34(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("M")
    '    Dim Log As String = "\Parse_DL34¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl3.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL34(0).MyText = Me.Dl34
    '    Me.SDL34(0).Visible = True
    '    Return True
    'End Function
    'Public Function PARSE_DL35(ByVal srcstr As String) As Boolean
    '    Me.CLEAR_ITEM("M")
    '    Dim Log As String = "\Parse_DL35¸í.txt"
    '    If srcstr = "" OrElse Not Me.cb_dl3.Checked Then
    '        AddLog(Admin, "Zero Length - Return", Log)
    '        Return False
    '    End If
    '    AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log)

    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")

    '    AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

    '    Me.SDL35(0).MyText = Me.Dl35
    '    Me.SDL35(0).Visible = True
    '    Return True
    'End Function

    Public Sub PARSE_DL31¸íÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_dl31¸íÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "DL31PATTERN" & Wlen
        ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "K", SDL31)

        Pname = "DL31PATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL31)

    End Sub
    Public Sub PARSE_DL32¸íÆÐÅÏ(ByVal srcstr As String)
        Dim Log As String = "\Parse_dl32¸íÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "DL32PATTERN" & Wlen
        ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "M", SDL32)

        Pname = "DL32PATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL32)

    End Sub
    'Public Sub PARSE_DL33¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl33¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL33PATTERN" & Wlen
    '    ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "M", SDL32)

    '    Pname = "DL33PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL33)

    'End Sub
    'Public Sub PARSE_DL34¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl34¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL34PATTERN" & Wlen
    '    ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "M", SDL32)

    '    Pname = "DL34PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL34)

    'End Sub
    'Public Sub PARSE_DL35¸íÆÐÅÏ(ByVal srcstr As String)
    '    Dim Log As String = "\Parse_dl35¸íÆÐÅÏ.txt"
    '    Dim Wlen As Short = srcstr.Length
    '    Dim SepPos As Short = srcstr.IndexOf(";")
    '    Dim SrC() As Char = srcstr.ToCharArray

    '    Dim Pname As String = "DL35PATTERN" & Wlen
    '    ' Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "M", SDL32)

    '    Pname = "DL35PATTERNII" & PATTERN_ENC(srcstr)
    '    Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SDL35)

    'End Sub

    Public Function PARSE_Àü»ê¹øÈ£(ByVal srcstr As String) As Boolean
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        Me.CLEAR_ITEM("S")
        Dim Log As String = "\Parse_Àü»ê¹øÈ£.txt"
        If srcstr = "" OrElse Not Me.cb_kwang.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        For i As Integer = 0 To Wlen - 1   '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            Try
                SÀü»ê¹øÈ£(i).MyText = SRC(i).ToString
            Catch ex As Exception
                Exit For
            End Try

            'MsgBox("Àü»ê¹øÈ£=" & SÀü»ê¹øÈ£(i).MyText)
        Next
        Return True
    End Function
    Public Sub PARSE_Àü»ê¹øÈ£ÆÐÅÏ(ByVal srcstr As String)

        Dim Log As String = "\Parse_Àü»ê¹øÈ£ÆÐÅÏ.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "JNUMPATTERN" & Wlen
        '  Me.±æÀÌÆÐÅÏ¿¬½À(srcstr, Pname, Log, "S", SÀü»ê¹øÈ£)

        Pname = "JNUMPATTERNII" & PATTERN_ENC(srcstr)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(srcstr, Pname, Log, SÀü»ê¹øÈ£)
    End Sub

    Public Sub PARSE_¼±·Î¸íÆÐÅÏ(ByVal Srcstr As String)
        Dim Log As String = "\Parse_¼±·Î¸íÆÐÅÏ.txt"
        Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return
        Dim Src() As Char = Srcstr.ToCharArray
        Dim SepPos As Short = Srcstr.IndexOf(";")

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

        ' Me.±æÀÌÆÐÅÏ¿¬½À(Srcstr, Pname, Log, "L", S¼±·Î¸í)
        '//ÆÐÅÏ1ÀÌ ³¡³µ´Ù ÆÐÅÏ2¸¦ ã´Â´Ù.
        '//ÆÐÅÏ2´Â style1LInepatternII¹®ÀÚ¼ýÀÚÇü½Ä
        Pname = "LINEPATTERNII" & PATTERN_ENC(¼±·Î¸í)
        Me.¹®ÀÚÆÐÅÏ¿¬½À(Srcstr, Pname, Log, Me.S¼±·Î¸í)


    End Sub
    Public Function PARSE_¼±·Î¸í(ByVal srcstr As String) As Boolean
        Me.CLEAR_ITEM("L")
        '/¼±·Î¸íÀÇ ±æÀÌ´Â ¿¹ÃøµÇÁö ¾Ê´Â´Ù µ¿Àû ÄÁÆ®·Ñ »ý¼ºÀ» »ç¿ëÇÑ´Ù.
        Dim Log As String = "\Parse_¼±·Î¸í.txt"
        If srcstr = "" OrElse Not Me.cb_sunglo.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If

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

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)

        For i As Integer = 0 To Wlen - 1   '//¸ðµç¹®ÀÚ¸¦ ÇÒ´çÇÑ´Ù.
            Try
                If SRC(i) = ";" Then
                    S¼±·Î¸í(i).MyText = "---"

                End If
                Select Case SRC(i)
                    Case ";"
                        S¼±·Î¸í(i).MyText = "---"
                    Case ":"
                        S¼±·Î¸í(i).MyText = ""
                    Case Else
                        S¼±·Î¸í(i).MyText = SRC(i)
                End Select
                S¼±·Î¸í(i).Visible = True
            Catch ex As Exception
                Exit For
            End Try

        Next
        Return True
    End Function

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

    Private Sub GetPrintersName()
        AddLog(Admin, "GetPrinterName()", "\Alllog.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
            'If Me.cb_dummy.Checked AndAlso Me.cmb_dummy.SelectedIndex = 1 And Me.BindingSource1.Position >= 0 AndAlso Me.BindingSource1.Position + 1 < Me.BindingSource1.Count Then   '//ÇöÀçÀ妽º°¡ ÃÖ°í°ªº¸´Ù ÀÛÀ¸¸é
            'Me.BindingSource1.Position += 2
            'Else
            Me.BindingSource1.Position += 1
            'End If
            'Me.BindingNavigatorMoveNextItem.PerformClick()
            'Me.BindingNavigatorPositionItem.Focus()
            'End If
        Else

            If Me.BindingNavigatorPositionItem.Text > 0 Then
                'If Me.cb_dummy.Checked AndAlso Me.cmb_dummy.SelectedIndex = 1 And Me.BindingSource1.Position >= 0 AndAlso Me.BindingSource1.Position + 1 < Me.BindingSource1.Count Then   '//ÇöÀçÀ妽º°¡ ÃÖ°í°ªº¸´Ù ÀÛÀ¸¸é
                ' Me.BindingSource1.Position -= 2
                'Else
                Me.BindingSource1.Position -= 1
                'End If
                'Me.BindingNavigatorMovePreviousItem.PerformClick()
                'Me.BindingNavigatorPositionItem.Focus()
            End If

        End If
    End Sub
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Me.Text = e.X & "/" & e.Y
    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 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



#Region "Not Edit"

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

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

                    data = °ü¸®±¸            'data¼³Á¤ ÀÓ½Ã
                    If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor
                    If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor
                    image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY)
                    If Rect.Width = 0 OrElse Rect.Height = 0 Then
                        'Ga.DrawImage(image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY)
                        Ga.DrawImage(image, Rect.X, Rect.Y)
                    Else
                        'Ga.DrawImage(image, Rect.X + MyProperty_Paper.Ãâ·Â¿©¹éX, Rect.Y + MyProperty_Paper.Ãâ·Â¿©¹éY, Rect.Width, Rect.Height)
                        Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height)
                    End If
                Next
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try
        End If


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

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

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

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

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

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

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

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

    Private Sub 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 cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SetFont()
    End Sub
    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If SelCon Is Nothing Then Return

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

        For Each a As MyControlOLEDBv2.MyLabel In SelCon
            a.MyFont = B.Font
        Next
        Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel))
        Me.preview_window()
    End Sub
    Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick()
    End Sub
    Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick()
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        For Each A As Control In SelCon
            A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top)
        Next
        Me.preview_window()
    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
        If SelCon Is Nothing Then
            MsgBox("¼±ÅÃµÈ °³Ã¼°¡ ¾ø½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        For Each A As Control In SelCon
            CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò = CInt(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
        If SelCon Is Nothing Then
            MsgBox("¼±ÅÃµÈ °³Ã¼°¡ ¾ø½À´Ï´Ù", MsgBoxStyle.Critical, "È®ÀÎ")
            Return
        End If
        For Each A As Control In SelCon
            'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò - Val(Me.tb_pixelsize.Text))
            CType(A, MyControlOLEDBv2.MyLabel).Àå³ôÀÌ = CInt(Me.tb_wordheight.Text)
        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
        For Each a As MyControlOLEDBv2.MyLabel In SelCon
            a.MyFont = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont
            a.ÀåÆò = CType(SelCon(0), MyControlOLEDBv2.MyLabel).ÀåÆò
            a.Àå³ôÀÌ = CType(SelCon(0), MyControlOLEDBv2.MyLabel).Àå³ôÀÌ
            a.°ø¹é = CType(SelCon(0), MyControlOLEDBv2.MyLabel).°ø¹é
        Next
        Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel))
        Me.preview_window()
    End Sub
    Private Sub VScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged
        Debug.Print("ValueChange Current : " & Me.VScrollBar1.Value)

    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 If

    End Sub
    Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
        Dim SelItem As New ArrayList

        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
                SelItem.Add(Me.AllLabels(i).ctl)
                'Exit For
            End If
        Next

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

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


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


                '//¿©±â¼­ ÄÁÆ®·ÑÀÌ ´­·ÈÀ¸¸é ÇØ´ç ±×·ìÀÇ ¾ÆÀÌÅÛ Àüü¸¦ °¡Á®¿Â´Ù.
                For Each SC As MyControlOLEDBv2.MyLabel In SelCon
                    SC.MyForeColor = Drawing.Color.Black
                Next
                SelCon.Clear()
                SelCon.Add(Tobj)
                Tobj.MyForeColor = Drawing.Color.DodgerBlue

                If My.Computer.Keyboard.CtrlKeyDown Then   '//ÄÁÆ®·ÑÀÌ ´­·¯ ºÀ¸¸é ÇØ´ç ±×·ìÀ» ÀüºÎ ã´Â´Ù.
                    'MsgBox(Tobj.Name)
                    SelCon.Clear()
                    For z As Short = 0 To Me.AllLabels.GetUpperBound(0)
                        If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then
                            Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue
                            SelCon.Add(Me.AllLabels(z).ctl)
                        End If
                    Next
                End If
            Else '//°¡¿îµ¥
                Me.Button1.PerformClick()
            End If
        End If
        'onlyOne = sender
        'CType(sender, MyControlOLEDBv2.MyLabel).
        Me.cmb_controls.Text = Tobj.¼³¸í
        ViewProperty(Tobj)

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

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

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

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

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


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

        'Me.preview_window()
    End Sub
    Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted
        For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon
            A.MyForeColor = Drawing.Color.Black
        Next
        SelCon.Clear()
        SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
        AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue
        ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
        Me.preview_window()
    End Sub
    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If MsgBox("ÇöÀç ½ºÅ¸ÀÏ(±âº»)À» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "½ºÅ¸ÀÏÀúÀå") = MsgBoxResult.Yes Then
            SAVE_STYLE()
        Else
            NOTICE("½ºÅ¸ÀÏ(±âÁ¸)ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
        End If

    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 '//±æÀÌÆÐÅÏÀÌ ÀÖÀ¸¸é
            AddLog(Admin, "(ãÀ½)  ¹®ÀÚÆÐÅÏ °Ë»ö ±æÀÌ=" & 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
                    AddLog(Admin, "¹®ÀÚÆÐÅÏ¿À·ù ±æÀÌ=" & Wlen & " Message=" & ex.Message.ToString, log)
                End Try
            Next
        Else
            AddLog(Admin, "¹®ÀÚÆÐÅϺÒÀÏÄ¡ ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & srcstr, log)
            AddLog(Admin, S¶óº§(0).¼³¸í & "/" & S¶óº§(0).ÃÖÁ¾¹®ÀÚ, log)
            'MsgBox(S¶óº§.GetUpperBound(0))
            Me.LOAD_STYLE(S¶óº§(0).DIV)
        End If
    End Sub
    Private Sub 񃧯ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If MsgBox("ÇöÀç ½ºÅ¸ÀÏ(±âº»)À» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "½ºÅ¸ÀÏÀúÀå") = MsgBoxResult.Yes Then
            SAVE_STYLE()
        Else
            NOTICE("½ºÅ¸ÀÏ(±âÁ¸)ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
        End If
    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.gfdlStripMenuItem.PerformClick()
                End If
            Case Keys.F5
                Me.gfdlStripMenuItem.PerformClick()
            Case Keys.F4 '//°ü¸®±¸5¹øÀúÀå
                Me.Button8.PerformClick()
            Case Keys.F7
                Me.bt_print.PerformButtonClick()
            Case Keys.F8
                Me.bt_prnpreview.PerformClick()
        End Select

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

        Dim ini As New MyINI2(DrStyle.FILE)
        Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex

        If read = False Then

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

            If Me.cmb_landscape.SelectedIndex = 0 Then '//¼¼·Î
                Me.pDoc.DefaultPageSettings.Landscape = False
                TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1))
                TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1))
                PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1))
                PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1))
                TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1))
                TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1))
                TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1))
                GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1))
                GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1))
                GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1))
                GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1))
                cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1))
                cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1))
                ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1))
                Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1))

            Else
                Me.pDoc.DefaultPageSettings.Landscape = 1
                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
        'MsgBox(Me.PictureBox1.Size.ToString)
    End Sub
    Private Sub bt_print_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 ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Process.Start(My.Application.Info.DirectoryPath & "\help\printform1.htm")
    End Sub
    Private Sub cm_styleeditoolStripMenuItem_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 bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown
        '//¾Æ·¡·ç
        If e.Button = System.Windows.Forms.MouseButtons.Right Then
            Select Case sender.name.ToString.ToUpper
                Case "BT_CANVASD"
                    Me.PictureBox1.Top += 5
                Case "BT_CANVASU"
                    Me.PictureBox1.Top -= 5
                Case "BT_CANVASR"
                    Me.PictureBox1.Left += 5
                Case "BT_CANVASL"
                    Me.PictureBox1.Left -= 5
            End Select
        End If

    End Sub

    Private Sub ToolStripLabel2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.ButtonClick
        If MsgBox("ÇöÀç ½ºÅ¸ÀÏ(±âº»)À» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "½ºÅ¸ÀÏÀúÀå") = MsgBoxResult.Yes Then
            SAVE_STYLE()
        Else
            NOTICE("½ºÅ¸ÀÏ(±âÁ¸)ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
        End If
    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 BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter
        Me.BindingNavigatorPositionItem.Focus()
        Me.BindingNavigatorPositionItem.SelectAll()
    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 ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp
        If e.KeyCode = Keys.Enter Then
            If Me.cmb_sep.SelectedIndex = 1 Then
                NOTICE("ºÐ¸®»óÅ¿¡¼­´Â ¹øÈ£ÁöÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", Drawing.Color.Red, Me.lb_msg)
            Else
                ¹øÈ£Çü½ÄÁöÁ¤(Me.tb_ntype.Text)
            End If
            Me.preview_window()
        End If
    End Sub
    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        Me.CtrSize(False, -5)
    End Sub

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

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

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

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

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

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

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

#End Region



    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 Refresh_Drawlist()
        '//;¶óÀÎÇÏ°í ¹Ú½º¸¦ Àо ¸®½ºÆ®¹Ú½º¿¡
        Me.ListBox1.Items.Clear()
        Dim I As Short = 0
        For Each Rect As S_Line In Draw_Line
            Me.ListBox1.Items.Add("¼±(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I)
            I += 1
        Next
        I = 0
        For Each Rect As S_Box In Draw_Box
            Me.ListBox1.Items.Add("¹Ú½º(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I)
            I += 1
        Next
        I = 0

        For Each Rect As S_Circle In Draw_Circle
            Me.ListBox1.Items.Add("¿ø(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I)
            I += 1
        Next
        I = 0

        For Each Rect As S_QRCode In Draw_QRcode
            Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I)
            I += 1
        Next
        I = 0
        preview_window()
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        '//¼±Ãß°¡
        Dim NewLine As New S_Line
        NewLine.PenColor = Drawing.Color.Black
        NewLine.PenWidth = 3
        NewLine.X = Draw_Line.Count * 10
        NewLine.Y = 10
        NewLine.X2 = 100 + Draw_Line.Count * 10
        NewLine.Y2 = NewLine.X2

        Draw_Line.Add(NewLine)
        Refresh_Drawlist()

    End Sub

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

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

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

    End Sub

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

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

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

        Dim bname As String = "DrawBox"
        Dim lname As String = "DrawLine"
        Dim cname As String = "DrawCircle"
        Dim qname As String = "DrawQRcode"
        Dim bcnt, lcnt, ccnt, qcnt As Short

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

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

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

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

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

            Me.Refresh_Drawlist()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try

            '//»èÁ¦
            Select Case Me.ListBox1.Text.Substring(0, 1)
                Case "¼±"
                    Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1))
                Case "¹Ú"
                    Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1))
                Case "¿ø"
                    Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1))
                Case "Q"
                    Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1))
            End Select
            Me.Refresh_Drawlist()

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

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

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

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        If MsgBox("ÆÐÅÏÀ» ÀúÀåÇϽðڽÀ´Ï±î?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "È®ÀÎ") <> MsgBoxResult.Ok Then
            NOTICE("ÆÐÅÏ ÀúÀåÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù", Me.lb_msg)
            Return

        End If
        ' SAVE_PATTERN("DL31PATTERN", "K", Me.Dl31.Length, "\dl3¸íÆÐÅÏ.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
        SAVE_PATTERNII(Me.Dl31, "DL31PATTERNII", "K", "\Dl3¸íÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

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

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

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

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

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

    End Sub


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

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

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Dim NewLine As New S_QRCode
        NewLine.X = 100
        NewLine.Y = 100
        NewLine.Width = 0
        NewLine.Height = 0
        Draw_QRcode.Add(NewLine)
        Refresh_Drawlist()
    End Sub
    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim a As New ColorDialog
        a.Color = lbQrBg.BackColor
        If a.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            lbQrBg.BackColor = a.Color
        End If
    End Sub

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