CHRTRAN

[ 本帖最后由 sdta 于 2012-2-9 02:25 编辑 ]

肯定是樓主全世界撒網的啦

嗯，我再研究研究，实在不行就想办法找原来写的那个人吧。谢谢您了，不管解决没解决最终问题，我还是相当受益的。

？我错过了什么？

你睡過頭了

我想把这个VFP5的程序放在VFP7里Rebuild下，可是为什么有很多编译错误，而我却看不出来到底错在哪呢？

很典型的一个是：

Thisform.ExitButton.Click Event
Error in line 35 of PC12.KeyPress (record 3): Syntax error.

然后我找到地方看click事件的代码是：

IF MESSAGEBOX("Do You Really Want to Exit? ", 4+32+256, "Exit") = 6
  RELEASE ThisForm
ENDIF

怎么样才能在VFP7里运行呢？

Thisform.ExitButton.Click Event
VFP7沒有這種語法的吧？VFP9就沒有。

找到大部分的错误了，都在Form的KeyPress事件里，我都给注释掉了，但是不知道为什么会编译错误。

CASE nKeyCode = 27 .AND. Thisform.ExitButton.Enabled        && ESC key
    Thisform.ExitButton.Click Event
CASE nKeyCode = 28 .AND. Thisform.HelpButton.Enabled        && F1
CASE nKeyCode = -1 .AND. Thisform.UndoButton.Enabled        && F2
    Thisform.TopButton.Click Event
CASE nKeyCode = -2 .AND. Thisform.SaveButton.Enabled        && F3
    Thisform.BottomButton.Click Event
CASE nKeyCode = -3 .AND. Thisform.List1Button.Enabled         && F4
    Thisform.NewButton.Click Event


目前仍有一个编译错误
PC12.NextPageButton.Click Event
Error in line 1169: Syntax error.

这些应该都是用VFP5编写的代码。那如果不能用NextPageButton.Click Event的话，用什么可以在执行到这里的时候去执行click事件的代码呢？
直接把那段代码写过来？


[ 本帖最后由 Bunny008 于 2012-2-11 01:29 编辑 ]

Event是事件，從VFP7開始，支持類代碼編寫，事件代碼是在類中的，不是像這樣寫在實例代碼中的。你這樣移植，要改的地方很多了。