PRB: EnableModeless Causes Events to Fire Late

MORE INFORMATION

The purpose of EnableModeless is to minimize user interface messages from Developer Studio while a macro or add-in is displaying a modal dialog box. EnableModeless should be set to False before invoking a modal dialog box, and set to True after dismissing the dialog box. The object model stores events while EnableModeless is False, and fires them when it is set to True. Under normal conditions, EnableModeless should be set to True.

The following Visual Basic subroutine demonstrates the problem. Call CheckBuildEvents with the name of a workspace that includes at least one buildable project. Before you can run the sample code, you must set a reference to the Visual Studio object model.

1. From the Project menu, click References.
   
   For Visual Studio 97, click:
   
   
   • Visual Studio 97 Shared Objects -and-
     
     
   • Visual Studio 97 Project System
   For Visual Studio 6.0, click:
   
   
   • Visual C++ Shared Objects -and-
     
     
   • Visual C++ Project System
2. Click OK.

Sample Code

   Private WithEvents DevSt As DSSharedObjects.Application
   Private Sub CheckBuildEvents(strWksp As String)
      Dim cfg As DSProjectSystem.Configuration

      ' Create a new instance of DevStudio.
      Set DevSt = New DSSharedObjects.Application
      DevSt.Visible = True   ' Developer Studio must be invisible for
                             ' EnableModeless.
      DevSt.EnableModeless (False)
      Debug.Print "Opening Workspace "; strWksp
      DevSt.Documents.Open strWksp
      cfg = DevSt.ActiveProject.Configurations.Item(1)
      Debug.Print "Starting build: "; cfg
      DevSt.RebuildAll cfg
      Debug.Print "Closing workspace "; strWksp
      DevSt.ExecuteCommand "WorkspaceClose"
      DevSt.EnableModeless (True)   ' Events occur here if DevStudio is
                                    ' visible.
      DevSt.Quit
   End Sub
   Private Sub DevSt_BeforeBuildStart()
      Debug.Print ">BeforeBuildStart"
   End Sub
   Private Sub DevSt_BuildFinish(ByVal nErr As Long, ByVal nWrn As Long)
      Debug.Print ">BuildFinish: nErr ="; nErr; "; nWrn ="; nWrn
   End Sub
				

For example, if you have a workspace named MyWksp.dsw with one project named MyProj, the following Visual Basic subroutine call

   CheckBuildEvents "MyWksp.dsw"
				

produces the following output in the debug window:

   Opening Workspace MyWksp.dsw
   Starting build: MyProj - Win32 Release
   Closing Workspace MyWksp.dsw
   >BeforeBuildStart
   >BuildFinish: nErr = 0; nWrn = 0
				

Now modify the subroutine, changing the following line

   DevSt.Visible = True ' Developer Studio must be invisible for
                        ' EnableModeless.
				

to the following:

   DevSt.Visible = False
				

Rerunning the test correctly produces the following output:

   Opening Workspace MyWksp.dsw

   Starting build: MyProj - Win32 Release
   >BeforeBuildStart
   >BuildFinish: nErr = 0; nWrn = 0
   Closing Workspace MyWksp.dsw