VFP 愛用者社區

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

寫了一個顯示訊息的視窗，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 · 發表於: 星期一六月 30, 2003 9:52 pm 文章主題:

看起來是這個
release waitform
改用thisform.release

Ruey · 發表於: 星期一六月 30, 2003 10:37 pm 文章主題:

waitform.AddObject('lab1','label1') && Add label
waitform.lab1.Visible =.T.
waitform.lab1.caption =qq2 &&少加入這一行
waitform.SHOW && Display the form

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

哎呀，真太感動了，這麼簡單，我怎麼沒注意到呢﹖謝謝協助，我發現年紀大了真的好像不適合寫程式了。