程序员经验分享-hwhale

在VB6中等待进程退出后恢复窗口

2024-06-19

我在win7 64位操作系统中使用VB6。此应用程序是从 xp 迁移的..

Me.WindowState = vbMinimized
WaitForProcess Shell(launchapp, vbNormalFocus)
Me.WindowState = vbNormal

在启动 launchapp 之前，我的代码会最小化主应用程序并启动一个 exe。一旦用户关闭 exe，我的主应用程序就必须从最小化状态恢复到正常状态。这在 xp 中工作正常，但在 win 7 中，我最小化的主应用程序只是闪烁并再次返回到最小化状态。

有任何想法吗？

Thanks.


Windows 7 不允许应用程序使用 SetForegroundWindow 来获取焦点，如文档 http://msdn.microsoft.com/en-us/library/windows/desktop/ms633539%28v=vs.85%29.aspx。见备注。

一种解决方法是暂时AttachThreadInput到确实具有焦点的线程，给自己焦点，然后再次分离。卡尔·E·彼得森 (Karl E Peterson) 提供了插入式模块 http://vb.mvps.org/samples/ForceFore/去做这个here http://vb.mvps.org/samples/ForceFore/伴随着杂志文章 http://vb.mvps.org/articles/ap199902.pdf.

免责声明：Windows 大师 Raymond Chen 指出此解决方法可能会导致您的程序停止响应 https://stackoverflow.com/a/8081858/15639在某些情况下。然而我自己从未遇到过这些错误。 YMMV。

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

VB6

window

process

在VB6中等待进程退出后恢复窗口 的相关文章

随机推荐

  • 在 GraphQL 服务器中实现访问控制的好模式是什么？

    背景 我有一组模型 包括用户和各种其他模型 其中一些模型包含对用户的引用 我公开这些模型 以便通过 GraphQL API 生成的查询Graffiti https github com RisingStack graffiti 由 Mong

  • 如何将 URL 添加到 Telegram Bot 的 InlineKeyboardButton

    我想制作一个按钮 可以从 Telegram 聊天中在浏览器中打开 URL 外部超链接 目前 我只开发了可点击的操作按钮 update message reply text Subscribe to us on Facebook and Te

  • Laravel 计划命令一旦启动就停止？

    我已经为 laravel 5 1 项目设置了预定命令 它有效 命令已经启动 但愚蠢的是我没有考虑如何停止它 通常您不想停止它 但该命令正在向数据库表中插入近 50 万行 而我只是想确保我可以在不登录服务器的情况下启动它 显然我需要在某个时候

  • JDBC插入实数数组

    我试图将一个真实的数组插入到 postgresql 数组中 该表的定义是 String sqlTable CREATE TABLE IF NOT EXISTS ccmBlock sampleId INTEGER block REAL 插入内

  • UPS Surepost API

    我正在尝试在 PHP 中集成 UPS SurePost API 以获取 SurePost 服务的费率 我不知道从哪里获取 API 以及如何集成它 任何帮助将不胜感激 Thanks Jayesh Vaya 的答案是正确的 但这里有更多细节 S

  • 数据损坏 C++ 和 Python 之间的管道

    我正在编写一些代码 从 Python 获取二进制数据 将其通过管道传输到 C 对数据进行一些处理 在本例中计算互信息度量 然后将结果通过管道传输回 Python 在测试时 我发现如果我发送的数据是一组尺寸小于 1500 X 1500 的 2

  • R.matlab/readMat：readTag(this) 中出错

    我正在尝试使用 R matlab 将 matlab 文件读入 R 但遇到此错误 require R matlab r lt readMat file mat verbose T Trying to read MAT v5 file stre

  • 在Python中使用pil读取tif图像时出现值错误？

    我必须读取尺寸的tif图像2200 2200并输入 uint16 我将 PIL 库与 anaconda python 一起使用 如下所示 from PIL import Image img Image open test tif img i

  • 结帐时出现 Git 错误：“致命：引用不是树”

    当我决定弄清楚为什么我正在从事的项目如此重要时 这一切就开始了 我运行了以下脚本 git rev list objects all git cat file batch check objecttype objectname objects

  • 不要声明只读可变引用类型 - 为什么不呢？

    我一直在阅读这个问题 https stackoverflow com questions 2274412 immutable readonly reference types fxcop violation do not declare r

  • 获得一次性绑定以适用于 ng-if

    这个问题已经被之前问过 https stackoverflow com questions 23969926 angular lazy one time binding for expressions 但我无法让该解决方案发挥作用 所以我想

  • 有没有办法在 html 图像标签中显示位图数据？ [复制]

    这个问题在这里已经有答案了 有没有办法在 HTML 元素中显示位图图像数据 例如 您有一个指向源文件的常规图像 如下所示 img src myImage png width 100 height 100 有没有这样的事情 img width

  • 删除 Laravel Mix 中的临时文件

    我想在 laravel mix 构建期间或之后删除临时构建文件 这是我目前拥有的一些代码 但是del不工作 const mix require laravel mix const del require del compile sass i

  • JavaScript：预期的赋值或函数调用，却看到了一个表达式

    我正在使用 JSHint 来确保我的 JavaScript 是 严格的 但我收到以下错误 预期是赋值或函数调用 但看到的是表达式 关于以下代码 var str A B C D var data var strArr str split fo

  • 在 ActionScript 中刷新数据网格时保持选择

    我正在使用 flashbuilder 开发我的第一个 AIR 应用程序 只是让您知道 我已经绑定了一个mx DataGrid组件到一个DataProvider这是一个mx HTTPService获取包含项目的 xml 文件 为了使数据保持最

  • NSCFData isRessized 崩溃？

    我目前在控制台中收到此崩溃日志 2011 08 23 19 18 40 064 App 1697 707 NSCFData isResizable unrecognized selector sent to instance 0x11f1c

  • 使用 Protobuf-net，我收到有关 List 未知线路类型的异常

    我已经开始将 Unity iOS 游戏转换为使用 Protobuf net 保存状态 看起来一切正常 直到我将此实例变量添加到GameState ProtoMember 10 public List

  • 如何创建增量加载网页

    我正在编写一个处理大量数据的页面 它会永远持续到我的结果页面加载 几乎无限 因为返回的数据太大了 因此 我需要实现一个增量加载页面 例如 url 中的页面 http docs python org http docs python org

  • Symfony 2 使用 CSS 设置背景图片

    I want to put a background image for a menu in symfony But I can t figure out how to do it I managed to style a lot of t

  • 在VB6中等待进程退出后恢复窗口

    我在win7 64位操作系统中使用VB6 此应用程序是从 xp 迁移的 Me WindowState vbMinimized WaitForProcess Shell launchapp vbNormalFocus Me WindowSta

热门标签