投稿者 KOZ  (社会人) 投稿日時 2023/11/24 06:14:23
こんな感じです。
Option Strict On
Option Explicit On

Imports System.Text
Imports System.Runtime.InteropServices

Friend Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.AcroPDF1.LoadFile("z:\test.pdf")
    End Sub

    Private Const ZOOM_IN As Keys = Keys.Control Or Keys.Add
    Private Const ZOOM_OUT As Keys = Keys.Control Or Keys.Subtract

    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean
        Select Case keyData
            Case ZOOM_IN, ZOOM_OUT
                If msg.HWnd <> AcroPDF1.Handle Then
                    PostMessage(GetAVPageView(AcroPDF1), msg.Msg, msg.WParam, msg.LParam)
                    Return True
                End If
        End Select
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

    Private Function GetAVPageView(view As AxAcroPDFLib.AxAcroPDF) As IntPtr
        Dim LParam As IntPtr = CType(1, IntPtr)
        EnumChildWindows(view.Handle, AddressOf EnumChildProc, LParam)
        Return LParam
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function PostMessage(hWnd As IntPtr, Msg As Integer,
                                         wParam As IntPtr, lParam As IntPtr) As Boolean
    End Function

    Private Function EnumChildProc(ByVal hwnd As IntPtr, ByRef LParam As IntPtr) As Boolean
        If GetWindowText(hwnd) = "AVPageView" Then
            LParam = hwnd
            Return False
        End If
        Return True
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function EnumChildWindows(hWndParent As IntPtr, lpEnumFunc As EnumChildProcDelegate, ByRef lParam As IntPtr) As Boolean
    End Function

    Private Delegate Function EnumChildProcDelegate(hwnd As IntPtr, ByRef Lparam As IntPtr) As Boolean

    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowTextLength(hWnd As IntPtr) As Integer
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As IntegerAs Integer
    End Function

    Private Function GetWindowText(hwnd As IntPtr) As String
        Dim sb As New StringBuilder(256)
        GetWindowText(hwnd, sb, 255)
        Return sb.ToString()
    End Function

End Class