示例:
text的keypress事件:
LPARAMETERS nKeyCode, nShiftAltCtrl
NODEFAULT
      IF BETWEEN(nKeyCode, 65, 122) && 在'A'和'z'之间
         This.Value = ALLTRIM(This.Value) + "*"
         ACTIVATE SCREEN      && 输出发送到 Visual FoxPro 主窗口。
         ?? CHR(nKeyCode)
      ENDIF
字符输出到屏幕上,而不通常的文本框中