- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- word嵌入窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137033)
-- 发布时间：2019/6/26 19:35:00
-- word嵌入窗口
遇到问题，就是显示的题，二次不能再显示，另外在程序退出时，要释放word应用程序。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:word嵌入窗口.zip |
-- 发布时间：2019/6/26 21:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:嵌入exe最大化.zip |
-- 发布时间：2019/6/27 10:43:00
--
你这个文件前面我看到过，就是以此思路继续的，但与我现在上传的本贴中的文件，思路还是有些区别，我贴中思路是：
1.定义一个public的word共用程序，用这个程序打开word文件和切换文件，这样速度快，不需要开多个应用程序；
此主题相关图片如下：qq图片20190627103158.png
2.对public定义的共用程序也好用vba操作.
实际的困难就是winapi函数不会应用才导致此问题，请帮助按照现有思路能否改进？也就是嵌入窗口的是公用程序，并切换文档也能在窗口显示。
此主题相关图片如下：qq图片20190627103158.png[此贴子已经被作者于2019/6/27 10:45:27编辑过]
-- 发布时间：2019/6/27 11:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:嵌入exe最大化.zip |
-- 发布时间：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
-- 发布时间：2019/6/27 15:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:嵌入exe最大化 (1).zip |
-- 发布时间：2019/6/27 16:18:00
--
解决上述问题的同时，又出现了新问题：就是将word进程全部退出了，但二次再打开这个窗口程序执行就会出错。
此主题相关图片如下：qq图片20190627161612.png
-- 发布时间：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
-- 发布时间：2019/12/24 9:45:00
--
点击按钮时，提示这个是什么问题？
-- 发布时间：2019/12/24 9:53:00
--
整数集合不能直接转换为字符串集合