VFP 愛用者社區

kueisen1 · 註冊時間: 2005-02-20 文章: 27 第 1 樓

請教一個老舊寫法 , 程式如下
如果我將 entry 的視窗按下 close , entry 視窗是關閉了
但是 get 並未清除 , 有沒方式可以按下entry 的視窗 close
可以關閉 entry 的視窗 , 且清除 gets 回到上一層,類似按了
[ESC]一樣, 謝謝 !!

SET TALK OFF
DEFINE WINDOW entry FROM 6,14 TO 14,65 ;
TITLE 'Input Window' FLOAT SHADOW close COLOR rgb(0,0,0,215,255,255)
ACTIVATE WINDOW entry
@ 2,2 SAY 'First Name:'
@ 4,2 SAY 'Last Name:'
@ 2,16 GET firstname DEFAULT SPACE(10)
@ 4,16 GET lastname DEFAULT SPACE(10)
READ

jeff25 · 發表於: 星期一四月 09, 2007 11:22 pm 文章主題:

試看看 CLEAR GETS

kueisen1 · 註冊時間: 2005-02-20 文章: 27 第 3 樓

我知道按clear gets ,但是 get read 中無法偵測到視窗是否已經close了!!

garfield · 發表於: 星期二四月 10, 2007 11:12 am 文章主題:

可能的寫法如下所示.
但不確定vfp有沒有支援這個命令

.......
read valid yourprg()

*****
func yourprg

release windows entry

return .t. &&--return .f. 則無法結束這個 read

andywilliams · 註冊時間: 2004-10-23 文章: 111 第 5 樓

proc QueryUnload
CLEAR GETS