TextWriterTraceListener 构造函数

定义

命名空间:

System.Diagnostics

程序集:

netstandard.dll, System.Diagnostics.TextWriterTraceListener.dll

初始化 TextWriterTraceListener 类的新实例。

重载

名称	说明
TextWriterTraceListener()	使用输出收件人初始化类TextWriterTraceListener的新实例TextWriter。
TextWriterTraceListener(Stream)	使用流作为调试和跟踪输出的接收方初始化类的新实例 TextWriterTraceListener 。
TextWriterTraceListener(TextWriter)	使用指定的编写器作为跟踪或调试输出的接收方初始化类的新实例 TextWriterTraceListener 。
TextWriterTraceListener(String)	使用文件作为调试和跟踪输出的接收方初始化类的新实例 TextWriterTraceListener 。
TextWriterTraceListener(Stream, String)	使用流作为调试和跟踪输出的接收方，使用指定名称初始化类的新实例 TextWriterTraceListener 。
TextWriterTraceListener(TextWriter, String)	使用指定的编写器作为跟踪或调试输出的接收方，用指定的名称初始化类的新实例 TextWriterTraceListener 。
TextWriterTraceListener(String, String)	使用指定名称初始化类的新实例 TextWriterTraceListener ，使用该文件作为调试和跟踪输出的接收方。

TextWriterTraceListener()

Source:

TextWriterTraceListener.cs

使用输出收件人初始化类TextWriterTraceListener的新实例TextWriter。

public:
 TextWriterTraceListener();

public TextWriterTraceListener();

Public Sub New ()

示例

以下示例使用构造函数创建一个TextWriterTraceListenerTextWriterTraceListener()。 它将属性 Writer 设置为控制台输出，然后将属性 TextWriterTraceListener 添加到控制台输出中 TraceListenerCollection。 它在两个段中写入消息，然后关闭 。TextWriterTraceListener

public class Sample
{
    public static void Main(string[] args)
    {
        /* Create a text writer that writes to the console screen and add
         * it to the trace listeners */
        TextWriterTraceListener myWriter = new TextWriterTraceListener();
        myWriter.Writer = System.Console.Out;
        Trace.Listeners.Add(myWriter);

        // Write the output to the console screen.
        myWriter.Write("Write to the Console screen. ");
        myWriter.WriteLine("Again, write to console screen.");

        // Flush and close the output.
        myWriter.Flush();
        myWriter.Close();
    }
}

Public Class Sample
    
    Public Shared Sub Main()
        ' Create a text writer that writes to the console screen and add
        ' it to the trace listeners 
        Dim myWriter As New TextWriterTraceListener()
        myWriter.Writer = System.Console.Out
        Trace.Listeners.Add(myWriter)
        
        ' Write the output to the console screen.
        myWriter.Write("Write to the Console screen. ")
        myWriter.WriteLine("Again, write to console screen.")
        
        ' Flush and close the output.
        myWriter.Flush()
        myWriter.Close()
    End Sub

End Class

注解

此构造函数使用 TextWriter 流作为跟踪或调试输出的接收方。 其 Name 属性初始化为空字符串（“”或 String.Empty）。

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace

TextWriterTraceListener(Stream)

Source:

TextWriterTraceListener.cs

使用流作为调试和跟踪输出的接收方初始化类的新实例 TextWriterTraceListener 。

public:
 TextWriterTraceListener(System::IO::Stream ^ stream);

public TextWriterTraceListener(System.IO.Stream stream);

new System.Diagnostics.TextWriterTraceListener : System.IO.Stream -> System.Diagnostics.TextWriterTraceListener

Public Sub New (stream As Stream)

参数

stream

Stream

一个 Stream 表示写入到的 TextWriterTraceListener 流。

例外

ArgumentNullException

流为 null.

示例

下面的代码示例使用TextWriterTraceListener构造函数创建一个TextWriterTraceListener(Stream)并将其添加到 .TraceListenerCollection 然后，该示例将两条消息写入此TextWriterTraceListener消息，并将一条消息写入其中TraceListener的所有TraceListenerCollection对象。 最后，它会刷新并关闭 TextWriterTraceListener。

using System;
using System.Diagnostics;
using System.IO;
using Microsoft.VisualBasic;

class TWTLConStreamMod
{

    // args(0) is the specification of the trace log file.
    public static void Main(string[] args)
    {

        // Verify that a parameter was entered.
        if (args.Length==0)
        {
            Console.WriteLine("Enter a trace file specification.");
        }
        else
        {
            // Create a stream object.
            FileStream traceStream;
            try
            {
                traceStream = new FileStream(args[0], FileMode.Append, FileAccess.Write);
            }
            catch(Exception ex)
            {
                Console.WriteLine("Error creating FileStream for trace file \"{0}\":" +
                    "\r\n{1}", args[0], ex.Message);
                return;
            }

            // Create a TextWriterTraceListener object that takes a stream.
            TextWriterTraceListener textListener;
            textListener = new TextWriterTraceListener(traceStream);
            Trace.Listeners.Add(textListener);

            // Write these messages only to this TextWriterTraceListener.
            textListener.WriteLine("This is trace listener named \""+ textListener.Name+"\"");
            textListener.WriteLine("Trace written through a stream to: " +
                "\r\n    \""+args[0]+"\"");

            // Write a message to all trace listeners.
            Trace.WriteLine(String.Format("This trace message written {0} to all listeners.", DateTime.Now));

            // Flush and close the output.
            Trace.Flush();
            textListener.Flush();
            textListener.Close();
        }
    }
}

Imports System.Diagnostics
Imports System.IO

Module TWTLConStreamMod

    ' args(0) is the specification of the trace log file.
    Sub Main(ByVal args() As String)

        ' Verify that a parameter was entered.
        If args.Length = 0 Then
            Console.WriteLine("Enter a trace file specification.")

        Else
            ' Create a stream object.
            Dim traceStream As FileStream
            Try
                traceStream = New FileStream( _
                    args(0), FileMode.Append, FileAccess.Write)
            Catch ex As Exception
                Console.WriteLine( _
                    "Error creating FileStream for trace file ""{0}"":" & _
                    vbCrLf & "{1}", args(0), ex.Message)
                Return
            End Try

            ' Create a TextWriterTraceListener object that takes a stream.
            Dim textListener As TextWriterTraceListener
            textListener = New TextWriterTraceListener(traceStream)
            Trace.Listeners.Add(textListener)

            ' Write these messages only to this TextWriterTraceListener.
            textListener.WriteLine( _
                "This is trace listener named """ & textListener.Name & """")
            textListener.WriteLine( _
                "Trace written through a stream to: " & _
                vbCrLf & "    """ & args(0) & """")

            ' Write a message to all trace listeners.
            Trace.WriteLine(String.Format( _
                "This trace message written {0} to all listeners.", Now))

            ' Flush and close the output.
            Trace.Flush()
            textListener.Flush()
            textListener.Close()
        End If
    End Sub
End Module

注解

此构造函数将 Name 属性初始化为空字符串（“）。

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace

TextWriterTraceListener(TextWriter)

Source:

TextWriterTraceListener.cs

使用指定的编写器作为跟踪或调试输出的接收方初始化类的新实例 TextWriterTraceListener 。

public:
 TextWriterTraceListener(System::IO::TextWriter ^ writer);

public TextWriterTraceListener(System.IO.TextWriter writer);

new System.Diagnostics.TextWriterTraceListener : System.IO.TextWriter -> System.Diagnostics.TextWriterTraceListener

Public Sub New (writer As TextWriter)

参数

writer

TextWriter

接收来自 的输出的 A。

例外

ArgumentNullException

编写器是 null。

示例

下面的代码示例使用构造函数创建一个TextWriterTraceListenerTextWriterTraceListener(TextWriter)。 该示例创建一个 StreamWriter，然后引用 StreamWriter 它创建 TextWriterTraceListener时，它将添加到其中 TraceListenerCollection。 该示例将一条消息写入 TraceListener 到所有对象中 TraceListenerCollection，然后关闭此 TextWriterTraceListener消息。

#define TRACE

using System;
using System.IO;
using System.Diagnostics;

public class TextWriterTraceListenerSample
{
    public static void Main()
    {
        TextWriterTraceListener myTextListener = null;

        // Create a file for output named TestFile.txt.
        string myFileName = "TestFile.txt";
        StreamWriter myOutputWriter = new StreamWriter(myFileName, true);

        // Add a TextWriterTraceListener for the file.
        myTextListener = new TextWriterTraceListener(myOutputWriter);
        Trace.Listeners.Add(myTextListener);

        // Write trace output to all trace listeners.
        Trace.WriteLine(DateTime.Now.ToString() + " - Trace output");

        // Remove and close the file writer/trace listener.
        myTextListener.Flush();
        Trace.Listeners.Remove(myTextListener);
        myTextListener.Close();
    }
}

#Const TRACE=True

Imports System.IO
Imports System.Diagnostics

Public Class TextWriterTraceListenerSample
   
   Public Shared Sub Main()
      Dim myTextListener As TextWriterTraceListener = Nothing

      ' Create a file for output named TestFile.txt.
      Dim myFileName As String = "TestFile.txt"
      Dim myOutputWriter As New StreamWriter(myFileName, True)
 
      ' Add a TextWriterTraceListener for the file.
      myTextListener = New TextWriterTraceListener(myOutputWriter)
      Trace.Listeners.Add(myTextListener)
     
      ' Write trace output to all trace listeners.
      Trace.WriteLine(DateTime.Now.ToString() + " - Trace output")
      
      ' Remove and close the file writer/trace listener.
      myTextListener.Flush()
      Trace.Listeners.Remove(myTextListener)
      myTextListener.Close()

   End Sub
End Class

注解

此构造函数将 Name 属性初始化为空字符串（“）。

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace

TextWriterTraceListener(String)

Source:

TextWriterTraceListener.cs

使用文件作为调试和跟踪输出的接收方初始化类的新实例 TextWriterTraceListener 。

public:
 TextWriterTraceListener(System::String ^ fileName);

public TextWriterTraceListener(string? fileName);

new System.Diagnostics.TextWriterTraceListener : string -> System.Diagnostics.TextWriterTraceListener

Public Sub New (fileName As String)

参数

fileName

String

写入到的文件 TextWriterTraceListener 的名称。

例外

ArgumentNullException

文件为 null.

示例

下面的代码示例使用TextWriterTraceListener构造函数创建一个TextWriterTraceListener(String)，然后将其添加到 .TraceListenerCollection 本示例将两条消息写入此TextWriterTraceListener内容，然后将一条消息写入其中TraceListener的所有TraceListenerCollection对象。 最后，它会刷新并关闭 TextWriterTraceListener。

using System;
using System.Diagnostics;
using Microsoft.VisualBasic;

class TWTLConStringMod
{

    // args(0) is the specification of the trace log file.
    public static void Main(string[] args)
    {

        // Verify that a parameter was entered.
        if (args.Length==0)
        {
            Console.WriteLine("Enter a trace file specification.");
        }
        else
        {
            // Create a TextWriterTraceListener object that takes a
            // file specification.
            TextWriterTraceListener textListener;
            try
            {
                textListener = new TextWriterTraceListener(args[0]);
                Trace.Listeners.Add(textListener);
            }
            catch(Exception ex)
            {
                Console.WriteLine("Error creating TextWriterTraceListener for trace " +
                    "file \"{0}\":\r\n{1}", args[0], ex.Message);
                return;
            }

            // Write these messages only to the TextWriterTraceListener.
            textListener.WriteLine("This is trace listener named \""+textListener.Name+"\"");
            textListener.WriteLine("Trace written to a file: " +
                "\r\n    \""+args[0]+"\"");

            // Write a message to all trace listeners.
            Trace.WriteLine(String.Format("This trace message written {0} to all listeners.", DateTime.Now));

            // Flush and close the output.
            Trace.Flush();
            textListener.Flush();
            textListener.Close();
        }
    }
}

Imports System.Diagnostics

Module TWTLConStringMod

    ' args(0) is the specification of the trace log file.
    Sub Main(ByVal args() As String)

        ' Verify that a parameter was entered.
        If args.Length = 0 Then
            Console.WriteLine("Enter a trace file specification.")

        Else
            ' Create a TextWriterTraceListener object that takes a 
            ' file specification.
            Dim textListener As TextWriterTraceListener
            Try
                textListener = New TextWriterTraceListener(args(0))
                Trace.Listeners.Add(textListener)
            Catch ex As Exception
                Console.WriteLine( _
                    "Error creating TextWriterTraceListener for trace " & _
                    "file ""{0}"":" & vbCrLf & "{1}", args(0), ex.Message)
                Return
            End Try

            ' Write these messages only to the TextWriterTraceListener.
            textListener.WriteLine( _
                "This is trace listener named """ & textListener.Name & """")
            textListener.WriteLine("Trace written to a file: " & _
                vbCrLf & "    """ & args(0) & """")

            ' Write a message to all trace listeners.
            Trace.WriteLine(String.Format( _
                "This trace message written {0} to all listeners.", Now))

            ' Flush and close the output.
            Trace.Flush()
            textListener.Flush()
            textListener.Close()
        End If
    End Sub
End Module

注解

此构造函数将 Name 属性初始化为空字符串（“）。

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace

TextWriterTraceListener(Stream, String)

Source:

TextWriterTraceListener.cs

使用流作为调试和跟踪输出的接收方，使用指定名称初始化类的新实例 TextWriterTraceListener 。

public:
 TextWriterTraceListener(System::IO::Stream ^ stream, System::String ^ name);

public TextWriterTraceListener(System.IO.Stream stream, string? name);

new System.Diagnostics.TextWriterTraceListener : System.IO.Stream * string -> System.Diagnostics.TextWriterTraceListener

Public Sub New (stream As Stream, name As String)

参数

stream

Stream

一个 Stream 表示写入到的 TextWriterTraceListener 流。

name

String

新实例的名称。

例外

ArgumentNullException

流为 null.

示例

下面的代码示例使用TextWriterTraceListener构造函数创建一个TextWriterTraceListener(Stream, String)并将其添加到 .TraceListenerCollection 然后，该示例将两条消息写入此TextWriterTraceListener消息，并将一条消息写入其中TraceListener的所有TraceListenerCollection对象。 最后，它会刷新并关闭 TextWriterTraceListener。

using System;
using System.Diagnostics;
using System.IO;
using Microsoft.VisualBasic;

class TWTLConStreamNameMod
{

    const string LISTENER_NAME = "myStreamListener";

    // args(0) is the specification of the trace log file.
    public static void Main(string[] args)
    {

        // Verify that a parameter was entered.
        if (args.Length==0)
        {
            Console.WriteLine("Enter a trace file specification.");
        }
        else
        {
            // Create a stream object.
            FileStream traceStream;
            try
            {
                traceStream = new FileStream(args[0], FileMode.Append, FileAccess.Write);
            }
            catch(Exception ex)
            {
                Console.WriteLine("Error creating FileStream for trace file \"{0}\":" +
                    "\r\n{1}", args[0], ex.Message);
                return;
            }

            // Create a TextWriterTraceListener object that takes a stream.
            TextWriterTraceListener textListener;
            textListener = new TextWriterTraceListener(traceStream, LISTENER_NAME);
            Trace.Listeners.Add(textListener);

            // Write these messages only to the TextWriterTraceListener.
            textListener.WriteLine("This is trace listener named \""+textListener.Name+"\"");
            textListener.WriteLine("Trace written through a stream to: " +
                "\r\n    \""+args[0]+"\"");

            // Write a message to all trace listeners.
            Trace.WriteLine(String.Format("This trace message written {0} to all listeners.", DateTime.Now));

            // Flush and close the output.
            Trace.Flush();
            textListener.Flush();
            textListener.Close();
        }
    }
}

Imports System.Diagnostics
Imports System.IO

Module TWTLConStreamNameMod

    Const LISTENER_NAME As String = "myStreamListener"

    ' args(0) is the specification of the trace log file.
    Sub Main(ByVal args() As String)

        ' Verify that a parameter was entered.
        If args.Length = 0 Then
            Console.WriteLine("Enter a trace file specification.")

        Else
            ' Create a stream object.
            Dim traceStream As FileStream
            Try
                traceStream = New FileStream( _
                    args(0), FileMode.Append, FileAccess.Write)
            Catch ex As Exception
                Console.WriteLine( _
                    "Error creating FileStream for trace file ""{0}"":" & _
                    vbCrLf & "{1}", args(0), ex.Message)
                Return
            End Try

            ' Create a TextWriterTraceListener object that takes a stream.
            Dim textListener As TextWriterTraceListener
            textListener = _
                New TextWriterTraceListener(traceStream, LISTENER_NAME)
            Trace.Listeners.Add(textListener)

            ' Write these messages only to the TextWriterTraceListener.
            textListener.WriteLine( _
                "This is trace listener named """ & textListener.Name & """")
            textListener.WriteLine( _
                "Trace written through a stream to: " & _
                vbCrLf & "    """ & args(0) & """")

            ' Write a message to all trace listeners.
            Trace.WriteLine(String.Format( _
                "This trace message written {0} to all listeners.", Now))

            ' Flush and close the output.
            Trace.Flush()
            textListener.Flush()
            textListener.Close()
        End If
    End Sub
End Module

注解

此构造函数将 Name 属性初始化为 name 参数或空字符串（“”），如果 name 参数为 null。

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace

TextWriterTraceListener(TextWriter, String)

Source:

TextWriterTraceListener.cs

使用指定的编写器作为跟踪或调试输出的接收方，用指定的名称初始化类的新实例 TextWriterTraceListener 。

public:
 TextWriterTraceListener(System::IO::TextWriter ^ writer, System::String ^ name);

public TextWriterTraceListener(System.IO.TextWriter writer, string? name);

new System.Diagnostics.TextWriterTraceListener : System.IO.TextWriter * string -> System.Diagnostics.TextWriterTraceListener

Public Sub New (writer As TextWriter, name As String)

参数

writer

TextWriter

接收来自 的输出的 A。

name

String

新实例的名称。

例外

ArgumentNullException

编写器是 null。

示例

下面的代码示例使用构造函数创建一个TextWriterTraceListenerTextWriterTraceListener(TextWriter, String)。 该示例创建一个 StreamWriter，然后引用 StreamWriter 它创建 TextWriterTraceListener时，它将添加到其中 TraceListenerCollection。 本示例将两条消息写入此TextWriterTraceListener内容，然后将一条消息写入其中TraceListener的所有TraceListenerCollection对象。 最后，它会刷新并关闭 TextWriterTraceListener。

using System;
using System.Diagnostics;
using System.IO;
using Microsoft.VisualBasic;

class TWTLConWriterNameMod
{

    const string LISTENER_NAME = "myWriterListener";

    // args(0) is the specification of the trace log file.
    public static void Main(string[] args)
    {

        // Verify that a parameter was entered.
        if (args.Length==0)
        {
            Console.WriteLine("Enter a trace file specification.");
        }
        else
        {
            // Create a StreamWriter object that supports appending.
            StreamWriter traceWriter;
            try
            {
                traceWriter = new StreamWriter(args[0], true);
            }
            catch(Exception ex)
            {
                Console.WriteLine("Error creating StreamWriter for trace file \"{0}\":" +
                    "\r\n{1}", args[0], ex.Message);
                return;
            }

            // Create a TextWriterTraceListener that takes a StreamWriter.
            TextWriterTraceListener textListener;
            textListener = new TextWriterTraceListener(traceWriter, LISTENER_NAME);
            Trace.Listeners.Add(textListener);

            // Write these messages only to this TextWriterTraceListener.
            textListener.WriteLine("This is trace listener named \""+textListener.Name+"\"");
            textListener.WriteLine("Trace written through a stream to: " +
                "\r\n    \""+args[0]+"\"");

            // Write a message to all trace listeners.
            Trace.WriteLine(String.Format("This trace message written {0} to all listeners.", DateTime.Now));

            // Flush and close the output.
            Trace.Flush();
            textListener.Flush();
            textListener.Close();
        }
    }
}

Imports System.Diagnostics
Imports System.IO

Module TWTLConWriterNameMod

    Const LISTENER_NAME As String = "myWriterListener"

    ' args(0) is the specification of the trace log file.
    Sub Main(ByVal args() As String)

        ' Verify that a parameter was entered.
        If args.Length = 0 Then
            Console.WriteLine("Enter a trace file specification.")

        Else
            ' Create a StreamWriter object that supports appending.
            Dim traceWriter As StreamWriter
            Try
                traceWriter = New StreamWriter(args(0), True)
            Catch ex As Exception
                Console.WriteLine( _
                    "Error creating StreamWriter for trace file ""{0}"":" & _
                    vbCrLf & "{1}", args(0), ex.Message)
                Return
            End Try

            ' Create a TextWriterTraceListener that takes a StreamWriter.
            Dim textListener As TextWriterTraceListener
            textListener = _
                New TextWriterTraceListener(traceWriter, LISTENER_NAME)
            Trace.Listeners.Add(textListener)

            ' Write these messages only to this TextWriterTraceListener.
            textListener.WriteLine( _
                "This is trace listener named """ & textListener.Name & """")
            textListener.WriteLine( _
                "Trace written through a stream to: " & _
                vbCrLf & "    """ & args(0) & """")

            ' Write a message to all trace listeners.
            Trace.WriteLine(String.Format( _
                "This trace message written {0} to all listeners.", Now))

            ' Flush and close the output.
            Trace.Flush()
            textListener.Flush()
            textListener.Close()
        End If
    End Sub
End Module

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace

TextWriterTraceListener(String, String)

Source:

TextWriterTraceListener.cs

使用指定名称初始化类的新实例 TextWriterTraceListener ，使用该文件作为调试和跟踪输出的接收方。

public:
 TextWriterTraceListener(System::String ^ fileName, System::String ^ name);

public TextWriterTraceListener(string? fileName, string? name);

new System.Diagnostics.TextWriterTraceListener : string * string -> System.Diagnostics.TextWriterTraceListener

Public Sub New (fileName As String, name As String)

参数

fileName

String

写入到的文件 TextWriterTraceListener 的名称。

name

String

新实例的名称。

例外

ArgumentNullException

流为 null.

示例

下面的代码示例使用TextWriterTraceListener构造函数创建一个TextWriterTraceListener(String, String)，然后将其添加到 .TraceListenerCollection 本示例将两条消息写入此TextWriterTraceListener内容，然后将一条消息写入其中TraceListener的所有TraceListenerCollection对象。 最后，它会刷新并关闭 TextWriterTraceListener。

using System;
using System.Diagnostics;
using Microsoft.VisualBasic;

class TWTLConStringNameMod
{

    const string LISTENER_NAME = "myStringListener";

    // args(0) is the specification of the trace log file.
    public static void Main(string[] args)
    {

        // Verify that a parameter was entered.
        if (args.Length==0)
        {
            Console.WriteLine("Enter a trace file specification.");
        }
        else
        {
            // Create a TextWriterTraceListener object that takes a
            // file specification.
            TextWriterTraceListener textListener;
            try
            {
                textListener = new TextWriterTraceListener(args[0], LISTENER_NAME);
                Trace.Listeners.Add(textListener);
            }
            catch(Exception ex)
            {
                Console.WriteLine("Error creating TextWriterTraceListener for trace " +
                    "file \"{0}\":\r\n{1}", args[0], ex.Message);
                return;
            }

            // Write these messages only to this TextWriterTraceListener.
            textListener.WriteLine("This is trace listener named \""+textListener.Name+"\"");
            textListener.WriteLine("Trace written to a file: " +
                "\r\n    \""+args[0]+"\"");

            // Write a message to all trace listeners.
            Trace.WriteLine(String.Format("This trace message written {0} to all listeners.", DateTime.Now));

            // Flush and close the output.
            Trace.Flush();
            textListener.Flush();
            textListener.Close();
        }
    }
}

Imports System.Diagnostics

Module TWTLConStringNameMod

    Const LISTENER_NAME As String = "myStringListener"

    ' args(0) is the specification of the trace log file.
    Sub Main(ByVal args() As String)

        ' Verify that a parameter was entered.
        If args.Length = 0 Then
            Console.WriteLine("Enter a trace file specification.")

        Else
            ' Create a TextWriterTraceListener object that takes a 
            ' file specification.
            Dim textListener As TextWriterTraceListener
            Try
                textListener = _
                    New TextWriterTraceListener(args(0), LISTENER_NAME)
                Trace.Listeners.Add(textListener)
            Catch ex As Exception
                Console.WriteLine( _
                    "Error creating TextWriterTraceListener for trace " & _
                    "file ""{0}"":" & vbCrLf & "{1}", args(0), ex.Message)
                Return
            End Try

            ' Write these messages only to this TextWriterTraceListener.
            textListener.WriteLine( _
                "This is trace listener named """ & textListener.Name & """")
            textListener.WriteLine("Trace written to a file: " & _
                vbCrLf & "    """ & args(0) & """")

            ' Write a message to all trace listeners.
            Trace.WriteLine(String.Format( _
                "This trace message written {0} to all listeners.", Now))

            ' Flush and close the output.
            Trace.Flush()
            textListener.Flush()
            textListener.Close()
        End If
    End Sub
End Module

注解

此构造函数将 Name 属性初始化为 name 参数或空字符串（“”），如果 name 参数为 null。

另请参阅

• TraceListener
• DefaultTraceListener
• ConsoleTraceListener
• EventLogTraceListener
• TextWriterTraceListener
• Stream
• TextWriter
• Debug
• Trace