如何关闭使用窗口句柄嵌入的嵌入窗口？答案

【问题标题】：How to close embedded window that was embedded using window handle?如何关闭使用窗口句柄嵌入的嵌入窗口？
【发布时间】：2018-10-30 15:55:10
【问题描述】：

所以我有一个我正在使用的方法，我可以将 powerpoint 集成到一个面板中。我使用 FindWindow 和 SetParent 函数来实现这一点：

Dim proc as integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer

Public Sub embed_Window()
    Do Until proc <> 0
        proc = FindWindow(vbNullString, window_name)
    Loop

    SetParent(proc, Panel1.Handle)

End Sub

这部分可以很好地将另一个窗口嵌入到我的面板控件中。我的问题是，如何关闭面板中的窗口？我不能再使用 FindWindow 方法，因为它不再是任务栏中的窗口。

【问题讨论】：

proc 和 process 应该是同一个变量吗？它们是如何声明的？
@OlivierJacot-Descombes 是的，它们是一样的。对不起，一个错字，但我已经编辑了我的问题
这篇文章可能会有所帮助：How do I get Process ID from HWND using managed VB.net code?.

标签： vb.net hwnd

【解决方案1】：

要关闭打开的窗口，您需要使用 PostMessage：

Private Declare Auto Function PostMessage Lib "user32" (ByVal hwnd As Integer, ByVal message As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean

Public Const WM_CLOSE = &H10

Public Sub CloseWindow()
 PostMessage(proc, WM_CLOSE, 0, 0)
End Sub

【讨论】：