VB.NET 或者C# 怎么捕获 WPS PPT的开始放映和结束放映

[TRY889]

VB.NET 或者C# 怎么捕获 WPS PPT的开始放映和结束放映
项目中引用 了 Kingsoft.Office.Interop.Wppapi 看到 PowerPoint是其成员
再引用 Microsoft.Office.Interop.PowerPoint
这个时候用
Dim oPPT As Microsoft.Office.Interop.PowerPoint.Application
oPPT = New Microsoft.Office.Interop.PowerPoint.Application
AddHandler oPPT.SlideShowBegin, AddressOf SlideShowBegin1
Private Sub SlideShowBegin1(ByVal Wn As Microsoft.Office.Interop.PowerPoint.SlideShowWindow)
这里可以捕获Microsoft.Office的PPT
End Sub

但是如果用
Dim oPPT As PowerPoint.Application
oPPT = New PowerPoint.Application
AddHandler oPPT.SlideShowBegin, AddressOf SlideShowBegin1
Private Sub SlideShowBegin1(ByVal Wn As PowerPoint.SlideShowWindow)
这里就不能捕获WPS 的PPT开始放映
End Sub

请大神指教下


全部身家只有20分了，抱歉

[TRY889]

oPPT= PowerPoint 利用 officePPT = TryCast(Marshal.GetActiveObject("PowerPoint.Application"), oPPT.Application) 可以在预览模式下控制WPS翻页，但是在全屏模式下翻页，展示页面不会翻页。 问题又回到原点，不知道是否是放映状态。。。 officePPT = TryCast(Marshal.GetActiveObject("PowerPoint.Application"), oPPT.Application) 这里的 oPPT.Application 如果改成 oPPT.EApplication 说SlideShowBegin没有给实参 AddHandler officePPT.SlideShowBegin, AddressOf oSlideShowBegin1

[TRY889]

为什么 AddHandler officePPT.SlideShowBegin, AddressOf oSlideShowBegin1 不能触发 Private Sub oSlideShowBegin1(ByVal Wn As PPT.SlideShowWindow) Me.ListBox1.Items.Add("开始放映") End Sub