VFP 愛用者社區

[wuno2001]

各位大大,
請問grid中checkbox欄的click事件如何建立?
或是grid中checkbox被click後如何觸發grid的AfterRowColChange事件,
以上,謝謝!!

[garfield]

一般checkbox 會用 valid , 很少人會用 click
可以寫成類似
if this.value = .t.
this.parent.parent.AfterRowColChange()
endif

[wuno2001]

garfield大大好:
因為我想做即時計數,所以想用click事件.
同一個checkbox,click一下v就+1,再click一下就-1.
也許valid事件也可以做到,但我並不確定.
另外,這段程式碼在grid中如何建立起來,
該寫在那裡呢?請指導賜教,謝謝!!

[garfield]

先學會如何在grid加入 checkbox
http://vfp.sunyear.com.tw/viewtopic.php?t=2565

請先說明你在form裡是如何寫程式碼的?

[andywilliams]

...AfterRowColChange
this.refresh

...Check1.click
=thisform.countV()
this.parent.parent.refresh

[wuno2001]

garfield大大好:

因為grid中的物件是用程式碼設定產生,
一開始grid是完全空白的並沒有任何欄的物件,
大致描述如下:

select .F. as chk_field,* from yy into table xx

thisform.grid1.RecordSource="xx"

with thisform.grid1

.DeleteColumn(1)
.AddColumn(1)

ln_cc = fcount('xx')
.Columns[ln_cc].RemoveObject('Text1')
.Columns[ln_cc].ControlSource = 'xx.chk_field'
.Columns[ln_cc].AddObject('chk_1', 'checkbox')
.Columns[ln_cc].chk_1.Caption = ''
.Columns[ln_cc].chk_1.Visible = .T.
.Columns[ln_cc].Header1.Caption = '選'
.Columns[ln_cc].Width = 17
.Columns[ln_cc].Sparse = .F.

endwith

也因為偷懶,使用了VFP提供的標準物件checkbox
真不行就要改用自定義物件了,還請再予指導,謝謝!!

[garfield]

可用 bindevent , 參考: http://vfp.sunyear.com.tw/viewtopic.php?t=2397&highlight=bindevent
用程式碼建立物件不可不讀的書 : http://vfp.sunyear.com.tw/viewtopic.php?t=3921&highlight=oop

但還是用 DEFINE CLASS 比較方便.

[wuno2001]

關於bindevent函數在vfp7以上版本才有,
下列也有相關範例,提供各位大大參考:
http://faq.csdn.net/read/217232.html

因為我還是使用vfp6,只好用自定義物件,己ok,謝謝garfield大大!!

[syntech]

會用到 自定義物件,看起來也是住在巷子裡的人