如何:当应用程序启动或关闭时记录消息 (Visual Basic)
可以使用 My.Application.Log
和 My.Log
对象来记录有关应用程序中所发生事件的信息。 本示例将演示如何结合使用 My.Application.Log.WriteEntry
方法与 Startup
和 Shutdown
事件来写入跟踪信息。
访问应用程序的事件处理程序代码
在 “解决方案资源管理器” 中选择一个项目。 在 “项目” 菜单上,选择 “属性” 。
单击“应用程序” 选项卡。
单击“查看应用程序事件” 按钮,打开“代码编辑器”。
此时将打开 ApplicationEvents.vb 文件。
在应用程序启动时记录消息
在“代码编辑器”中打开 ApplicationEvents.vb 文件。 在“常规” 菜单上,选择“MyApplication 事件” 。
在“声明” 菜单上,选择“启动” 。
在主应用程序运行之前,应用程序将引发 Startup 事件。
将
My.Application.Log.WriteEntry
方法添加到Startup
事件处理程序。My.Application.Log.WriteEntry("Application started at " & My.Computer.Clock.GmtTime.ToString)
在应用程序关闭时记录消息
在“代码编辑器”中打开 ApplicationEvents.vb 文件。 在“常规” 菜单上,选择“MyApplication 事件” 。
在“声明” 菜单上,选择“关闭” 。
在主应用程序运行之后、关闭之前,应用程序将引发 Shutdown 事件。
将
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