BV6.0小问题，帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/26 14:53:26
我用sendkeys在窗体激活时，或是在控件有焦点时，为什么还是没有反应啊？没有作出相应的输出？
那个例子在帮助里有,早看过了.有没有别的了,那个没有用啊

你自己做一个简单的窗口.就两个控件,自己试试就行了.自己动手再试试看,不会的话发消息我.我再教你!

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 关闭计算器。

text1.setfocus
sendkeys "Hi"