Foxtable(狐表)用户栏目专家坐堂 → [分享]嵌入其它各种exe程序或窗口到foxtable窗口_示例


  共有27902人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
[分享]嵌入其它各种exe程序或窗口到foxtable窗口_示例  发帖心情 Post By:2015/8/10 21:48:00 [显示全部帖子]

 之前没测试过以为不行。研究了一下,可以直接嵌入窗口。

 

 这个例子,可以嵌入大部分的窗口。废话不多说,直接上传例子

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150810214043.jpg
图片点击可在新窗口打开查看

 

 


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:嵌入exe程序到自己的窗口.table
[此贴子已经被作者于2015/8/10 22:21:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 9:06:00 [显示全部帖子]

以下是引用bzfc57在2015/8/12 8:51:00的发言:
能否嵌入狐表自身窗口?

 

可以,根据窗口标题,什么窗口都可以加入


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/2 15:22:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/2 15:52:00 [显示全部帖子]

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

 

 

 

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

System.Threading.Thread.Sleep(1000)

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/2 16:41:00 [显示全部帖子]

回复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)


 回到顶部