如何：在应用程序启动或关闭时记录消息（Visual Basic）

您可以使用My.Application.Log和My.Log对象来记录有关应用程序中发生事件的信息。 此示例演示如何使用My.Application.Log.WriteEntry方法和Startup、Shutdown事件来写入跟踪信息。

访问应用程序的事件处理程序代码

1. 在 解决方案资源管理器中选择项目。 在 “项目” 菜单上，选择 “属性”。

2. 单击 “应用程序 ”选项卡。

3. 单击“ 查看应用程序事件 ”按钮打开代码编辑器。

   这会打开ApplicationEvents.vb文件。

在应用程序启动时记录消息

1. 在代码编辑器中打开ApplicationEvents.vb文件。 在 “常规 ”菜单上，选择 “MyApplication 事件”。

2. 在 “声明 ”菜单上，选择“ 启动”。

   应用程序在主应用程序运行之前引发 Startup 事件。

3. 将 My.Application.Log.WriteEntry 方法添加到 Startup 事件处理程序。

   My.Application.Log.WriteEntry("Application started at " &
       My.Computer.Clock.GmtTime.ToString)
   

在应用程序关闭时记录消息

1. 在代码编辑器中打开ApplicationEvents.vb文件。 在 “常规 ”菜单上，选择 “MyApplication 事件”。

2. 在 “声明 ”菜单上，选择“ 关闭”。

   主应用程序在运行后但关闭前会引发Shutdown事件。

3. 将 My.Application.Log.WriteEntry 方法添加到 Shutdown 事件处理程序。

   My.Application.Log.WriteEntry("Application shut down at " &
       My.Computer.Clock.GmtTime.ToString)
   

示例：

可以使用 项目设计器 访问代码编辑器中的应用程序事件。 有关详细信息，请参阅应用程序页、项目设计器（Visual Basic）。

Private Sub MyApplication_Startup(
    ByVal sender As Object,
    ByVal e As ApplicationServices.StartupEventArgs
) Handles Me.Startup
    My.Application.Log.WriteEntry("Application started at " &
        My.Computer.Clock.GmtTime.ToString)
End Sub

Private Sub MyApplication_Shutdown(
    ByVal sender As Object,
    ByVal e As System.EventArgs
) Handles Me.Shutdown
    My.Application.Log.WriteEntry("Application shut down at " &
        My.Computer.Clock.GmtTime.ToString)
End Sub

另请参阅

• Microsoft.VisualBasic.Logging.Log
• WriteEntry
• WriteException
• 应用页面，项目设计器（Visual Basic）
• 处理应用程序日志