DTE.ExecuteCommand và đợi

Question

Tôi muốn sử dụng các macro để xuất bản dự án ứng dụng web của tôi. Vấn đề nhỏ là, DTE.ExecuteCommand chạy không đồng bộ, và tôi cần đợi cho đến khi lệnh được thực hiện.

Ví dụ:

DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer).Activate() 
    DTE.ActiveWindow.Object.GetItem("04 - Products\04 - Products.WSS").Select(vsUISelectionType.vsUISelectionTypeSelect) 
    DTE.ExecuteCommand("ClassViewContextMenus.ClassViewProject.Publish") 
    '// now I want copy (and overwrite) some files, but AFTER the publish 

Có một số đối tượng đồng bộ hóa hoặc thông tin về trạng thái của lệnh thực thi?

Cảm ơn

Answer 1

Xin chào các bạn, nếu bạn vẫn đang tìm câu trả lời cho câu trả lời này, hãy thử.

Gắn vào các sự kiện xuất bản và trên một cuộc gọi push thành công, hãy gọi lệnh bên ngoài của bạn. Tôi đang làm một điều tương tự với việc xây dựng các giải pháp và sau đó bắn các Á hậu thử nghiệm MSpec (blog post).

Để thực hiện việc này, bạn cần phải thêm vào móc cho PublishEvents_OnPublishDone. Thực hiện việc này bằng cách chuyển đến Mô-đun EnvironmentEvents và thêm vào các nội dung sau:

<System.contextStaticAttribute()> Public WithEvents PublishEvents As EnvDTE80.PublishEvents 

Private Sub PublishEvents_OnPublishDone(ByVal Success As Boolean) Handles PublishEvents.OnPublishDone 
    'call custom module sub here. 
End Sub 

Nếu bạn chỉ muốn chạy lệnh bên ngoài đôi khi làm điều gì đó như thế này. Tạo macro của bạn như thế này:

Public runExternalCommandOnComplete As Boolean = False 

Sub PublishAndRunExternalCommand() 

    DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer).Activate() 
    DTE.ActiveWindow.Object.GetItem("04 - Products\04 - Products.WSS").Select(vsUISelectionType.vsUISelectionTypeSelect) 
    DTE.ExecuteCommand("ClassViewContextMenus.ClassViewProject.Publish") 

    runExternalCommandOnComplete = True 

End Sub 

Sau đó, trong EnvironmentEvents thêm thế này: (Lưu ý: CustomMacros là tên của module, nơi bạn đặt đoạn mã trên)

<System.contextStaticAttribute()> Public WithEvents PublishEvents As EnvDTE80.PublishEvents 

Private Sub PublishEvents_OnPublishDone(ByVal Success As Boolean) Handles PublishEvents.OnPublishDone 
    CustomMacros.runExternalCommandOnComplete = False 
    'Where ExternalCommand1 matches the command you want to run 
    DTE.ExecuteCommand("Tools.ExternalCommand1") 
End Sub 

Điều đó sẽ làm điều đó.

Chúc mừng,

Kyle

Answer 2

Đây là cách bạn có thể biên dịch tập tin duy nhất, và sau đó liên kết toàn bộ giải pháp ví dụ:

Dim WithEvents t As Timers.Timer 

Sub test() 
    DTE.ExecuteCommand("Build.Compile") 
    t = New Timers.Timer 
    t.Interval = 0.05 
    t.Start() 
End Sub 

Sub t_Elapsed(ByVal ee As Object, ByVal dd As Timers.ElapsedEventArgs) Handles t.Elapsed 

    If DTE.Solution.SolutionBuild.BuildState <> vsBuildState.vsBuildStateInProgress Then 
     t.Stop() 
     DTE.ExecuteCommand("Build.Link") 
    End If 

End Sub