通过

如何：当应用程序启动或关闭时记录消息 (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)

示例

可以通过“项目设计器” 访问“代码编辑器”中的应用程序事件。 有关详细信息，请参阅 Application Page, Project Designer (Visual Basic)（应用程序页、项目设计器 (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

另请参阅