VFP 愛用者社區

tdt · 註冊時間: 2003-06-14 文章: 12 第 1 樓

想請教一個用法，以前用視覺話拉表單都沒問題，現在把程式改成用prg來建立表單，但是主程式中用了read event，子程式中也有read event，結果就互相干擾，發現主程式中不用read event就沒問題，可是主程式不用read event在編譯為exe後，執行時畫面會一閃就過了，不知該如何解決。謝謝大家指導。

garfield · 發表於: 星期三七月 02, 2003 12:48 am 文章主題:

[轉貼]
筆者在兩年多的新聞組生活中，曾數十次遇到過初學者對VFP的表單視窗屬性所提出的問題，特別是"爲何系統編譯後運行時一閃而過"的問題，更是被頻繁地提出。現根據我的經驗進行一下總結，以幫助初學者打掉這只攔路虎。
　　其實，這個問題之所以被頻繁地提出，並非是由於初學者的理解能力有問題，而實在是VFP的設計混亂所致，以至於造成初學者理解上的混亂。筆者曾在"濟南萬千"的"軟體、編程、資料庫"新聞組就此問題發過"視窗問題到此爲止"的帖子，反響很大，現根據該帖進行整理，修正補足該帖中的一些不準確之處及遺漏。
　　本文所提"表單視窗屬性"，是指那些不但影響表單本身的特徵(例如長寬等)，而且對表單之外、專案之中的其他"元件"有影響的表單屬性，它們包括如下三個：

下面針對上述表單屬性以及VFP中"桌面(DeskTop)、螢幕(Screen)、表單(Form)"等概念談一談我的理解。正因爲VFP在此方面的設計混亂，也就決定了我不能系統地、有條理地分析這些問題，我做的只能是闡述一些事實。
　　 1.表單是一個物件，外觀表現上是一個視窗。VFP的主視窗也可以說是一個"表單"物件，它有一個固定的名字叫"_Screen"，"_Screen"是一個特殊的表單物件；
　　 2."ShowWindow"是規定表單在"顯示方面的從屬關係"的屬性 ShowWindow屬性實際上僅有兩種選擇："作爲頂層表單"與"在頂層表單中"。爲了表達方便，我們把具有前者屬性值的表單稱爲"頂層表單"，後者稱爲"從屬表單"。二者在顯示方面的不同地位是：頂層表單在Windows任務欄上有一席之地，從屬表單卻沒有這種待遇；頂層表單最小化時，從屬表單隨之被隱藏，當頂層表單關閉後，從屬表單隨之關閉。 ShowWindow的第三種選擇"在螢幕中（默認）"僅是"在頂層表單中"的一個特例，即爲"在_Screen這個特定的頂層表單中"之意，選擇此種屬性值時，它一定是個"從屬表單"了。_Screen具有"頂層表單"的一切顯示特徵。
　　從屬表單不能獨立地被顯示，必須與他的"主表單"一起顯示，這個"主表單"要麽是一個頂層表單要麽是VFP的窗口(_Screen)。不需要爲一個"從屬表單"指定一個"主表單"，"從屬表單"打開時，自動選擇當前的活動頂層表單作爲其"主表單"，當然，如果選擇了"在螢幕中"，則這個從屬表單自然就以_Screen爲其主表單了。
　　 3."DeskTop"是規定表單在"顯示方面的活動範圍"的屬性。
　　 DeskTop僅對"從屬表單"有意義，當從屬表單的DeskTop=.f.時，它只能顯示在它的"頂層表單"的尺寸之內，當這個頂層表單的尺寸比它的尺寸還小時，它將會被部分地遮住；當從屬表單的DeskTop=.t.時，它的活動範圍將不受它的頂層表單尺寸的限制，它可以顯示在電腦螢幕的任何地方甚至之外。但不管它的位置離其頂層表單多遠，一旦頂層表單最小化了，它會立即順從地從電腦螢幕上消失。
　　 4."ShowWindows"是規定表單被執行時的程式動作的屬性
　　分兩種情況：
　　 (1)當表單的ShowWindow爲"在螢幕中"和"在頂層表單中"時： a.當WindowType="模式"時，執行表單(DO FORM)後使得表單取得焦點，並且一直到它被關閉，在此期間，它的父視窗物件(可能是_Screen或一個頂層表單)的功能表系統及其所屬的子表單都不能用。就是說，在表單存在期間，它將一直霸佔著焦點. b.當WindowType="無模式"時，表單存在期間不會霸佔焦點。有一個例外，當DeskTop=.t.時，執行它時會使系統功能表失效，而DeskTop=.f.時則不會。
　　 (2)當表單的ShowWindow爲"做爲頂層表單"時：表單的WindowType屬性不管是有模式還是無模式，都不會霸佔焦點。
　　 5.一般情況，用戶的應用系統需要一個主表單（主視窗），您可以將_Screen作爲這個主窗口，也可以將專案中的某個"頂層表單"做爲"主窗口"，很難說那種更好。但在此筆者建議使用VFP主視窗做爲用戶系統的主視窗，這樣可能會省去一些麻煩，因爲VFP的很多工具條窗口被設計成只能開在_Screen中，例如在列印預覽工具條等。
　　程式編譯成EXE後，前者啓動時先顯示VFP主視窗，後者直接顯示程式師自己設計的頂層表單。對於後者，爲遮罩VFP主窗口，一定要在Config.fpw寫入Screen=off(Config.fpw應加入到專案中，這樣連編後它將被包含進EXE中，這一來可減少提供安裝文件的數量，二來也可避免被用戶更改)。另一方面，很多應用系統程式都喜歡有一個漂亮的或曰自以爲漂亮的啓動封面，然後再進入主控介面。如果一方面不希望在顯示自己的啓動封面前有VFP主視窗搶鏡頭，另一方面又想讓VFP主視窗做爲程式的主控介面時，解決辦法是：設計一個"頂層表單"做爲啓動封面，config.fpw中仍須寫Screen=off，然後在啓動封面展示夠了自己的魅力之後，用一句_Screen.Show將_Screen打回原形。
　　6.ShowWoindow與DeskTop屬性僅規定了Form在顯示方面的特徵，而在"物件"這一更加高級的層面上，"頂層表單"與"從屬表單"彼此是平級的，而_Screen雖然在顯示方面與"頂層表單"具有相同的地位，但在物件層面卻是高一級的傢夥，所有表單，不管你是"頂層表單"還是"從屬表單"，都是它的子物件，這想起來就叫人糊塗，還是趕緊不想的好。
　　 7."爲什麽我的程式編譯後一閃而過？" 這個問題有兩種可能性，第一種是程式執行完成並退出，第二種是程式正在執行，但介面被隱藏。對於第二種情況，可直接按"Ctrl-Alt-Del"鍵觀察到。造成這兩種情況的原因如下：我們先看下面的一段示例程式，假如下面的示例程式是專案的主程序，並且應用專案以VFP主窗口做爲自己的主窗口。
　　 *環境設置
　　 Do Form myScreen &&啓動封面表單 _
　　 Screen.Show &&顯示VFP主視窗
　　 Do myMenu.mpr &&安裝功能表系統
　　 RETURN
　　爲達到在顯示啓動封面之前不顯示VFP主視窗的目的，在Config.fpw中已寫Screen=off，當程式執行到Do Form myScreen這一句時，如果表單myScreen的ShowWindows屬性被設爲"在螢幕中"，則不管是在開發環境還是在編譯環境下，程式都將停下來，表單被顯示在_Screen中，而_Screen被隱藏了，因此表單跟著也被隱藏了，所以在螢幕上什麽也看不見。這就是第二種情況的産生原因。爲了避免這種錯誤的出現，必須將myScreen表單的ShowWindow的屬性設爲"做爲頂層表單"，這樣就可使在_Screen被隱藏的情況下，myScreen仍然可以被顯示出來。但請注意，在此情況下，Do Form myScreen這句話執行後，程式並不能停下來，而是順序地執行下去，一直到執行到RETURN後程式退出，這也就是著名的"一閃而過"現象了。爲此必須在程式中包含事件處理命令Read Events使程式停下來，如下：
　　*環境設置
　　 Do Form myScreen &&啓動封面表單
　　 Read Events &&開始事件處理：使啓動封面停下來
　　 _ Screen.Show &&顯示VFP主視窗
　　 Do myMenu.mpr &&安裝功能表系統
　　 Read Events &&開始事件處理
　　 RETURN
　　程式執行Do Form myScreen後，將啓動封面顯示在螢幕上，然後向下執行到Read Events開始事件處理，此時啓動封面表單必須由用戶關閉或由表單事件關閉，否則程式將一直停在Read Events這一句上。不管myScreen表單由誰關閉，在關閉代碼中必須包含一句Clear Events的停止事件處理命令，以便開始執行Read Events的下一句指令，順序執行完成_Screen.Show及Do myMenu.mpr後，用戶的主介面就建立完成，同理，此處還需要一個事件處理命令讓程式再次停下來，開始功能表系統的命令處理，一般情況，功能表系統中將包含的"退出"項，其中有"Clear Events"清除事件處理代碼，從而停止第二條"Read Events"事件處理命令，退出整個系統。
　　
　　以上經驗恐有謬誤，敬請批評！
　　最後，VFP是個所謂"讓我歡喜讓我憂"的東東，有時百依百順，有時莫名其妙。未曾戀愛過的男性最適合習之，以便爲今後的戀愛打下堅實的心理基礎。

fbilo最新
----------------------------------------------
再講一遍【一閃而過】和【 Read events】
在梅子那邊看到經典問題裏面有這個題目，話說了一堆，卻沒說到點子上。
說實話，以前也從來沒看到過說到點子上的文章。大多數人也就是知道在主程序裏面加了Read events 後能夠避免一閃而過的問題而已，到底是什麽原理還是不清除。
其實很簡單，主程序是個什麽文件？它就是一個PRG。
普通的PRG文件執行情況是怎麽樣的？從頭到尾，每一行代碼執行下去，然後立即退出。
OK，現在，再想一想，我們想要做的，是怎麽樣一個程式？是一個會出現功能表、主視窗，等待我們選擇某個功能去執行的程式。也就是說，程式應該打開功能表、主視窗以後就中途停下來，等待我們操作的程式。
好，現在再想一下，怎麽在PRG中間的某個地方讓程式停下來進入那麽一種狀態？Wait window 可以做到，不過一按滑鼠馬上就又繼續執行了，要讓程式一直等著，即使進行了幾個操作也不會退出，就只有用Read events了。
隨便建一個PRG，不用把它設置成主程序，只要這個PRG中間有Read events，那麽程式就會停下來等著，MSDN裏面的許多示例就是這麽幹的。
現在，一閃而過的問題應該清楚了吧？你的功能表是打開了、主視窗是打開了，但是，因爲沒有進入這個等待狀態，所以，程式馬上繼續執行到末尾然後退出，功能表、主視窗都馬上又被關閉了。這些，都是一瞬間就執行完的，結果，看起來就是一閃而過。
再看看Clear events，它的意思，就是從這種等待狀態中退出。許多人把 Clear events 誤會成一個退出程式的命令。不對，Clear events 只是退出這種等待狀態而已，如果你在它的後面再加上一個 Read events，那麽程式就又會進入一種等待狀態而不會結束。由於Clear events 並不是立即退出程式，因此，在Clear events 後面的代碼還是會繼續執行，比如我們用來關閉資料庫、恢復系統環境設置等等的命令之類的，都可以放在Clear events後面去執行。
這個解釋，應該是【一閃而過】和【Read events】的最終解釋了吧！：）

tdt · 註冊時間: 2003-06-14 文章: 12 第 3 樓

謝謝您的解釋，程式已經改好了。

Jerry · 發表於: 星期五八月 08, 2003 5:35 pm 文章主題:

感動~~ 又讓我釐清了觀念 ~!

sthuang66 · 註冊時間: 2014-04-27 文章: 178 第 5 樓

對於新手的我!這個說明真的太棒了!雖然它是13年前的內容!

ezpos · 註冊時間: 2011-04-20 文章: 323 第 6 樓