示例:
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
字符输出到屏幕上,而不通常的文本框中
NODEFAULT
IF BETWEEN(nKeyCode, 65, 122) && 在'A'和'z'之间
This.Value = ALLTRIM(This.Value) + "*"
ACTIVATE SCREEN && 输出发送到 Visual FoxPro 主窗口。
?? CHR(nKeyCode)
ENDIF
字符输出到屏幕上,而不通常的文本框中
转载于:https://blog.51cto.com/gzkhrh/291585