上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
nh8287

註冊時間: 2007-06-11 文章: 30
第 1 樓
|
發表於: 星期五 八月 17, 2007 9:43 am 文章主題: 請問 Vfp [WAIT 命令] 的設定? |
|
|
通常顯示一個訊息並暫停 Visual FoxPro 的執行,直到使用者按任意一個鍵或按一下滑鼠為止。
WAIT [cMessageText] [TO VarName] [WINDOW [AT nRow, nColumn]] [NOWAIT]
[CLEAR | NOCLEAR] [TIMEOUT nSeconds]
如: WAIT DATE() WINDOW AT 20,20 TIMEOUT 2
如何設定 WAIT DATE() WINDOW AT 螢幕正中間...?
如何測出 nRow, nColumn
請知道的大大求助,感謝...! |
|
回頂端 |
|
 |
garfield Site Admin

註冊時間: 2003-01-30 文章: 2160
第 2 樓
|
發表於: 星期五 八月 17, 2007 11:06 am 文章主題: |
|
|
要顯示在畫面中間的功能,
通常會用messagebox() _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
 |
jaime47
註冊時間: 2003-03-26 文章: 14 來自: Taiwan
第 3 樓
|
發表於: 星期五 八月 17, 2007 11:47 am 文章主題: |
|
|
請使用下列方法試試看:
WAIT [cMessageText] [TO VarName] [WINDOW [AT (SRow()-MemLines(cMessageText))/2, (SCols()-Len(cMessageText))/2]] [NOWAIT] [CLEAR | NOCLEAR] [TIMEOUT nSeconds]
如: WAIT DATE() WINDOW AT (SROW()-MEMLINES(DATE()))/2, (SCOLS()-LEN(DATE()))/2 TIMEOUT 2 _________________ Jaime Tsao |
|
回頂端 |
|
 |
nh8287

註冊時間: 2007-06-11 文章: 30
第 4 樓
|
發表於: 星期五 八月 17, 2007 12:40 pm 文章主題: |
|
|
知道了大大,感謝 Jaime Tsao ...!
測試 WAIT DATE() WINDOW AT (SROW()-MEMLINES(DTOS(date())))/2, (SCOLS()-LEN(DTOS(date())))/2 TIMEOUT 2
已經 OK...!  |
|
回頂端 |
|
 |
nh8287

註冊時間: 2007-06-11 文章: 30
第 5 樓
|
發表於: 星期五 八月 17, 2007 1:27 pm 文章主題: |
|
|
這樣寫更貼切...!
LOCAL msg
msg='今天日期='+DTOC(DATE())
WAIT msg WINDOW AT (SROW()-MEMLINES(msg))/2, (SCOLS()-LEN(msg))/2 TIMEOUT 3
感謝 Jaime Tsao ...!  |
|
回頂端 |
|
 |
|