快捷键！解决方案

快捷键！！！
我表里有一个要输入的字段，有几个固定的值要输入（如姓名=张三；李四）一天要输入张三；李四几十遍，别的名不常有，
能不能把张三设置为F1李四设置为F2（或字母AB或数字12）按F1姓名字段就自动添加张三。



[解决办法]

SQL code

*---VFP6.0 代码*---TEXT1.KEYPRESSLPARAMETERS nKeyCode, nShiftAltCtrl &&该行是原来就有的DO CASE   CASE nKeyCode=-1 && F2键        THISFORM.TEXT1.VALUE="张三"   CASE nKeyCode=-2 && F3键        THISFORM.TEXT1.VALUE="李四"ENDCASE
[解决办法]
将表单的 KeyPreview 属性设为 .T.
然后在表单的 KeyPress 事件写代码：
SQL code
Lparameters nKeyCode, nShiftAltCtrlDo Case    Case nKeyCode=28    && F1        Nodefault        Thisform.Caption="你按了 F1 键"    Case nKeyCode=-1    && F2        Nodefault        Thisform.Caption="你按了 F2 键"    Case nKeyCode=-2    && F3        Nodefault        Thisform.Caption="你按了 F3 键"    Case nKeyCode=-3    && F4        Nodefault        Thisform.Caption="你按了 F4 键"    Case nKeyCode=-4    && F5        Nodefault        Thisform.Caption="你按了 F5 键"    Case nKeyCode=-5    && F6        Nodefault        Thisform.Caption="你按了 F6 键"    Case nKeyCode=-6    && F7        Nodefault        Thisform.Caption="你按了 F7 键"    Case nKeyCode=-7    && F8        Nodefault        Thisform.Caption="你按了 F8 键"    Case nKeyCode=-8    && F9        Nodefault        Thisform.Caption="你按了 F9 键"    Case nKeyCode=-9    && F10        Nodefault        Thisform.Caption="你按了 F10 键"    Case nKeyCode=133    && F11        Nodefault        Thisform.Caption="你按了 F11 键"    Case nKeyCode=134    && F12        Nodefault        Thisform.Caption="你按了 F12 键"Endcase