当大量写屏时,为了防止屏幕闪跳和提高运行速度,需要对表单进行屏幕锁定。
锁定表单屏幕的一级程序:
*锁定屏幕
LOCAL llLockScreen
llLockScreen = thisform.LockScreen
IF thisform.LockScreen = .f.
thisform.LockScreen = .t.
ENDIF
* 中间的代码
*恢复环境
IF thisform.LockScreen # llLockScreen
thisform.LockScreen = llLockScreen
ENDIF