|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
tdt
註冊時間: 2003-06-14 文章: 12
第 1 樓
|
發表於: 星期一 六月 30, 2003 8:43 pm 文章主題: 下面的程式不正常 |
|
|
寫了一個顯示訊息的視窗,qq是要顯示的參數,可是用
do *** with "*****"的指令,不管參數怎樣都是顯示第一次的訊息,好奇怪,哪裡寫錯了呢?各位高手幫個忙吧!謝謝
*---------------------------
PARAMETERS qq && 顯示之訊息文字
*PUBLIC qq2
*qq="提示某一訊息"
tdtfh=28
*clear
public waitform
*PRIVATE waitwin
qq2=space((40-len(qq))/2)+qq+space((40-len(qq))/2)
clear
*?qq2
*wait
waitform = CREATEOBJECT('waitform1') && Create a Form
*waitform.Closable = .f. && Disable the window pop-up menu
waitform.backcolor=RGB(0,255,255)
waitform.caption='提示訊息 ESC-離開'
waitform.controlbox=.f.
waitform.height=tdtfh*3
waitform.width=tdtfh*16
waitform.autocenter=.t.
waitform.AddObject('lab1','label1') && Add label
waitform.lab1.Visible =.T.
waitform.SHOW && Display the form
Define CLASS label1 AS label
Caption=qq2
Left = tdtfh
Top = tdtfh
Height = tdtfh
AutoSize=.t.
BackColor=RGB(0,255,255)
Enddefine
DEFINE class waitform1 as form
Procedure keypress
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=27
* waitform.lab1.release
release waitform
* waitform.release
Set cursor on
Endif
endproc
ENDDEFINE |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 2 樓
|
發表於: 星期一 六月 30, 2003 9:52 pm 文章主題: |
|
|
看起來是這個
release waitform
改用thisform.release _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 3 樓
|
發表於: 星期一 六月 30, 2003 10:37 pm 文章主題: |
|
|
waitform.AddObject('lab1','label1') && Add label
waitform.lab1.Visible =.T.
waitform.lab1.caption =qq2 &&少加入這一行
waitform.SHOW && Display the form _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
tdt
註冊時間: 2003-06-14 文章: 12
第 4 樓
|
發表於: 星期二 七月 01, 2003 8:35 am 文章主題: |
|
|
哎呀,真太感動了,這麼簡單,我怎麼沒注意到呢﹖謝謝協助,我發現年紀大了真的好像不適合寫程式了。 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|