Ключ VK_PRIOR не работает - PullRequest
       23

Ключ VK_PRIOR не работает

0 голосов
/ 13 августа 2011

с использованием 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

1 Ответ

0 голосов
/ 17 августа 2011

Решение найдено:

WebBrowser1 является объектом класса WebBrowser.

WebBrowser1.Focus()
btnBACK.Focus()
WebBrowser1.Focus()
SendKeys.Send("{UP}")

Вот и все.«Предыдущий» щелчок начинает работать, так как происходит событие Page Up.

...