在Vb.net

Question

我创建了PowerPoint的插件，它在单屏幕上工作得很好，但我现在需要使用双屏幕（扩展模式），这有一些问题，在我的PowerPoint插件中，我该怎么办？处理Vb.net中Presenter View Objects的事件？假设我想在红色矩形指向的演示者视图中控制这些对象的事件。

我希望当用户点击演示者视图对象时，我的代码应该运行而不是PowerPoint代码。

有人可以告诉我如何处理或引用链接。

Answer 1

你能否利用这些事件中的任何一个:(对不起，我只提供VBA功能声明）

SlideShowBegin （2013,2010,2007,2003,2002,2000）

Application SlideShowBegin（ByVal Wn As SlideShowWindow）

幻灯片放映开始时发生。每个幻灯片放映都会被调用。

SlideShowEnd （2013,2010,2007,2003,2002,2000）

应用程序SlideShowEnd（ByVal Pres As Presentation）

幻灯片放映结束时发生。为每个幻灯片放映而结束。

SlideShowNextBuild （2013,2010,2007,2003,2002,2000）

应用程序SlideShowNextBuild（ByVal Wn As SlideShowWindow）

在下一次构建开始后发生。

SlideShowNextSlide （2013,2010,2007,2003,2002,2000）

应用程序SlideShowNextSlide（ByVal Wn As SlideShowWindow）

显示新幻灯片后发生。

SlideSelectionChanged （2013,2010,2007,2003,2002）

应用程序SlideSelectionChanged（ByVal SldRange为SlideRange）

在除“大纲”视图之外的任何视图中更改幻灯片或幻灯片选项后发生。

SlideShowNextClick （2013,2010,2007,2003,2002）

应用程序SlideShowNextClick（ByVal Wn As SlideShowWindow，ByVal nEffect As Effect）

单击幻灯片放映窗口后发生。

SlideShowOnNext （2013,2010,2007）

应用程序SlideShowOnNext（ByVal Wn As SlideShowWindow）

幻灯片放映导航当前幻灯片中的下一个版本时发生。

SlideShowOnPrevious （2013,2010,2007）

应用程序SlideShowOnPrevious（ByVal Wn As SlideShowWindow）

幻灯片放映导航当前幻灯片中的上一个版本时发生。

Answer 2

您可以像在普通的.Net应用程序中一样添加事件处理程序。

查看How to handle PowerPoint events by using Visual Basic .NET 2003文章，该文章解释了如何使用Microsoft Visual Basic .NET处理Microsoft Office PowerPoint事件。示例代码包含在内。

    'Start PowerPoint and then make the PowerPoint window visible but minimized.
    oApp = New PowerPoint.Application

    'Add event handlers.
    AddHandler oApp.SlideShowBegin, AddressOf oApp_SlideShowBegin
    AddHandler oApp.SlideShowNextSlide, AddressOf oApp_SlideShowNextSlide
    AddHandler oApp.PresentationClose, AddressOf oApp_PresentationClose

    'Event Handlers

    Private Sub oApp_SlideShowBegin(ByVal Wn As Microsoft.Office.Interop.PowerPoint.SlideShowWindow)

    End Sub

    Private Sub oApp_SlideShowNextSlide(ByVal Wn As Microsoft.Office.Interop.PowerPoint.SlideShowWindow)

    End Sub

    Private Sub oApp_PresentationClose(ByVal Pres As Microsoft.Office.Interop.PowerPoint.Presentation)


    End Sub