VFP 愛用者社區

黃澤民 · 發表於: 星期一三月 21, 2005 10:21 pm 文章主題:

史兄：請相信我，我知道您的意思，當然我也知道傳值呼叫與傳址呼叫的方法與分別
我的意思是說難道不能在Form.Unload中傳回一個物件嗎，舉例如下
有二個表單
Form_A 與 Form_B
Form_A是主表單，當按了From_裡的Command.Click程式碼下

Command1.Click
　Do Form Form_B with P1,P2,P3 To Rtn_Val <---- 傳入三個參數，並要求Form_B傳回一個變數，P1,P2,P3可以是物件

然後在Form_B的 Init事件中，寫以下的程式碼

Form_B.Init
　Para P1,P2,P3 <---接收參數
　With This
　　　.addproperty('My_obj') <---新增一個表單自訂屬性
　　　.My_obj = .Container1 <---引用物件
　Endwith
到這邊因該沒問題吧，然後要如何把這個Container1整個物件傳遞回去給 Form_A呢

如果在Form_B的Unload事件中這樣寫
Form_B.Unload
　Return this.My.obj <---會有問題，因為物件已經被Release (視窗為Model模式)，不Release無法離開

我要怎樣才能在Form_A中得到Form_B的Container1呢.....困惑中....希望史兄能知道我在說什麼

　

bigear · 發表於: 星期二三月 22, 2005 2:21 am 文章主題:

garfield · 發表於: 星期二三月 22, 2005 9:16 am 文章主題:

to: 黃澤民,
你即然都知道在unload前,物件已經被Release , 那又怎麼能夠將form_b的某個物件傳回去呢?
如果真得要一次傳回一個 Container 裡全部的內容 , 是不是有考慮到在 form_a 建立一個 container , 而且用傳址的方式給form_b 去處理呢? ,或是你用第3種方式去改變form_b中的container中的物件之.controlsource 呢?

to: bigear,
你太客氣了, 回覆文章沒有所謂夠不夠格的問題, 只有願不願意付出的問題, 一個討論的主題是討論越多,答案越清楚, 不管是提問者或回答者, 只要身在其中就會獲得更多.
就我以前做作的實驗, 在unload時, 整個form只剩下"屬性"還在, 所以要return 一個值, 就只剩下public變數(含呼叫這個form前定義的變數), 跟這個form的屬性, 你也可以去實驗看看.....

黃澤民 · 發表於: 星期二三月 22, 2005 1:28 pm 文章主題:

史兄

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 20 樓

黃澤民 · 發表於: 星期二三月 22, 2005 9:07 pm 文章主題:

andy8m23 · 發表於: 星期三三月 23, 2005 12:38 am 文章主題:

原來如此,那麼Garield兄
如果在A form中旁邊有個按紐我如果要作按紐控制的話
我會在按紐的click中寫 thisform.dblick()就好了,的確很方法
不知是否可以在按紐中直接指定text1的物件傳給B form

garfield · 發表於: 星期三三月 23, 2005 1:37 am 文章主題:

to: 黃澤民,

芝風 · 發表於: 星期三八月 30, 2006 5:10 am 文章主題:

我大概有點了解了，用para這物件來接收資料

可是有一點還是很困惑，我現在在formA查詢到的資料要寫入到formB

所以formB.init()要寫入

para myobject
thisform.text1.addproperty('objectname') 這樣就可以指向text1？？
thisform.objectname=myobject

我試過了，因為formB會先執行，所以執行時，他說para沒接收到變數

那formA要寫入

thisform.objectname.value = 你要傳回的值 &&--這個thisform.objectname 本質上只是一個指向 A form 中的那個 .text1的物件

不好意思，又翻舊文出來問

因為這篇討論串好像是討論單純的A->B，可是我的是B是開著，當要新增時才會叫A, 然後傳回值到B

bigear大的例子我也下載過，好像很簡單，就在formA中就可直接寫入值到formB

formB.text1.value=我要的數值，可是執行有錯誤，無法執行

錯誤訊息是 formB could not be found

謝謝大家

impotence · 發表於: 星期三八月 30, 2006 9:19 am 文章主題:

我的做法比較笨一點 , 我先 public 了一個變數 (eg: aaa), 再在那個 form 結束前把要傳回的值給 aaa , 再在 form 的 unload 中 return aaa ....

garfield · 發表於: 星期三八月 30, 2006 10:45 am 文章主題:

先說明如何解決 formB could not be found
用 do form formB name formB
重點是 name 後面的參數可以將執行中的form重新命名你所要的名字,
因為form的檔名跟 form.name 是不一樣的.

to: 芝風
你用的方法跟前幾位所提的不一樣,
一般初學者儘量不要改變學習到的範例,
除非你已經融會貫通了,
本來範例說的是 formA 去呼叫 formB的查詢畫面,
當然用 formB.init 來接收參數,
但你把 formA 跟 formB的用途搞混了,
你的formA是查詢畫面, formB才是資料畫面,
所以是 formA.init 要用 para 來接收formB傳來的參數才對.

芝風 · 發表於: 星期四八月 31, 2006 4:27 am 文章主題:

garfield · 發表於: 星期四八月 31, 2006 9:09 am 文章主題:

用另一種方法,
不需要傳參數, 也不需return 值
直接在 formA裡的程式用 formB.物件.value = 要給它的值

芝風 · 發表於: 星期四八月 31, 2006 10:17 am 文章主題:

就這樣對吧，但是很奇怪，我試過就是摃龜

錯誤訊息 object formB is not found

garfield · 發表於: 星期四八月 31, 2006 10:38 am 文章主題:

所以要用 do form formB name formB