其中有一段代码是啥意思？
IF THISFORM.OkToLeave    &&这表示什么？
    RETURN .T.
ELSE
    THISFORM.OkToLeave = .T.  &&这又表示什么？

    RETURN 0
ENDIF

整段代码是啥意思？

那是作者自己建立的自定义属性，意义和用法他自己知道，你通查代码呗。

。

查了一下，好象自定义属性,与此有关的代码在在text1对象，keypress 过程中与text1 valid过程中出现。至于干什么也看不懂，我想请教的下面判断语句的含义表示什么？
我已附上了源码，麻烦一下。
在text1对象，keypress 过程中
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13 &&Enter
    IF !EMPTY(THIS.Value)
        THISFORM.list1.AddItem (THIS.Value)
    ENDIF
    THIS.Value = ""
    THISFORM.OkToLeave = .F.
ENDIF   
-------------------------------
text1 对象 valid过程中

IF THISFORM.OkToLeave    &&这条判断语句表示什么？
    RETURN .T.
ELSE
    THISFORM.OkToLeave = .T.  &&是不是给自定义属性重新赋值？
    RETURN 0       &&是不是表示不返回值？
ENDIF



[ 本帖最后由 sylknb 于 2011-10-15 15:54 编辑 ]

那个属性OkToLeave是逻辑型的，在上面的Text1.Keypress中它根据某种条件设置为.T.（默认为.F.），那么在触发Text1.Valid事件时，就按照这个标志执行动作。
是的，后面那个是重新赋值。在Valid事件中，return 0则焦点无法离开本控件，强迫继续输入。
OkToLeave的字面意义，显然是允许离开（Ok则Leave）。

谢TonyDeng，现有的懂了，但还有2个？？

1、Text1.Keypress事件与Text1.Valid事件二个事件发生先后是不是Text1.Valid事件先发生？
2。IF THISFORM.OkToLeave 这样判断语句表示形式有点不懂，一般 =条件，或函数，方法

1.Keypress事件是当控件得到焦点（GotFocus）之后，发生键盘按键时触发。Valid事件是控件失去焦点时触发（比如默认按TAB键就会跳离当前TextBox对象），此时可执行合法性检验，确定是否真的允许控件失去焦点。Valid事件总在Keypress之后。但是若不按键，用鼠标点击别的控件，也可以触发Valid事件。张洪举书中有一个表格，列明各种事件的顺序，你可以看一看。

2.OkToLeave本身就是逻辑型数据，无需再判断OkToLeave == .F.，用它自己的真值就可以左右IF语句的流程了。给变量起名是很重要的，例如，命名一个变量finish，就已经是“结束”的意思，那么IF finish的语句是很清晰的，即“如果结束则……”，这个时候，finish的真值要按正常语义赋值，确实要结束，就赋值finish=.T.，否则finish=.F.。文字能表达的意思，就反映在代码上，不必多写注释。那种aa、mmm之类的变量命名习惯，最好改掉。

[ 本帖最后由 TonyDeng 于 2011-10-15 16:43 编辑 ]

受益非浅，真的不知道，对逻辑型数据变量起名有如此讲究。
那么整段的代码翻成中文意思是不是如下意思，有点绕口。
当 IF OkToLeave为.F.时 离开焦点，return T 为真(在valid事件中.T.离开了)，否则重新赋值为。T。,RETIRN 0 没有离开。

对变量名、函数名，起名都要讲究。张书中有介绍命名规范，不妨学习一下，虽然不是硬性规定的，但遵守了对你有好处，不必完全遵守，领会其中深意即可，那么自己也会创造一套自己习惯的命名习惯（在团体开发环境中，是要强制遵守命名规范的，不是外面的什么规范，总之是这个团队大家都愿意遵守的共同规范）。

它那段代码的意思是，“如果输入Ok则允许离开Leave”（这就是OkToLeave的字面意思，此时OkToLeave=.T.）。TextBox控件中允许离开的机制是Valid事件返回.T.（返回.F.是不允许离开的），return 0等效于return .F.。

TextBox控件中Valid的Return如果用整数n，有另外的意义：当n>0时，焦点向后（按容器中TabIndex顺序）移动，当n<0时，则向前移动，n=0是留在当前位置不移动。return 0与return .F.的区别，后者会出现一个wait窗口的出错信息，前者不会。

[ 本帖最后由 TonyDeng 于 2011-10-15 17:18 编辑 ]

喔原来如此，我弄糊涂了太呆了。顺便再请教一下，我从网上看到一文
用return可以返回一个值来控制焦点例：在文本框的valid事件中写下
If alltrim(this.value) < =’0’**这里的’0’表示什么？
Return .f.
endif