编辑框keypess事件代码怎么写

IF nKeyCode=13
    j1=this.Text
    messagebox(RIGHT(j1,LEN(j1)-AT(CHR(13),j1,OCCURS(CHR(13),j1))))
ENDIF  

qjbzjp 您的想法是好的，但提示错误。大概是at（）函数不能搜索出chr(13)??

把下面的代码放入一个按钮的 click 事件中
edt=thisform.edit1.Text
nS=LEN(edt)
FOR i=nS TO 1 STEP -1
  IF ASC(SUBSTR(edt,I,1))=10
    ZFC=RIGHT(edt,ns-I)
    MESSAGEBOX("最后一行是："+IIF(LEN(ZFC)>0,ZFC,"空行"))
    EXIT
  ENDIF
NEXT
RETURN

以下代码按楼主的要求放入编辑框的KeyPress事件中，在VF8.0下测试无问题。
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
    j1=this.Text
    messagebox(RIGHT(j1,LEN(j1)-AT(CHR(13),j1,OCCURS(CHR(13),j1))))
ENDIF  

5楼代码经测试，还有点缺陷，当输入第一行回车时报错，再加一个判断就好了。在6.0下测试也没问题。
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13  
    j1=this.Text  
    IF OCCURS(CHR(13),j1)>0
      messagebox(RIGHT(j1,LEN(j1)-AT(CHR(13),j1,OCCURS(CHR(13),j1))))  
    ENDIF  
ENDIF  

[ 本帖最后由 sywzs 于 2009-10-11 16:11 编辑 ]

楼上指点极是。
我是在表单的Init中放了一条：
thisform.edit1.Value="4444"+CHR(13)+"555"+CHR(13)+"11111"
所以没有发现错误。
我仅仅是给出了一个思路，如果在编辑框的字符最后又敲了回车，将只显示空（行），看起来误为错误，但不合符正常习惯，也应该考虑。

[ 本帖最后由 qjbzjp 于 2009-10-11 21:34 编辑 ]

试试这个参数 thisform.edit1.seltext

另外，不建议用nkeycode=13的方法来判断，在edit中，选中所需要的文字段之后，回车即把它们都删除了，显示出来是这段文字＋回车的符号。

不是还有个“右键按下（RightClick）”功能还没用呢吗。

仅供参考。

学习了，我也有这个问题需要解决。

num=alines(Aa,thisform.edit1.value,chr(13)+chr(10))
?Aa[num]