Foxtable(狐表) → 用户栏目 → 专家坐堂 → word嵌入窗口


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

主题：word嵌入窗口
帅哥哟，离线，有人找我吗？
kgdce
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		word嵌入窗口  发帖心情 Post By：2019/6/26 19:35:00 [只看该作者]

遇到问题，就是显示的题，二次不能再显示，另外在程序退出时，要释放word应用程序。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:word嵌入窗口.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/26 21:41:00 [只看该作者]

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:嵌入exe最大化.zip

 


 
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2019/6/27 10:43:00 [只看该作者]

你这个文件前面我看到过，就是以此思路继续的，但与我现在上传的本贴中的文件，思路还是有些区别，我贴中思路是：
1.定义一个public的word共用程序，用这个程序打开word文件和切换文件，这样速度快，不需要开多个应用程序；
2.对public定义的共用程序也好用vba操作.  
实际的困难就是winapi函数不会应用才导致此问题，请帮助按照现有思路能否改进？也就是嵌入窗口的是公用程序，并切换文档也能在窗口显示。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190627103158.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/6/27 10:45:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/27 11:36:00 [只看该作者]

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:嵌入exe最大化.zip
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2019/6/27 13:35:00 [只看该作者]

谢谢！多数问题已解决，但还有两个小细节问题需解决才完美。
1.System.Threading.Thread.Sleep(2000)，通过此句延时保证程序是打开的，才执下面的代码，可能会出现word还没有打开就执行了下面的程序，这需要改进，如何改进？
vars("标题") = "第" & e.Row("题号") & "题"
Dim CallBack As New EnumWindowsProc(AddressOf EnumWindowsProcCallBack)
EnumWindows(CallBack, 0)
2.当打开一道题时，会在任务管理器中出现两个word进程，其中一个是这句代码（Public _app As new msword.application）打开的，
另外一个word应用程序是这句代码（_app = new msword.application）打开的
而关闭窗口时，只关闭了一个word进程，另一个如何关闭？
3.最后一个问题，打开老师给的示例时，为什么一打开就会弹出窗口，我没找到相应的命令，是什么原因？

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190627133055.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/27 15:03:00 [只看该作者]

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:嵌入exe最大化 (1).zip
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2019/6/27 16:18:00 [只看该作者]

解决上述问题的同时，又出现了新问题：就是将word进程全部退出了，但二次再打开这个窗口程序执行就会出错。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190627161612.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/27 18:54:00 [只看该作者]

beforeclose事件，写代码

 

Dim dic As Dictionary(Of String, String) = vars("abc")
For Each key As String In dic.Keys
    SendMessage(dic(key), &H0010, 0, 0)
Next
_app.quit
_app = Nothing
 回到顶部
帅哥哟，离线，有人找我吗？
km007
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：480 积分：5761 威望：0 精华：0 注册：2016/1/28 2:59:00 		  发帖心情 Post By：2019/12/24 9:45:00 [只看该作者]

点击按钮时，提示这个是什么问题？

无法将类型为“System.Collections.Generic.Dictionary`2[System.String,System.String]”的对象强制转换为类型“System.Collections.Generic.Dictionary`2[System.String,System.Int32]”。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110602 积分：562912 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/24 9:53:00 [只看该作者]

整数集合不能直接转换为字符串集合

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 8 次数据查询