怎样向正在运行的程序发送关闭、最大化、最小化的命令
编号：QA002048
建立日期: 1999年11月17日 最后修改日期：1999年11月17日
所属类别：
咚咚:
操作系统: Pwin98
编程工具: VB
问题: 怎样向正在运行的程序发送关闭、最大化、最小化的命令?
回答:
SendKeys 语句将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。
本示例使用 Shell 函数来运行 Microsoft Windows 所附的计算器程序；然后使用 SendKeys 语句来按下计算器的某些数字键，最后退出计算器。（若要观察示例运行过程，可将示例粘贴到过程中，再运行过程即可。因为 AppActivate 会将焦点转移到计算器应用程序，故本示例不能以单步方式来运行。）
Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。
AppActivate ReturnValue ' 激活计算器。
For I = 1 To 100 ' 设置计数循环。
SendKeys I & "{+}", True ' 按下按键给计算器
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总合。
SendKeys "%{F4}", True ' 按 ALT+F4 关闭计算器。
另外，使用SendKeys "% N", True可以最小化，使用SendKeys "% M", True可以最大化，
此问题由李海回答。
| |
|
|
| |
|
|
