' ' ' Option Strict Off Option Explicit Off Imports System Imports EnvDTE Imports EnvDTE80 Imports System.Diagnostics Imports AuroraMacros Public Module EnvironmentEvents #Region "Automatically generated code, do not modify" 'Automatically generated code, do not modify 'Event Sources Begin Public WithEvents DTEEvents As EnvDTE.DTEEvents Public WithEvents DocumentEvents As EnvDTE.DocumentEvents Public WithEvents WindowEvents As EnvDTE.WindowEvents Public WithEvents TaskListEvents As EnvDTE.TaskListEvents Public WithEvents FindEvents As EnvDTE.FindEvents Public WithEvents OutputWindowEvents As EnvDTE.OutputWindowEvents Public WithEvents SelectionEvents As EnvDTE.SelectionEvents Public WithEvents BuildEvents As EnvDTE.BuildEvents Public WithEvents SolutionEvents As EnvDTE.SolutionEvents Public WithEvents SolutionItemsEvents As EnvDTE.ProjectItemsEvents Public WithEvents MiscFilesEvents As EnvDTE.ProjectItemsEvents Public WithEvents DebuggerEvents As EnvDTE.DebuggerEvents Public WithEvents ProjectsEvents As EnvDTE.ProjectsEvents Public WithEvents TextDocumentKeyPressEvents As EnvDTE80.TextDocumentKeyPressEvents Public WithEvents CodeModelEvents As EnvDTE80.CodeModelEvents Public WithEvents DebuggerProcessEvents As EnvDTE80.DebuggerProcessEvents Public WithEvents DebuggerExpressionEvaluationEvents As EnvDTE80.DebuggerExpressionEvaluationEvents 'Event Sources End 'End of automatically generated code #End Region Dim __buildTimer As DateTime Private Sub BuildEvents_OnBuildBegin(ByVal Scope As EnvDTE.vsBuildScope, ByVal Action As EnvDTE.vsBuildAction) Handles BuildEvents.OnBuildBegin __buildTimer = Date.Now __WriteToOutputWindow(0, "Build started at: " + __buildTimer.ToString()) End Sub Private Sub BuildEvents_OnBuildDone(ByVal Scope As EnvDTE.vsBuildScope, ByVal Action As EnvDTE.vsBuildAction) Handles BuildEvents.OnBuildDone Dim totalTime As TimeSpan = Date.Now - __buildTimer __WriteToOutputWindow(0, "Solution build time: " + totalTime.ToString()) End Sub End Module