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分了，抱歉
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
為什么 AddHandler officePPT.SlideShowBegin, AddressOf oSlideShowBegin1 不能觸發Private Sub oSlideShowBegin1(ByVal Wn As PPT.SlideShowWindow)
Me.ListBox1.Items.Add("開始放映")
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/100713.html
標籤：VB.NET