Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Math
Imports acc.ARINCLASS
Imports System.IO
Imports CEpole.C_Epole

Public Class PrintForm
    '//±âº» Datatable Àε¥ »ç¿ëÇϱâ ÆíÇÏ°Ô Shadow ÇÑ´Ù.
    'Public Shadows srctable As ireaDataSet.Detail_tongsinDataTable

    '//Loadstyle ÈÄ¿¡ ÀϷùøÈ£¸¦ ºÎ¿©ÇÑ´Ù. (SetControlIndex)
    Dim IDX_ÀϷùøÈ£ As Short
    Dim IDX_ÇàÁ¤µµ½Ã As Short
    Dim IDX_Áö¿ª¸í As Short
    Dim IDX_¹øÁö As Short
    Dim IDX_°ü¸®¹øÈ£1 As Short
    Dim IDX_°ü¸®¹øÈ£2 As Short
    Dim IDX_¹®ÀÇÀüÈ­1 As Short '2008/07/10
    Dim IDX_¹®ÀÇÀüÈ­2 As Short '2008/07/10
    Dim IDX_ºñ°í1 As Short '2008/07/10
    Dim IDX_ºñ°í2 As Short '2008/07/10
    Dim IDX_ºñ°í3 As Short '2008/07/10

    Dim IDX_°íÁ¤¹®ÀÚ1 As Short
    Dim IDX_°íÁ¤¹®ÀÚ2 As Short

    Dim º¯º¯º¯ As String

#Region "New Function"
    Public Sub New()
        InitializeComponent()
    End Sub

    Public Sub New(ByVal v_Àû¿ë As String)

        ' ÀÌ È£ÃâÀº Windows Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.    'QRÃß°¡
        InitializeComponent()

        Me.qrÀû¿ë.Text = v_Àû¿ë



    End Sub

    Public Sub New(ByRef Src As DataTable, ByVal vAdmin As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing)
        InitializeComponent()
        SrcTable = Src  '//°¡Á®¿Â Å×À̺íÀ» ÀÓ½ÃÅ×ÀÌºí¿¡ ÀúÀåÀ» ÇØµÎ°í »ç¿ëÇÑ´Ù.
        Srcrow = IRow  '//ÀÌ°ÍÀº Ŭ¸¯µÈ ÇàÀÇ µ¥ÀÌÅÍÀÌ´Ù.
        Me.Admin = vAdmin
        Me.DefStyleIndex = vDefStyleIndex
    End Sub
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 100
        Me.Initialize(Me.SrcTable, "StyleKR", My.Application.Info.DirectoryPath & "\epole.ini", DefStyleIndex)
    End Sub

    Public Overrides Sub SetControls()   '//¿À¹ö¶óÀ̵åµÌÀ¸¸ç ¶óº§µéÀ» »ý¼ºÃʱâÈ­ÇÑ´Ù.
        AddLog("-> SetControls")
        Dim CtlCnt As Short = 0

        If Me.AllLabels Is Nothing Then ReDim Me.AllLabels(0) '//À̰Ƕ󺧵éÀÇ ¹è¿­À̸ç
        If Me.AllFullLabels Is Nothing Then ReDim Me.AllFullLabels(0) '//À̰Ƕ󺧵éÀÇ ±×·ì¹è¿­ÀÌ´Ù. (ÂÉ°³ÁöÁö¾ÊÀº 1°³ÀÇ ¾ÆÀÌÅÛÀ» °¡Áö°íÀÖ´Ù.)

        '//initial...
        Dim FirstIndex As Short = 0
        Dim A_Firstindex As Short = 0

        Dim MaxCharLen As Short = 50
        InitControl(IDX_ÀϷùøÈ£, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.cb_seq, "ÀϷùøÈ£", "U", "SEQPATTERN", )
        InitControl(IDX_ÇàÁ¤µµ½Ã, A_Firstindex, FirstIndex, 10, MaxCharLen, Me.chk1, "ÇàÁ¤µµ½Ã", "A", "A21PATTERN")
        InitControl(IDX_Áö¿ª¸í, A_Firstindex, FirstIndex, 10, MaxCharLen, Me.chk2, "Áö¿ª¸í", "B", "A1PATTERN")
        InitControl(IDX_¹øÁö, A_Firstindex, FirstIndex, 20, MaxCharLen, Me.chk3, "¹øÁö", "C", "F1PATTERN")
        InitControl(IDX_°ü¸®¹øÈ£1, A_Firstindex, FirstIndex, 20, MaxCharLen, Me.chk4, "°ü¸®¹øÈ£1", "D", "M1PATTERN")
        InitControl(IDX_°ü¸®¹øÈ£2, A_Firstindex, FirstIndex, 20, MaxCharLen, Me.chk5, "°ü¸®¹øÈ£2", "E", "M2PATTERN")
        InitControl(IDX_¹®ÀÇÀüÈ­1, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk6, "¹®ÀÇÀüÈ­1", "F", "TEL1PATTERN")
        InitControl(IDX_¹®ÀÇÀüÈ­2, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk7, "¹®ÀÇÀüÈ­2", "G", "TEL2PATTERN")
        InitControl(IDX_ºñ°í1, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk8, "ºñ°í1", "H", "B1PATTERN")
        InitControl(IDX_ºñ°í2, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk9, "ºñ°í2", "I", "B2PATTERN")
        InitControl(IDX_ºñ°í3, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk10, "ºñ°í3", "J", "B3PATTERN")
        InitControl(IDX_°íÁ¤¹®ÀÚ1, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk20, "°íÁ¤¹®ÀÚ1", "V", "STATIC1PATTERN", True)
        InitControl(IDX_°íÁ¤¹®ÀÚ2, A_Firstindex, FirstIndex, 1, MaxCharLen, Me.chk21, "°íÁ¤¹®ÀÚ2", "W", "STATIC2PATTERN", True)

    End Sub

    Public Overrides Sub SetControlIndex() '//±×·ìÀÇ À妽º¸¦ °¡Áö°íÀÖ´Â // ³ªÁß¿¡ ÆíÇÏ°Ô »ç¿ëÇÏ·Á°í
        AddLog("-> SetControlIndex")
        Me.IDX_ÀϷùøÈ£ = lbl("ÀϷùøÈ£")
        Me.IDX_ÇàÁ¤µµ½Ã = lbl("ÇàÁ¤µµ½Ã")
        Me.IDX_Áö¿ª¸í = lbl("Áö¿ª¸í")
        Me.IDX_¹øÁö = lbl("¹øÁö")
        Me.IDX_°ü¸®¹øÈ£1 = lbl("°ü¸®¹øÈ£1")
        Me.IDX_°ü¸®¹øÈ£2 = lbl("°ü¸®¹øÈ£2")
        Me.IDX_¹®ÀÇÀüÈ­1 = lbl("¹®ÀÇÀüÈ­1")
        Me.IDX_¹®ÀÇÀüÈ­2 = lbl("¹®ÀÇÀüÈ­2")
        Me.IDX_ºñ°í1 = lbl("ºñ°í1")
        Me.IDX_ºñ°í2 = lbl("ºñ°í2")
        Me.IDX_ºñ°í3 = lbl("ºñ°í3")

        Me.IDX_°íÁ¤¹®ÀÚ1 = lbl("°íÁ¤¹®ÀÚ1")
        Me.IDX_°íÁ¤¹®ÀÚ2 = lbl("°íÁ¤¹®ÀÚ2")

    End Sub

    '//¸ÞÀÎÇÔ¼ö´Ù(¿À¹ö¶óÀ̵å) °ªÀ» ºÐ¼®ÇÏ°í Ç¥½ÃÇÏ´Â ÃÑ°ýÀ» ´ã´çÇÑ´Ù.
    Public Overrides Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = -1)

        Dim °ü¸®¹øÈ£, ÇàÁ¤µµ½Ã, Áö¿ª¸í, ¹øÁö As String
        'Dim QRCODE As String


        AddLog(">> ¿À¹ö¶óÀ̵åµÈ ÇÔ¼ö GetTviewData ÁøÀÔ")

        If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then
            AddLog(">> µ¥ÀÌÅÍÀ妽º°¡ ¾ø°Å³ª ¹®Á¦°¡ À־ GettviewData¸¦ ¸®ÅÏÇÕ´Ï´Ù")
            Return '//À߸øµÈ À妽º´Â ¸®ÅÏ
        End If

        '//DataRow_Value -> Group Label
        °ü¸®¹øÈ£ = GetSpread(index, "m1") & GetSpread(index, "m2")
        ÀϷùøÈ£ = GetSpread(index, "¹øÈ£")
        ÇàÁ¤µµ½Ã = GetSpread(index, "area2")
        Áö¿ª¸í = GetSpread(index, "area1")
        ¹øÁö = GetSpread(index, "f1")
        QRCODE1 = GetSpread(index, "QRCODE")

        Me.AllFullLabels(Me.IDX_ÀϷùøÈ£).text = ÀϷùøÈ£
        Me.AllFullLabels(Me.IDX_ÇàÁ¤µµ½Ã).text = ÇàÁ¤µµ½Ã
        Me.AllFullLabels(Me.IDX_Áö¿ª¸í).text = Áö¿ª¸í
        Me.AllFullLabels(Me.IDX_¹øÁö).text = ¹øÁö
        Me.AllFullLabels(Me.IDX_°ü¸®¹øÈ£1).text = GetSpread(index, "m1")
        Me.AllFullLabels(Me.IDX_°ü¸®¹øÈ£2).text = GetSpread(index, "m2")
        Me.AllFullLabels(Me.IDX_¹®ÀÇÀüÈ­1).text = GetSpread(index, "tel1")
        Me.AllFullLabels(Me.IDX_¹®ÀÇÀüÈ­2).text = GetSpread(index, "tel2")
        Me.AllFullLabels(Me.IDX_ºñ°í1).text = GetSpread(index, "bigo1")
        Me.AllFullLabels(Me.IDX_ºñ°í2).text = GetSpread(index, "bigo2")
        Me.AllFullLabels(Me.IDX_ºñ°í3).text = GetSpread(index, "bigo3")

        Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ1).text = Me.AllLabels(Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ1).Si).Text
        Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ2).text = Me.AllLabels(Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ2).Si).Text

        Me.qrÀû¿ë.Text = "¹øÈ£:" & ÀϷùøÈ£ & Space(1) & "°ü¸®¹øÈ£:" & °ü¸®¹øÈ£ & Space(1) & ":" & Space(1) & ÇàÁ¤µµ½Ã & Space(1) & Áö¿ª¸í & Space(1) & ¹øÁö

        AddLog(">> DataRow_Value -> Group Label_text")

        '//Show WindowTitle
        Me.Text = "Ãâ·ÂÀÛ¾÷(¹øÈ£:" & ÀϷùøÈ£ & Space(1) & "°ü¸®¹øÈ£:" & °ü¸®¹øÈ£ & Space(1) & ":" & Space(1) & ÇàÁ¤µµ½Ã & Space(1) & Áö¿ª¸í & Space(1) & ¹øÁö & ")"
        '=====================================================================
        Me.Parse_LineBatch(New Short() { _
         Me.IDX_ÀϷùøÈ£, _
         Me.IDX_ÇàÁ¤µµ½Ã, _
         Me.IDX_Áö¿ª¸í, _
         Me.IDX_¹øÁö, _
         Me.IDX_°ü¸®¹øÈ£1, _
         Me.IDX_°ü¸®¹øÈ£2, _
         Me.IDX_¹®ÀÇÀüÈ­1, _
         Me.IDX_¹®ÀÇÀüÈ­2, _
         Me.IDX_ºñ°í1, _
         Me.IDX_ºñ°í2, _
         Me.IDX_ºñ°í3, _
         Me.IDX_°íÁ¤¹®ÀÚ1, _
         Me.IDX_°íÁ¤¹®ÀÚ2})
        '======================== ±âŸ =================================================
        If previewWindow Then Me.preview_window() '//ÀÌ°Ç ±âº»Æû¿¡ Á¤ÀǵǾîÀÖ´Ù.
        'ÈÞ ³¡³µ´Ù.......................................................
    End Sub

#Region "ÀÚÁÖ ¹Ù²ÜÀϾø´Â ºÎºÐ"

    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 BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter
        Me.BindingNavigatorPositionItem.Focus()
        Me.BindingNavigatorPositionItem.SelectAll()
    End Sub

#End Region
#Region "ÀÚÁ־ȰíÄ¡´Â°Í"

    ''' <summary>
    ''' µ¥ÀÌÅÍÇ¥½ÃÇ׸ñ¾Æ·¡ÀÇ ¸ðµç ¾ÆÀÌÅÛÀÇ Å¬¸¯À̺¥Æ®¿¡  ÁöÁ¤µÈ ÇÁ·Î½ÃÁ®¸¦ ÇÒ´çÇÑ´Ù.
    ''' </summary>
    ''' <remarks></remarks>
    Public Overrides Sub SetEventHandler()
        For Each MI As ToolStripMenuItem In Me.m_viewdata.DropDownItems
            AddHandler MI.Click, AddressOf ViewCheck_Click
        Next
    End Sub

    ''' <summary>
    ''' °³Ã¼°¡ ¼±ÅõǾúÀ»¶§ ÀÇ À̺¥Æ®
    ''' </summary>
    ''' <param name="obj"></param>
    ''' <remarks></remarks>
    Private Sub PrintForm_tongsin_SelectedControl(ByVal obj As CEpole.C_label) Handles Me.SelectedControl
        '//ƯÁ¤°³Ã¼°¡ ¼±ÅõǾúÀ»¶§ (ºÎ¸ð±×·ì¿¡¼­ ÆÐÅÏÀû¿ë¿©ºÎ¸¦ ã¾ÆÇ¥½ÃÇÑ´Ù.)
        AddLog("##´ÙÀ½°³Ã¼°¡ ¼±ÅõǾú½À´Ï´Ù(" & obj.Desc & " ű×=" & obj.Tag & ")")
        Me.lb_selcon.Text = "[" & obj.Desc & "]"
    End Sub

    Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_close.Click
        Me.Close()
    End Sub
    Private Sub m_shortkey_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_shortkey.Click
        Me.Show_ShortKey()
    End Sub

#End Region

  
End Class