主题：[分享]嵌入其它各种exe程序或窗口到foxtable窗口_示例

资源管理器嵌入不了？

恢复31楼，贴出你写的代码。

此主题相关图片如下：0001.png

你用第二个方法，根据标题嵌入

 

 

 

Dim proc As new Process
proc.File = "explorer.exe"
proc.Start

System.Threading.Thread.Sleep(1000)

'然后根据标题嵌入
SetParent(FindWindow(Nothing, "这台电脑"), e.Form.BaseForm.Handle.ToInt32())

‘windows10

Dim proc As new Process
proc.File = "explorer.exe"
proc.Start

System.Threading.Thread.Sleep(1000)

'然后根据标题嵌入
SetParent(FindWindow(Nothing, "文件资源管理器"), e.Form.BaseForm.Handle.ToInt32())

存在一个问题：嵌入的窗口位置在右下角。

是否可以放入一个面板，让嵌入的窗口大小同面板大小一样？

回复35楼，你那种，没有很好的方法可以实现。如果是控制大小，可以加入代码

 

全局代码

Public 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

 

调用代码
Dim proc As new Process
proc.File = "explorer.exe"
proc.Start

System.Threading.Thread.Sleep(1000)

'然后根据标题嵌入
Dim hwnd As IntPtr = FindWindow(Nothing, "这台电脑")
SetParent(hwnd, e.Form.controls("panel1").basecontrol.Handle.ToInt32())
MoveWindow(hwnd, 100, 100, 200, 300, True)

excel 2007窗口，第一次嵌入的时候，是能编辑，不能显示菜单，重启电脑后能显示菜单不能编辑

好，值得拥有。

收藏

为什么现在点击我参与的主题不显示呢？