с использованием WebBrowser Control для отображения файла PPT.
В Office 2007 это успешно, но в Office 2010 не работает клавиша «вниз» (VK_PRIOR
).
Этот код для предыдущего щелчка не работает с Office 2010, но работает с Office 2007:
Private Sub btnPREV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPREV.Click
If docType = DocumentType.PPT Then
If hndl = IntPtr.Zero Then
GetHandles()
End If
NativeMethods.PostMessage(hndl, WM_KEYDOWN, VK_PRIOR, IntPtr.Zero)
NativeMethods.PostMessage(hndl, WM_KEYUP, VK_PRIOR, IntPtr.Zero)
End If
End Sub
Этот код для перехода по клику работает как с Office 2007, так и с 2010:
Private Sub BtnNEXT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNEXT.Click
If docType = DocumentType.PPT Then
If hndl = IntPtr.Zero Then
GetHandles()
End If
NativeMethods.PostMessage(hndl, WM_KEYDOWN, VK_NEXT, IntPtr.Zero)
NativeMethods.PostMessage(hndl, WM_KEYUP, VK_NEXT, IntPtr.Zero)
End If
End Sub