Public Class synclog

    Private Sub bt_clearStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_clear.Click
        Me.RichTextBox1.Clear()
    End Sub

    Private Sub bt_savelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savelist.Click
        Dim SD As New SaveFileDialog
        SD.FileName = "ºÒÀÏÄ¡¸ñ·Ïlog" & Format(Now, "yyyyMMdd") & ".txt"
        If SD.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then
            MsgBox("Ãë¼ÒµÇ¾ú½À´Ï´Ù", MsgBoxStyle.Critical, "»ç¿ëÀÚÃë¼Ò")
        Else
            Me.RichTextBox1.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText)
            MsgBox("ÀúÀå¿Ï·á", MsgBoxStyle.Information, "È®ÀÎ")
        End If
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Me.RichTextBox2.Clear()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Dim SD As New SaveFileDialog
        SD.FileName = "ÀÏÄ¡¸ñ·Ïlog" & Format(Now, "yyyyMMdd") & ".txt"
        If SD.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then
            MsgBox("Ãë¼ÒµÇ¾ú½À´Ï´Ù", MsgBoxStyle.Critical, "»ç¿ëÀÚÃë¼Ò")
        Else
            Me.RichTextBox2.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText)
            MsgBox("ÀúÀå¿Ï·á", MsgBoxStyle.Information, "È®ÀÎ")
        End If
    End Sub



    Private Sub bt_out1ripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_out1.Click
        Dim a As New SaveFileDialog
        a.Filter = "¿¢¼¿ ¿öÅ©½ÃÆ®ÆÄÀÏ(*.XLS)|*.XLS"
        a.FilterIndex = 0
        a.Title = "[¸ðµçµ¥ÀÌÅͳ»º¸³»±â] ÀúÀåÇÒ ¿¢¼¿ ÆÄÀÏÀ» ÁöÁ¤Çϼ¼¿ä"
        a.FileName = "ºñÆ÷ÇÔ¸ñ·Ï.xls"
        If a.ShowDialog() <> System.Windows.Forms.DialogResult.Cancel Then
            Dim msg As New System.Text.StringBuilder
            Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed)
            msg.AppendLine("[½ÃÆ®º¸È£]°¡ µÈÆÄÀÏÀº ¿­³Êºñ°¡ Á¶Á¤µÇÁö¾Ê½À´Ï´Ù.")
            msg.AppendLine()
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£] »óÅ¿¡¼­´Â ½ÃÆ®¸¦ ÆíÁýÇÒ ¼ö ¾ø½À´Ï´Ù")
            msg.AppendLine()
            msg.AppendLine("[½ÃÆ®º¸È£]¸¦ ÇØÁ¦ÇÏ·Á¸é  ÇØ´çÆÄÀÏÀ» ¿¢¼¿¿¡¼­ ºÒ·¯¿ÂÈÄ")
            msg.AppendLine("[µµ±¸]-[º¸È£]-[½ÃÆ®º¸È£ÇØÁ¦]¸¦ Ŭ¸¯Çϼ¼¿ä")
            MsgBox(msg.ToString, MsgBoxStyle.Information, "½ÃÆ®º¸È£")
        End If
    End Sub
End Class