可以使用 GetKeyState 函数来检测某个键是否按下,例如:
GetKeyState VK_F1
就检测 F1 键是否按下,函数返回 -127 或 -128 为按下,返回其他值为正常状态。
另外声明这个常量:
Private Const VK_F1 = &H70
(注:以上两行语句须在事件过程范围外输入)
然后在窗体上加一个 Timer 控件,Interval = 1,在 Timer 事件内使用 GetKeyState 检测 F1 键按下状态,如果按下,则调用 SendKeys Text1.Text 来向当前活动窗口输入 Text1 的文本。
要将窗体后台进行,可以直接把其 Visible 属性设为 False。