请问如何让外部程序的窗体在我的VB程序窗体上面显示?

2024-12-30 15:01:36

推荐回答（3个）

回答1：

'添加控件Command1,以下是代码
'API函数: 设置窗口的新父窗口
PrivateDeclare Function SetParent Lib "user32" ( _
ByVal hWndChild As Long, _
Private Sub Command1_Click()
Dim hwnd As Long, hWndNewParent As Long
'hwnd = 你要设置的窗口句柄,句柄可以用API或者是APY++获得
'hWndNewParent = 你要设置的父窗口句柄,句柄可以用API或者是APY++获得
'设置hWndNewParent 为 hwnd 的父窗口
SetParent hwnd, hWndNewParent
End Sub

回答2：

1）在窗体上画个Command

2）写代码
Private Sub Command1_Click()

ShellExecute Me.hwnd, "open", "D:\Program Files\Tencent\QQ2009\Bin\QQ.exe", "", "", 5
'打开文件双引号内为你要打开的程序路境及名称
End Sub
以此类推

回答3：

先找到他的句柄，找句柄就要找特征，比如现在他的句柄是hWnd,自己主窗体叫做Form1
那么使用API
SetParent即可