在 visual foxpro、foxpro for windows 和 foxpro for ms-dos 中，下列代码将 capslock( ) 的状态存入一个内存变量中。用 ＝ 赋值命令执行 capslock( ) 函数，设置 caps lock 打开。然后用 ＝
赋值命令执行 capslock( ) 函数将 caps lock 设置为先前状态。
gloldlock = capslock( ) && 保存原有状态
= capslock(.t.) && 打开 caps lock
*** 执行下列任意语句***
= capslock(gloldlock) && 返回到原有设置
*** 或者,先将 capslock 切换成相反值再切换回来 ***
= capslock(!capslock( ))
wait window
= capslock(!capslock( ))
wait window
= capslock(gloldlock) && 返回到原有设置