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

Public Class Printform_deung

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

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

    Dim S¹øÈ£(0) As MyLabel

    Dim S°í°´¹øÈ£(0) As MyControlOLEDBv2.MyLabel
    Dim S°ü¸®¹øÈ£1(0) As MyControlOLEDBv2.MyLabel
    Dim S°ü¸®¹øÈ£2(0) As MyControlOLEDBv2.MyLabel
    Dim S°ü¸®¹øÈ£3(0) As MyControlOLEDBv2.MyLabel
    Dim SÁöÁ¡¸í(0) As MyControlOLEDBv2.MyLabel

    Dim SÀü»êÈ­¹øÈ£(0) As MyControlOLEDBv2.MyLabel
    Dim S¼±·Î¸í(0) As MyControlOLEDBv2.MyLabel
    Dim SÀüÁÖ¹øÈ£(0) As MyControlOLEDBv2.MyLabel


    Dim °í°´¹øÈ£ As String = vbNullString
    Dim °ü¸®¹øÈ£1 As String = vbNullString
    Dim °ü¸®¹øÈ£2 As String = vbNullString
    Dim °ü¸®¹øÈ£3 As String = vbNullString
    Dim ÁöÁ¡¸í As String = vbNullString
    Dim Àü»êÈ­¹øÈ£ As String = ""
    Dim ¼±·Î¸í As String = ""
    Dim ÀüÁÖ¹øÈ£ As String = ""

    Dim NoView As Boolean = False   '//LOAD_STYLE À» Àá½Ã ½ÇÇàÇÏÁö ¾Ê±âÀ§ÇÞ(Áߺ¹½ÇÇà¹æÁö)¼­ µÐ´Ù.(..À̺¥Æ®°¡.. -_-;;³Ê¹« Áߺ¹À¸·Î ¹ß»ýÇÔ)
  
    Dim SrcIdx As Integer = -1  '//¿øº» ¸®ºä¿¡¼­ Ŭ¸¯µÈ À妽º
    Dim Srcnum As Integer = -1  '//¿øº» ¸®ºå¿¡¼­ Ŭ¸¯µÈ ¹øÈ£°ª
    Dim Srcrow As DataRowView
    Dim FirstIdx As Integer = -1 '//»õ·Î »ý¼ºµÈ ¸®ºä¿¡¼­ Àû¿ëµÉ À妽º

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

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

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

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

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

    Public Sub New()
        InitializeComponent()
        WLog2(Auto_Log, "New()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")
    End Sub

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

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

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

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

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

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


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

            Case Keys.F7
                Me.bt_print.PerformButtonClick()
            Case Keys.F8
                Me.bt_prnpreview.PerformClick()
        End Select

    End Sub

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

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

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

        AddControl(CtlCnt, "°í°´¹øÈ£", "U", Me.S°í°´¹øÈ£, Me.cb_usernum, "UNOPATTERN")
        AddControl(CtlCnt, "°ü¸®¹øÈ£1", "A", Me.S°ü¸®¹øÈ£1, Me.cb_mnum1, "MAN1PATTERN")
        AddControl(CtlCnt, "°ü¸®¹øÈ£2", "B", Me.S°ü¸®¹øÈ£2, Me.cb_mnum2, "MAN2ATTERN")
        AddControl(CtlCnt, "°ü¸®¹øÈ£3", "C", Me.S°ü¸®¹øÈ£3, Me.cb_mnum3, "MAN3PATTERN")
        AddControl(CtlCnt, "ÁöÁ¡¸í", "J", Me.SÁöÁ¡¸í, Me.cb_jijum, "JIJUMPATTERN")
        AddControl(CtlCnt, "Àü»êÈ­¹øÈ£", "K", Me.SÀü»êÈ­¹øÈ£, Me.chk_k, "JUNSANPATTERN")
        AddControl(CtlCnt, "¼±·Î¸í", "L", Me.S¼±·Î¸í, Me.chk_l, "SUNLOPATTERN")
        AddControl(CtlCnt, "ÀüÁÖ¹øÈ£", "M", Me.SÀüÁÖ¹øÈ£, Me.chk_m, "JUNJUPATTERN")
    End Sub


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

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

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

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

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



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

    Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = -1)
        ' Dim STARTTIME, ENDTIME As Date
        WLog2(Auto_Log, "GetviewData ÁøÀÔ()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")
        If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then
            WLog2(Auto_Log, "GetViewData : À妽º°¡ ¾ø°Å³ª ¹®Á¦°¡ Àվ ¸®ÅÏÇÕ´Ï´Ù.()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")
            ' MsgBox("GETVIEWDATA : µ¥ÀÌÅÍ°¡ ¾ø°Å³ª À߸øµÈ À妽º ÀÔ´Ï´Ù", MsgBoxStyle.Information, "È®ÀÎ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "È®ÀÎ")
            Return '//À߸øµÈ À妽º´Â ¸®ÅÏ
        End If

        °í°´¹øÈ£ = GetSpread(Me.Dv, index, "°í°´¹øÈ£1") & Space(1) & GetSpread(Me.Dv, index, "°í°´¹øÈ£2") & Space(1) & GetSpread(Me.Dv, index, "°í°´¹øÈ£3")
        °ü¸®¹øÈ£1 = GetSpread(Me.Dv, index, "°ü¸®¹øÈ£1")
        °ü¸®¹øÈ£2 = GetSpread(Me.Dv, index, "°ü¸®¹øÈ£2")
        °ü¸®¹øÈ£3 = GetSpread(Me.Dv, index, "°ü¸®¹øÈ£3")
        ÁöÁ¡¸í = GetSpread(Me.Dv, index, "ÁöÁ¡¸í")

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

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

        Me.Text = "Ãâ·ÂÀÛ¾÷(" & °í°´¹øÈ£ & " : " & °ü¸®¹øÈ£1 & "/" & °ü¸®¹øÈ£2 & "/" & °ü¸®¹øÈ£3

        WLog2(Auto_Log, "PASE±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")
        '============ ¿©±â´Â µû·Î Çؼ®ÀÌ ¾ø´Â°÷ÀÌ´Ù ==========================================================
        'Me.PARSE_°í°´¹øÈ£(°í°´¹øÈ£)
        'Me.PARSE_°ü¸®¹øÈ£1(°ü¸®¹øÈ£1)
        'Me.PARSE_°ü¸®¹øÈ£2(°ü¸®¹øÈ£2)
        'Me.PARSE_°ü¸®¹øÈ£3(°ü¸®¹øÈ£3)
        'Me.PARSE_ÁöÁ¡¸í(ÁöÁ¡¸í)
        '====================================================================================================

        WLog2(Auto_Log, "ÆÐÅÏÀÌÀÖ´Â PASE ±¸¹®À» ½ÇÇàÇÕ´Ï´Ù.()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")

        If Me.PARSE(°í°´¹øÈ£, Me.S°í°´¹øÈ£) Then Me.PARSE_PATTERN(°í°´¹øÈ£, Me.S°í°´¹øÈ£)
        If Me.PARSE(°ü¸®¹øÈ£1, Me.S°ü¸®¹øÈ£1) Then Me.PARSE_PATTERN(°ü¸®¹øÈ£1, Me.S°ü¸®¹øÈ£1)
        If Me.PARSE(°ü¸®¹øÈ£2, Me.S°ü¸®¹øÈ£2) Then Me.PARSE_PATTERN(°ü¸®¹øÈ£2, Me.S°ü¸®¹øÈ£2)
        If Me.PARSE(°ü¸®¹øÈ£3, Me.S°ü¸®¹øÈ£3) Then Me.PARSE_PATTERN(°ü¸®¹øÈ£3, Me.S°ü¸®¹øÈ£3)
        If Me.PARSE(ÁöÁ¡¸í, Me.SÁöÁ¡¸í) Then Me.PARSE_PATTERN(ÁöÁ¡¸í, Me.SÁöÁ¡¸í)

        If Me.PARSE(Àü»êÈ­¹øÈ£, Me.SÀü»êÈ­¹øÈ£) Then Me.PARSE_PATTERN(Àü»êÈ­¹øÈ£, Me.SÀü»êÈ­¹øÈ£)
        If Me.PARSE(¼±·Î¸í, Me.S¼±·Î¸í) Then Me.PARSE_PATTERN(¼±·Î¸í, Me.S¼±·Î¸í)
        If Me.PARSE(ÀüÁÖ¹øÈ£, Me.SÀüÁÖ¹øÈ£) Then Me.PARSE_PATTERN(ÀüÁÖ¹øÈ£, Me.SÀüÁÖ¹øÈ£)

        '======================== ±âŸ =================================================
        'ÈÞ ³¡³µ´Ù.......................................................
        WLog2(Auto_Log, "Pewview À©µµ¿ì¸¦ ½ÇÇàÇÕ´Ï´Ù.()", "\Á¤¾×µî¼øÂ÷·Î±×.txt")

        '//ÀÌ·¯¸é Ç¥½ÃÇؾßÇÑ´Ù.
        If Me.cb_seq.Checked Then
            Me.S¹øÈ£(0).MyText = GetSpread(Me.Dv, index, "¹øÈ£") 'index + 1
            Me.S¹øÈ£(0).Visible = True
        Else
            Me.S¹øÈ£(0).Visible = False
        End If

        Me.preview_window()
    End Sub

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

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

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

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

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

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

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

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

        pname = "JJNUMPATTERN" & Wlen
        Dr = dtpattern.Select("NAME = '" & pname & "DESC'")
        WLog2(Auto_Log, "¹®ÀÚÆÐÅÏÀÇ Á¸Àç¿©ºÎ = " & Dr.GetUpperBound(0) & ";" & pname, "\ÁöÁß¼øÂ÷·Î±×.txt")
        If Dr.GetUpperBound(0) <> -1 Then '//ÀÖ´Ù.
            retval += 1
            'WLog2(Auto_Log, "°ü¸®±¸5¹ø ¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù (" & pname & "DESC" & ")", Log)
        End If
        Return retval '// 0ÀÌ ¸®ÅϵɰÍÀÌ´Ù. ÆÐÅÏÀÌ ¸ðµÎ Á¤»óÀ̶õ ¶æÀÌ´Ù
    End Function
    Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel)
        WLog2(Auto_Log, "Clear_item div=", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")
        For i As Short = 0 To labels.GetUpperBound(0)
            labels(i).MyText = ""
            labels(i).Visible = False
        Next
    End Sub
    Public Sub GetStyleList()
        AddLog(Auto_Log, "GetStyleListÁøÀÔ()", "\ÁöÁß(ÄÉÀ̺í¶óº§)¼øÂ÷·Î±×.txt")
        '//½ºÅ¸ÀϸíÀ» °¡Á®¿Í¼­ ÄÞº¸¹Ú½º¿¡ Ç¥½ÃÇÕ´Ï´Ù.
        '//style Æú´õ¾Æ·¡ÀÇ ini ÆÄÀÏÀüü¸¦ ½ºÅ¸ÀÏ À̶óÇÑ´Ù.
        '//ÆÄÀÏÀ» Àо ¸Þ¸ð¸®¿¡ ÀúÀåÇÑ´Ù.
        ' Dim Arinini As MyINI
        Dim CurIdx As Integer = 0
        If StyleDir.Exists = False Then StyleDir.Create()
        Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0)

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

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

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

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

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

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

            GetAllsection(FileName, CurIdx)

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



    End Sub

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

        DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0)
        DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern

    End Sub

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

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

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

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

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

        If Me.RadioButton1.Checked Then '//ÀüüÃâ·ÂÀ̹ǷΠ¹è¿­¿¡ ¸ðµç°ÍÀ» ¸®ÅÏÇÑ´Ù : ¸ðµçµ¥ÀÌÅÍÀÇ ·¹ÄÚµå À妽º¸¦ ÀúÀåÇÑ´Ù.
            'MsgBox("rad1")
            ReDim Me.PrintArray(Me.Dv.Count - 1)
            For i As Integer = 0 To Dv.Count - 1
                Me.PrintArray(i) = i
            Next
        End If

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


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


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

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

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

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

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

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

        Dim Preview As New PrintPreviewDialog()
        Try
            Preview.Document = pDoc
            Preview.ShowDialog()

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

    Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage

        AddLog(Admin, "proc_printpage ÇÁ¸°Æ®ÆÐÀÌÁö¸¦ ÀÛ¼ºÇÑ´Ù Áß¿äÇÏ´Ù.()", "\Alllog.txt")

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

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

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

        End If
        e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text)


Dummyflag:  '//--2ÀåÃâ·ÂÀÏ°æ¿ì À̺κп¡¼­ ´Ù½Ã ½ÃÀÛÇÑ´Ù.

        'MsgBox(dummy)

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            C = Me.AllLabels(i).ctl
            If C.Visible = True AndAlso C.MyText <> "" Then
                '//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)

                If dummy Then  '//ÀμⰡ ¾Æ´Ò´ë¿¡´Â margin À» ³ÖÁö¾Ê´Â´Ù.
                    NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text
                    NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text
                Else
                    NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0)
                    NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0)
                End If

                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
            End If
        Next

        '//ÆäÀÌÁö°¡ ÀÖ´ø¾ø´ø 2À庹»ç¸¦ ¸ÕÀú È®ÀÎÇÑ´Ù.
        '//´ÙÀ½ÆäÀÌÁö°¡ ÀÕÀ¸¸é ´ÙÀ½±â´ÉÀ» È®ÀÎÇÏ°í ±×·¸Áö ¾ÊÀ»°æ¿ì¿¡´Â ÇÑÀ庹»ç¸¸ È®ÀÎÇÑ´Ù.
        If dummy = False AndAlso Me.cb_dummy.Checked Then   '//2À庹»çÀÏ°æ¿ì¿¡´Â  ÇöÀ纹»çÀÎÁö ´ÙÀ½º¹»çÀÎÁö üũ

            dummy = True
            If Me.cmb_dummy.SelectedIndex = 0 Then  '//ÇöÀ纹»ç´Â ±ÄÀÌ ´ÙÀ½Àå¾ø¾îµµ °¡´ÉÇÏ´Ù.
                'dummy = True
                ' MsgBox("ÀÕ´ø¾ø´ø ÇöÀ纹»ç")
                GoTo Dummyflag
            Else    '//´ÙÀ½º¹»çÀ̹ǷΠ´ÙÀ½ÀåÀÌÀÕ´ÂÁö È®ÀÎÇÏ°íÇؾßÇÑ´Ù.
                'MsgBox("´ÙÀ½À庹»ç")
                If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then   '//´ÙÀ½ÀåÀÌÀÖ´Ù.
                    'MsgBox("´ÙÀ½ÀåÀÌÀÕ´Ù.. µ¥ÀÌÅ͹ٲٰí gotoÇÑ´Ù")
                    Me.printindex += 1  '/1Àå³Ñ±â°í 
                    If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '//µ¥ÀÌÅÍ ¹Ù²Ù´Âµ¥..È­¸éÀº °»½ÅÇÏÁö ¾Ê´Â´Ù.
                    GoTo Dummyflag  '//¹Ù·Î Ãâ·Â´Ù½ÃÇÑ´Ù.
                Else
                    'MsgBox("´ÙÀ½Àå¾ø¾î¼­ ±×³É³Ñ¾î°£´Ù")
                    '´ÙÀ½ÀåÀ̾øÀ¸¹Ç·Î ±×³É ³Ñ¾î°£´Ù.
                    e.HasMorePages = False
                End If
            End If
        Else    '//´ÙÀ½ÀåÀ¸·Î³Ñ±é´Ï´Ù.
            If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then   '//´ÙÀ½ÀåÀÌÀÖ´Ù.
                dummy = False   '//Àå¼ö¸¦ ³Ñ¾î°¡¸é ´õ¹Ì¸¦ ÇØÁ¦ÇÑ´Ù.
                Me.printindex += 1
                e.HasMorePages = True
            Else
                e.HasMorePages = False
            End If
        End If
        e.Graphics.Dispose()
    End Sub

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

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

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

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

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

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

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



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


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

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

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

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

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

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

        For Each sender As Control In SelCon
            If vertical Then    '//Á¿ìÃø
                If My.Computer.Keyboard.AltKeyDown Then
                    If offset < 0 Then
                        sender.Top -= 1
                    Else
                        sender.Top += 1
                    End If
                ElseIf 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.AltKeyDown Then
                    If offset < 0 Then
                        sender.Left -= 1
                    Else
                        sender.Left += 1
                    End If
                ElseIf My.Computer.Keyboard.CtrlKeyDown Then
                    If offset < 0 Then
                        sender.Left -= 10
                    Else
                        sender.Left += 10
                    End If
                Else
                    sender.Left += offset
                End If
            End If

        Next

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

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

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

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

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

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

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

        Me.BindingSource1.Sort = ""
        Me.BindingSource1.DataSource = Nothing
        Me.SaveReadLayOut(True)

        Try
            Dv = New DataView(srcTable, DataFilter, "Á¤·Ä¹øÈ£,¹øÈ£", DataViewRowState.CurrentRows)

            'Dv = New DataView(srcTable, "len(DL¸í) > 0", "", DataViewRowState.CurrentRows)

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

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

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

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

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

                'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text)
                If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True)
            End If

        Catch ex As Exception
            '//¿¡·¯³­´Ù¸é °ÅÀÇ ¹¹;;ÆûÀ» ¹Ù·Î ½ÇÇàÇϴ°æ¿ì´Ù
            '//MsgBox("°ü¸®ÀÚ ¸ðµåÀΰ¡º¾´Ï´Ù")

        End Try

        ''WLog2(Auto_Log, "cmb_style selectindexchanged ¿¡¼­ preview ¸¦ È£ÃâÇÔ", "\ÁöÁß¼øÂ÷·Î±×.txt")
        'Me.preview_window()
    End Sub

    Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z")   '//ÀúÀåµÈ ½ºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù.
        '  MsgBox("LOADSTYLE" & "/" & Div)
        '  MsgBox("LOADSTYLE" & "/" & Div)
        WLog2(Auto_Log, "load_style : ½ºÅ¸ÀÏÀ» ºÒ·¯¿É´Ï´Ù. div= " & Div, "\Á¤¾×µî¼øÂ÷·Î±×.txt")
        Dim Arinini As New MyINI2(drstyle.File)
        Dim pos(), font(), visible, mytext As String
        Dim 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

                    '//¸Þ¸ð¸®¿¡¼­ ã´Â´Ù.
                    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

        Next

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


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

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

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

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

        Me.CheckBox4.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True)
        Me.tb_myfontsize.Text = drstyle.PrintFontOffset    ' Arinini.Read("STYLE", "PrintFontOffset", 0)

        'Me.PictureBox1.Width = drstyle.CanvasX 'Arinini.Read("STYLE", "CanvasX", 297) '520
        'Me.PictureBox1.Height = drstyle.CanvasY ' Arinini.Read("STYLE", "CanvasY", 520) '520

        NOTICE(Me.cmb_style.Text & "½ºÅ¸ÀÏÀ» ºÒ·¯¿Ô½À´Ï´Ù.", Me.lb_msg)

    End Sub

    Public Sub SAVE_STYLE()
        WLog2(Auto_Log, "iniÆÄÀÏ¿¡ ½ºÅ¸ÀÏÀ» ÀúÀåÇÕ´Ï´Ù. ", "\Á¤¾×µî¼øÂ÷·Î±×.txt")
        Dim Arinini As New MyINI2(drstyle.File)
        Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg"))

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

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


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

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


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

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

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

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

        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

        Arinini.Write("STYLE", "ViewImage", Me.CheckBox4.Checked)


        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", "dummytype", Me.cmb_dummy.SelectedIndex)
        Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text)
        Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text)
        ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex)

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

        '//½ºÅ¸ÀÏÀúÀå½Ã¿¡ ÇöÀç ·¹À̾ƿô»óŶÇÇÑ ÀúÀåÇÏ°ÔÇÑ´Ù. À̺κÐÀº ½ºÅ¸ÀϺҷ¯¿Ã¶§ ¾²Áö´Â ¾Ê°í
        '//°¡·Î/¼¼·Î ¼±ÅÃÇÒ¶§ ºÒ·¯¿À°ÔÇÑ´Ù(ÆÄÀÏ¿¡¼­ Á÷Á¢ ºÒ·¯¿À°ÔÇÑ´Ù ¾îÂ÷ÇÇ Çѹø»ÓÀ̹ǷΠ‚œÀÌ ¸Þ¸ð¸®¿¡ ¿Ã¸®ÇÊ¿ä¾ø´Ù
        SaveReadLayOut(False) '//·¹À̾ƿôÀúÀåÇÑ´Ù.

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

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

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

        If read = False Then
            ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top)
            ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height)
            ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top)
            ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height)
            ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top)
            ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height)
            ini.Write(Secname, "TabControl2loc", Me.TabControl2.Left & "," & Me.TabControl2.Top)
            ini.Write(Secname, "TabControl2size", Me.TabControl2.Width & "," & Me.TabControl2.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))
                'TabControl2.Size = New Size(ini.Read(Secname, "TabControl2size", "239,228").Split(",")(0), ini.Read(Secname, "TabControl2size", "239,228").Split(",")(1))
                GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1))
                GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1))
                GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1))
                GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1))
                cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1))
                cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1))
                ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1))
                Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1))
            Else
                Me.pDoc.DefaultPageSettings.Landscape = True
                TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1))
                TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1))
                PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1))
                PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1))
                TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1))
                TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1))
                TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1))
                'TabControl2.Size = New Size(ini.Read(Secname, "TabControl2size", "239,228").Split(",")(0), ini.Read(Secname, "TabControl2size", "239,228").Split(",")(1))
                GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1))
                GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1))
                GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1))
                GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1))
                cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1))
                cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1))
                ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1))
                Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1))
            End If
        End If
    End Sub

    Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, ExceptH As Boolean, Optional ByVal LOGFILENAME As String = "\ÆÐÅÏ.TXT", Optional ByVal BlineNum As String = "")   'ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù. ÆÐÅÏ¿ª½Ã À§Ä¡/Å©±â/ÀåÆòµîÀÌ ÀúÀåµË´Ï´Ù.
        Dim Arinini As New MyINI2(drstyle.File)
        Dim BUF() As Char = SRCSTR.ToCharArray
        Dim mb As String = PATTERN_ENC(SRCSTR, ExceptH)
        Dim MidName As String = labels(0).Pattern
        If BlineNum <> "" Then MidName = "LNUM" & BlineNum & MidName
        '¼±·Î¸í ÆÐÅÏ ÀúÀå
        Dim TOBJ As MyControlOLEDBv2.MyLabel
        Dim Pname As String = MidName & "II" & mb.ToString

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



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

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

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

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

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


    Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged
        '//°³Ã¼°¡ ¼±ÅõǸé ÇØ´ç °³Ã¼ÀÇ ³»¿ªÀ» º¸¿©ÁØ´Ù.
        'Me.Timer1.Enabled = False
        WLog2(Auto_Log, "°³Ã¼¸ñ·Ï ÄÞº¸¹Ú½º¿¡¼­ ƯÁ¤ °³Ã¼°¡ ¼±ÅõǾú´Ù view property È£Ãâ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl)
    End Sub
    Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged
        WLog2(Auto_Log, "Ç¥½Ã üũ¹Ú½º ¼±Åà ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        For Each a As Control In SelCon
            a.Visible = Me.cb_visible.Checked
        Next
        WLog2(Auto_Log, "[Ç¥½Ã] üũ¹Ú½º ¼±Åÿ¡¼­ pewview¸¦ È£Ãâ ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        Me.preview_window()
    End Sub
    Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick
        WLog2(Auto_Log, " ±Û¾¾»ö±ò º¯°æ Ŭ¸¯µÊ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        Dim A As New ColorDialog
        If A.ShowDialog() = Windows.Forms.DialogResult.OK Then
            For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon
                Onlyone.MyForeColor = A.Color
            Next
            Me.tb_foncol.BackColor = A.Color
        End If
        Me.preview_window()
    End Sub
    Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged
        WLog2(Auto_Log, "±Û¾¾…B°Ô ¼±ÅÃµÊ setfont È£Ãâ ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        SetFont()
    End Sub
    Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) '
        WLog2(Auto_Log, "updatefont :  ", "\°¡·Îµî¼øÂ÷·Î±×.txt")
        Dim A As Font
        For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon
            A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point)
            Tobj.MyFont = A
        Next
        Me.SetFont()
    End Sub
    Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short)
        If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub

        For Each sender As MyControlOLEDBv2.MyLabel In SelCon
            If vertical Then    '//»óÇÏ
                If My.Computer.Keyboard.AltKeyDown Then
                    If offset < 0 Then
                        sender.Àå³ôÀÌ -= 1
                    Else
                        sender.Àå³ôÀÌ += 1
                    End If
                ElseIf 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.AltKeyDown Then
                    If offset < 0 Then
                        sender.ÀåÆò -= 1
                    Else
                        sender.ÀåÆò += 1
                    End If
                ElseIf My.Computer.Keyboard.CtrlKeyDown Then
                    If offset < 0 Then
                        sender.ÀåÆò -= 10
                    Else
                        sender.ÀåÆò += 10
                    End If
                Else
                    sender.ÀåÆò += offset
                End If
            End If
        Next

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

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

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)
            Tobj = Me.AllLabels(i).ctl
            Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height)
            Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj.ÀåÆò & "," & Tobj.Àå³ôÀÌ)
            Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible)
            Arinini.Write(stylename, Tobj.Name & "space", Tobj.°ø¹é)
        Next
        NOTICE("±âŸ½ºÅ¸ÀÏÀ» ÀúÀåÇß½À´Ï´Ù", Me.lb_msg)
    End Sub
    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 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
    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 NPartternCheck()
        Dim ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = 0

        '//ÆÐÅÏ°Ë»ç½ÃÀÛ
        ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png")


        Dim endcnt As Integer = Me.textbox2.Text

        For i As Integer = Me.textbox1.Text To Me.textbox2.Text
            '  If chkFlag Then Exit For
            showcnt(i, endcnt, "ÆÐÅÏ°Ë»çÁß")
            Me.textbox1.Text = i
            ¹øÈ£ÆÐÅÏ°Ë»ç = ChkNumPattern(i)
            '  MsgBox(¹øÈ£ÆÐÅÏ°Ë»ç)

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

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

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


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

        End If
    End Sub

    Private Sub 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 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 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


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

        ' If Me.printindex <> -1 Then Me.GeTviewData(Me.PrintArray(Me.printindex)) '//ÆäÀÌÁö¸¦ °»½ÅÇÏ°í Ãâ·ÂÀ» ½ÃÀÛÇÑ´Ù.
        'Dummyflag:  '//--2ÀåÃâ·ÂÀÏ°æ¿ì À̺κп¡¼­ ´Ù½Ã ½ÃÀÛÇÑ´Ù.

        'If Not Me.PictureBox1.BackgroundImage Is Nothing Then
        ' Ga.DrawImage(Me.PictureBox1.BackgroundImage, 0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height)
        ' End If

        For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)   '//¸ðµç °³Ã¼µé¿¡ ´ëÇؼ­ Àμ⸦ ¼³Á¤ÇÑ´Ù.
            obj = Me.AllLabels(i).ctl
            If obj.Visible AndAlso obj.MyText <> "" Then   '//È­¸é¿¡ º¸À̴°͸¸ ÇÑ´Ù.                
                NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text
                If NewFontSize < 0 Then NewFontSize = 0
                Brush = New SolidBrush(obj.MyForeColor) '//Àü°æ»öÀ¸·Î ºê·¯½¬¸¦ ¸¸µç´Ù.

                MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style)
                If obj.ÀåÆò = 100 AndAlso obj.Àå³ôÀÌ = 100 Then '//ÀåÆò¹Ì»ç¿ë ¹®ÀÚ¿­ ó¸®
                    'Ga.RotateTransform(45)
                    Ga.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brush, obj.Location)
                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))
                    G.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brush, 0, 0)
                    G.Dispose()
                    Ga.DrawImage(BMP, New Point(obj.Left, obj.Top)) ', CInt(GetSize.Width * (vÀåÆò / 100)), GetSize.Height)
                    'Ga.RotateTransform(20



                End If
            End If
        Next

        If Me.cb_dummy.Checked Then '//º¹»ç°¡ ¼±ÅõǾîÀÖÀ¸¸ç ¤¤Çѹø´õ Ãâ·ÂÇÑ´Ù.
            For i As Integer = 0 To Me.AllLabels.GetUpperBound(0)   '//¸ðµç °³Ã¼µé¿¡ ´ëÇؼ­ Àμ⸦ ¼³Á¤ÇÑ´Ù.
                obj = Me.AllLabels(i).ctl
                If obj.Visible AndAlso obj.MyText <> "" Then   '//È­¸é¿¡ º¸À̴°͸¸ ÇÑ´Ù.                
                    NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text
                    If NewFontSize < 0 Then NewFontSize = 0
                    Brush = New SolidBrush(obj.MyForeColor) '//Àü°æ»öÀ¸·Î ºê·¯½¬¸¦ ¸¸µç´Ù.

                    MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style)
                    If obj.ÀåÆò = 100 AndAlso obj.Àå³ôÀÌ = 100 Then '//ÀåÆò¹Ì»ç¿ë ¹®ÀÚ¿­ ó¸®
                        Ga.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brushes.Gray, (obj.Left + Me.tb_secX.Text), (obj.Top + Me.tb_secY.Text))
                    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))
                        G.DrawString(obj.ÃÖÁ¾¹®ÀÚ, MyFont, Brushes.Gray, 0, 0)
                        G.Dispose()
                        Ga.DrawImage(BMP, CSng(obj.Left + Me.tb_secX.Text), CSng(obj.Top + Me.tb_secY.Text)) ', CInt(GetSize.Width * (vÀåÆò / 100)), GetSize.Height)
                    End If
                End If
            Next
        End If


        Ga.Dispose()
        Me.PictureBox1.Image = BackScr
    End Sub


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


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

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

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

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



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



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

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

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

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

    End Sub

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

        For Each A As Control In SelCon
            'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel).ÀåÆò - Val(Me.tb_pixelsize.Text))
            CType(A, MyControlOLEDBv2.MyLabel).Àå³ôÀÌ = CInt(Me.tb_wordheight.Text)
            ViewProperty(A)
        Next
        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, TextBox3.KeyUp
        If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick()
    End Sub



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


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

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

    End Sub

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

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

        Tobj = Nothing

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

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

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

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

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

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

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

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

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

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

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

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


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

        Me.preview_window()
    End Sub

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

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

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

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

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

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

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

                    '//¹Ýº¹Á¤º¸È®ÀÎ  Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY)  '//¹Ýº¹Ãâ·ÂÁ¤º¸ÀúÀå
                    AddLog(Auto_Log, "¹Ýº¹¹®ÀÚ¼ÂÆ® : " & pname & C.Name & "REPEAT" & "  ¸¦ °Ë»öÇÕ´Ï´Ù")
                    DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'")
                    If DR.GetUpperBound(0) = 0 Then
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚ¸¦ ã¾Ò½À´Ï´Ù")
                        CTLFONT = DR(0)(1).ToString.Split(",")
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚ¸¦ ÄÞ¸¶·Î ÂÉ°³¾î¼­ CTLFONT ¹è¿­¿¡ ÀúÀåÇÏ¿´½À´Ï´Ù.")
                        C.Repeat = CTLFONT(0)
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚÁß 0¹ø°À§Ä¡°ªÀ» Àû¿ë")
                        C.RepeatX = CTLFONT(1)
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚÁß 1¹ø°À§Ä¡°ªÀ» Àû¿ë")
                        C.RepeatY = CTLFONT(2)
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚÁß 2¹ø°À§Ä¡°ªÀ» Àû¿ë")
                        'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point)
                        ' C.ÀåÆò = CTLFONT(5)
                        '  C.Àå³ôÀÌ = CTLFONT(6)
                    Else
                        AddLog(Auto_Log, "ÇØ´ç¹Ýº¹¹®ÀÚ¸¦ ãÁö¸øÇß½À´Ï´Ù.")
                    End If

                    C.Tag = "L"
                Catch ex As Exception
                    WLog2(Auto_Log, "¹®ÀÚÆÐÅÏ¿À·ù ±æÀÌ=" & Wlen & " Message=" & ex.Message.ToString, log)
                End Try
            Next
            Return True
        Else
            WLog2(Auto_Log, "¹®ÀÚÆÐÅϺÒÀÏÄ¡ ±æÀÌ=" & Wlen & " ¹®ÀÚ¿­=" & srcstr, log)
            Me.LOAD_STYLE(S¶óº§(0).DIV)
            Return False
        End If
    End Function

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

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

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

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

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

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

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

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

    End Sub


    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 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 yoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yoolStripMenuItem.Click
        SAVE_PATTERNII(Me.S°í°´¹øÈ£, Me.°í°´¹øÈ£, False, "\°í°´¹øÈ£ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub fyripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fyripMenuItem.Click
        SAVE_PATTERNII(Me.S°ü¸®¹øÈ£1, Me.°ü¸®¹øÈ£1, False, "\°ü¸®¹øÈ£1ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub dfgdfoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dfgdfoolStripMenuItem.Click
        SAVE_PATTERNII(Me.S°ü¸®¹øÈ£2, Me.°ü¸®¹øÈ£2, False, "\°ü¸®¹øÈ£2ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub fdaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fdaToolStripMenuItem.Click
        SAVE_PATTERNII(Me.S°ü¸®¹øÈ£3, Me.°ü¸®¹øÈ£3, False, "\°ü¸®¹øÈ£3ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub pbt_jijunm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_jijunm.Click
        SAVE_PATTERNII(Me.SÁöÁ¡¸í, Me.ÁöÁ¡¸í, False, "\ÁöÁ¡¸íÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub pbt_junju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_junju.Click
        SAVE_PATTERNII(Me.SÀüÁÖ¹øÈ£, Me.ÀüÁÖ¹øÈ£, False, "\ÀüÁÖ¹øÈ£ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub pbt_sunlo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_sunlo.Click
        SAVE_PATTERNII(Me.S¼±·Î¸í, Me.¼±·Î¸í, False, "\¼±·Î¸íÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub pbt_junsan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_junsan.Click
        SAVE_PATTERNII(Me.SÀü»êÈ­¹øÈ£, Me.Àü»êÈ­¹øÈ£, False, "\Àü»êÈ­¹øÈ£ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub

    Private Sub ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem1.Click
        SAVE_PATTERNII(Me.SÀüÁÖ¹øÈ£, Me.ÀüÁÖ¹øÈ£, True, "\ÀüÁÖ¹øÈ£ÆÐÅÏ2.TXT")    '//¼±·Î¸íÀÇ ÆÐÅÏÀ» ÀúÀåÇÕ´Ï´Ù.
    End Sub
End Class