让别的程序在你的窗口里运行，设置父窗口。

最新推荐文章于 2023-10-05 17:10:11 发布

yeuegi

最新推荐文章于 2023-10-05 17:10:11 发布

阅读量1.3k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： vb 文章标签： c/c++ c#

本文链接：https://blog.youkuaiyun.com/yeuegi/article/details/83852310

vb 专栏收录该内容

90 篇文章

订阅专栏

本文提供了一个使用Visual Basic实现窗体包容的例子。通过API函数FindWindow、SetWindowLong等，将一个名为“好无聊哇！”的外部窗体包容到当前窗体内，并调整其位置和大小。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'本示例演示把指定名称的任意窗体包容进来.
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Const GWL_STYLE = (-16)
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_VISIBLE = &H10000000

Private Sub Form_Load()
Dim Handle As Long, Ret As Long
'根据窗口标题获取窗体句柄
Handle = FindWindow(vbNullString, "好无聊哇！")
If Handle = 0 Then Exit Sub
Ret = SetWindowLong(Handle, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS)
'插入指定的窗体
SetParent Me.hWnd, Handle
Form1.Move 4000, 5000, 320, 320
End Sub