Public Class RuningLog

    Public Shared level As Integer = 1 '日志级别 0：不输出日志 1：输出日志2：输出基础日志和错误信息
    Delegate Function Deleg_OutputLogsToTheControl(c As Control， config As RuningLogConfig, Controltype As Integer) As Boolean
    '输出日志到控件
    ''' <summary>
    ''' ''输出日志到控件
    ''' </summary>
    ''' <param name="c">控件 </param>
    ''' <param name="config">日志</param>
    ''' <returns></returns>
    Public Shared Function OutputLogsToTheControl(c As Control， config As RuningLogConfig, Controltype As Integer) As Boolean
        Try
            If c.InvokeRequired Then
                Dim dev As New Deleg_OutputLogsToTheControl(AddressOf OutputLogsToTheControl)
                c.Invoke(dev, New Object() {c, config, Controltype})
            Else
                If Controltype >= level Then
                    Dim nc As RichTextBox = c
                    '获取富文本字符串末端位置
                    Dim index As Integer = nc.TextLength
                    'If (Not IsNothing(config.strdata)) AndAlso config.strdata.Length > 0 Then
                    '    config.logstr = config.logstr & DataProcessing.ByteToString2(config.strdata)
                    'End If

                    Dim strtxt = config.logstr & vbCrLf
                    '设置光标位置
                    nc.SelectionStart = index
                    '添加文本
                    nc.AppendText(strtxt)
                    '设置选择区域
                    nc.Select(index, strtxt.Length)
                    '设置选择区域颜色
                    nc.SelectionColor = config.logstrColor
                    '设置选择区域字体
                    nc.SelectionFont = config.logstrFont
                    '取消选中区域
                    nc.DeselectAll()

                End If


            End If
        Catch ex As Exception

        End Try


    End Function

    '字符串附加时间戳
    Public Shared Function AddTimeStamps(str As String) As String
        Return Now.ToString("yyyy-MM-dd HH:mm:ss:fff") & " " & str
    End Function



End Class
Public Class RuningLogConfig
    '日志信息
    Public logstr As String
    '日志信息颜色
    Public logstrColor As Color
    '日志信息字体
    Public logstrFont As Font
    '日志信息字体大小
    'Public logstrFontSize As Integer
    ''日志信息字体粗细
    'Public logstrFontBold As Boolean
    ''日志信息字体斜体
    'Public logstrFontItalic As Boolean
    ''日志信息字体下划线
    'Public logstrFontUnderline As Boolean
    ''日志信息字体删除线
    'Public logstrFontStrikeout As Boolean
    ''日志信息字体对齐方式
    'Public logstrFontAlign As StringAlignment
    '日志信息字体背景色
    Public logstrFontBackColor As Color
    Public strdata As Byte()

    ''' <summary>
    ''' 文本、颜色、Font 
    ''' </summary>
    ''' <param name="args"></param>
    'Sub New(ParamArray args() As Object)
    '    If args.Length > 0 Then
    '        logstr = RuningLog.AddTimeStamps(args(0).ToString)

    '        If args.Length > 1 Then

    '            logstrColor = args(1)
    '            If args.Length > 2 Then
    '                logstrFont = args(2)
    '            Else
    '                logstrFont = New Font("宋体", 8)

    '            End If

    '            If args.Length > 3 Then
    '                strdata = args(3)
    '            Else
    '                strdata = Nothing
    '            End If

    '        Else
    '            logstrColor = Color.Black
    '        End If
    '    Else
    '        logstr = "输空文本"
    '        logstrColor = Color.Black
    '        logstrFont = New Font("宋体", 12)
    '    End If

    'End Sub
    Sub New(ParamArray args() As Object)
        logstr = RuningLog.AddTimeStamps(args(0).ToString)
        logstrColor = args(1)
        logstrFont = New Font("宋体", CInt(args(2)))
    End Sub


End Class