VFP 愛用者社區

lunaryfy · 註冊時間: 2005-05-13 文章: 3 第 1 樓

为什么编译后的程序运行时，屏幕一闪就退出了，一直试着用READ EVENTS命令来建立等待状态，可总是不行，我的主程序调用类进入系统，
systit="企业职工工资管理"
set classlib to CLIB
请问READ EVENTS到底都有哪些地方必须加，还有clear events写在哪里？能说详细一点吗？
谢谢！

sheuok · 發表於: 星期五五月 13, 2005 3:38 pm 文章主題:

請加入一行 _vfp.Visible=.T.

您的情況可能是將 _vfp.Visible 設為 .F.

如一定要將 _vfp.Visible 設為 .F. 時請將第1個Form的 ShowWindow 設為 2

希望能解決您的問題!

lunaryfy · 註冊時間: 2005-05-13 文章: 3 第 3 樓

谢谢您了，可是现在还是不行呀！
能帮忙在想一下吗？谢谢！

sheuok · 發表於: 星期三五月 18, 2005 10:28 pm 文章主題:

範例如下:

將以下程序置於 Main.prg 中

_vfp.Visible=.T. &&-注意! 此行設為 .T.
_Screen.WindowState=2
_Asciicols=150
_Asciirows=63
Set Alternate Off
Set Bell On
Set Confirm Off
Set Date To taiwan
Set Decimals To 18
Set Dele On
Set enginebehavior 70
Set Escape On
Set Exact On &&-設為模糊比對
Set Exclusive Off
Set Lock On
Set Mark To "." &&-設定日期為 .
Set Multilocks On
Set Near Off
Set Optimize On
Set Reprocess To Automatic
Set Safety Off
Set Step Off
Set Score Off
Set Talk Off
Set Sysmenu To
Do Form 測試表單 &&-執行測試表單.SCX
Read Events &&-務必加上此行

請建立測試表單.SCX

於 Destroy Method 中加上此行

Clear Events

於測試表單.SCX 中的 ShowWindow 屬性中有 1,2,3的選項如 Main.prg 中的 _VFP.VISIBLE=.F. 時 ShowWindow 需設為 2

lunaryfy · 註冊時間: 2005-05-13 文章: 3 第 5 樓

非常感谢你，我的问题解决了，谢谢！