 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Bill Chen
註冊時間: 2003-06-09
文章: 30
第 1 樓
|
 發表於: 星期四 二月 19, 2004 11:44 pm 文章主題: 如何在程式中產生多個form |
 |
|
我寫了以下的程式, 但每當enddo後, 程式所產生的form亦自動關閉. 請如何解決.
i=1
do while .not. eof()
&i = createobject("newform")
&i.show
enddo |
|
| 回頂端 |
|
 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 2 樓
|
| 發表於: 星期五 二月 20, 2004 12:52 pm 文章主題: |
|
|
| 代碼: |
CREATE CURSOR test1( test c(20) )
INSERT INTO test1 VALUES ( "視窗一" )
INSERT INTO test1 VALUES ( "視窗二")
INSERT INTO test1 VALUES ( "視窗三" )
i="ii"
SELECT test1
GO TOP
DO WHILE .NOT. EOF()
&i = CREATEOBJECT("newform")
&i..SHOW
&i..CAPTION=test1.test
READ EVENTS
SKIP
ENDDO
DEFINE CLASS newform AS FORM
ADD OBJECT command1 AS COMMANDBUTTON WITH;
TOP=150,;
LEFT=320,;
HEIGHT=124,;
WIDTH=160,;
CAPTION="按我!!截速他",;
NAME="command1"
FUNCTION INIT()
WITH THIS
WINDOWTYPE=1
.WINDOWSTATE = 2
.CLOSABLE =.F.
.CONTROLBOX = .F.
.MAXBUTTON = .F.
.MINBUTTON = .F.
.MOVABLE = .F.
.CAPTION = "myform"
.NAME = "myform"
.VISIBLE = .T.
ENDWITH
ENDFUNC
PROCEDURE DESTROY
CLEAR EVENTS && 結束事件迴圈
ENDPROC
PROCEDURE command1.CLICK
THISFORM.RELEASE
ENDPROC
ENDDEFINE |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
|
catjoke
註冊時間: 2003-06-16
文章: 175
來自: 香港
第 3 樓
|
| 發表於: 星期六 二月 21, 2004 9:49 am 文章主題: |
|
|
方法有幾種!
1) 最難的是用 Formset, 然後再不斷 AddObject([FCustomer1], [FCustomer])
按需要將 Form class 加入...
開始時速度好快, 因為不是 load 了所有 form, 然後每按一個需求,
才加一個 new form..
2) 另一個好相似的, 就不使用 Formset, 而是做 MDI form in on Form.
這也是一個較難寫的方法...
(VFP 5.0 solution sample 中的它的例子)
3) 較易的方法, 要按需要才 DO FORM formabc WITH ThisForm.
因為要 form 與 form 之間要傳遞資料, 所以要知道那一個 form 是指...
最重要是你明白當中的 呼叫處理, 才可以做到 得心應手~  P
_________________
喵喎~ 貓當然是 "茅" 的嘛! ^0^; |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
