Solucionar problemas: Agentes de escucha del Registro (Visual Basic)

Puede utilizar los objetos My.Application.Log y My.Log para registrar información sobre eventos que se producen en la aplicación.

Para determinar qué agentes de escucha de registro reciben esos mensajes, vea Tutorial: Determinar el lugar en el que My.Application.Log escribe la información (Visual Basic).

El objeto Log puede utilizar el filtrado del registro para limitar la cantidad de información que registra. Si los filtros se configuran de forma incorrecta, los registros pueden contener información equivocada. Para obtener más información sobre los filtros, vea Tutorial: Filtrar el resultado de My.Application.Log (Visual Basic).

Sin embargo, si un registro se configura incorrectamente, puede necesitar más información sobre su configuración actual. Puede obtener esta información mediante la propiedad TraceSource avanzada del registro.

Para determinar los agentes de escucha de registro del objeto Log con código

1. Importe el espacio de nombres System.Diagnostics al principio del archivo de código. Para obtener más información, vea Instrucción Imports (Tipo y espacio de nombres de .NET).

   Imports System.Diagnostics
   

2. Cree una función que devuelva una cadena compuesta por información de cada uno de los agentes de escucha del registro.

   Function GetListeners(ByVal listeners As TraceListenerCollection) As String
       Dim ret As String = ""
       For Each listener As TraceListener In listeners
           ret &= listener.Name
           Dim listenerType As Type = listener.GetType
           If listenerType Is GetType(DefaultTraceListener) Then
               Dim tmp As DefaultTraceListener = 
                   DirectCast(listener, DefaultTraceListener)
               ret &= ": Writes to the debug output."
           ElseIf listenerType Is GetType(Logging.FileLogTraceListener) Then
               Dim tmp As Logging.FileLogTraceListener = 
                   DirectCast(listener, Logging.FileLogTraceListener)
               ret &= ": Log filename: " & tmp.FullLogFileName
           ElseIf listenerType Is GetType(EventLogTraceListener) Then
               Dim tmp As EventLogTraceListener = 
                   DirectCast(listener, EventLogTraceListener)
               ret &= ": Event log name: " & tmp.EventLog.Log
           ElseIf listenerType Is GetType(XmlWriterTraceListener) Then
               Dim tmp As Diagnostics.XmlWriterTraceListener = 
                   DirectCast(listener, XmlWriterTraceListener)
               ret &= ": XML log"
           ElseIf listenerType Is GetType(ConsoleTraceListener) Then
               Dim tmp As ConsoleTraceListener = 
                   DirectCast(listener, ConsoleTraceListener)
               ret &= ": Console log"
           ElseIf listenerType Is GetType(DelimitedListTraceListener) Then
               Dim tmp As DelimitedListTraceListener = 
                   DirectCast(listener, DelimitedListTraceListener)
               ret &= ": Delimited log"
           Else
               ret &= ": Unhandeled log type: " & 
                   listenerType.ToString
           End If
           ret &= vbCrLf
       Next
   
       Return ret
   End Function
   

3. Pase la colección de los agentes de escucha de traza del registro a la función GetListeners y muestre el valor devuelto.

   Dim ListenerCollection As TraceListenerCollection
   ListenerCollection = My.Application.Log.TraceSource.Listeners
   Dim ListenersText As String = GetListeners(ListenerCollection)
   MsgBox(ListenersText)
   

   Para obtener más información, vea TraceSource.

Vea también

Tareas

Tutorial: Determinar el lugar en el que My.Application.Log escribe la información (Visual Basic)

Referencia

Microsoft.VisualBasic.Logging.Log

Conceptos

Trabajar con registros de aplicación en Visual Basic