VFP 愛用者社區

[Batman]

表有一欄位Position, 祗是存入1,2或3這3個數字, 分別代表將處理的圖形3個位置, 在form上有一Method: setposition處理, 傳入1,2或3便可.
Grid的Column1放入了Container, Container內有一圖形Image1.
我應如何設定Column的ControlSource, 以在Grid內顯示圖形的不同位置?如
Column1.ControlSource="thisform.setPosition(表.Position)"
它說setPosition不是array, 或是vfp是不可以這樣顯示, 如

[Batman]

再測試, 還是不行, 祗是出了New.bmp
Create Cursor tmpImage (nImage i)
insert into tmpImage (nImage) values (1)
insert into tmpImage (nImage) values (2)
insert into tmpImage (nImage) values (3)
go top
With This.Grid1
.RecordSource='tmpImage'
.ColumnCount=2
.Column1.removeObject('text1')
.Column1.newObject('Image1','Image')
.Column1.CurrentControl='Image1'
.Column1.Sparse=.f.
.Column1.Image1.Picture=iif(nImage=1,'New.bmp',iif(nImage=2,'Edit.bmp','Delete.bmp'))
.Column2.Controlsource="iif(nImage=1,'New',iif(nImage=2,'Edit','Delete.bmp'))"
EndWith

Create Cursor tmpImage (nImage i)
insert into tmpImage (nImage) values (1)
insert into tmpImage (nImage) values (2)
insert into tmpImage (nImage) values (3)
go top
With This.Grid1
.RecordSource='tmpImage'
.ColumnCount=2
.Column1.removeObject('text1')
.Column1.newObject('Image1','Image')
.Column1.Sparse=.f.
.Column1.CurrentControl='Image1'
.Column1.Image1.Picture=iif(nImage=1,'..\DevImages\New.bmp',iif(nImage=2,'..\DevImages\Edit.bmp','..\DevImages\Delete.bmp'))
.Column2.Controlsource="iif(nImage=1,'FolderClose',iif(nImage=2,'FolderOpen','New.bmp'))"
EndWith

[Batman]

參考了小賴兄以前解答, 做到了
1. Form 新增一個 Method : 如SetImage()內容如下：
ThisForm.Grid1.Column1.Image1.Picture = 圖片位置

2.ThisForm.Grid1.Column1之DynamicCurrentControl
設定成 = "ThisForm.SetImage()" (含 = 與 ")

3.ThisForm.Grid1.Column1.Sparse = .F.

[Kuma]

請問如何 ... Form 新增一個 Method

[syntech]

[表單] [新方法]或[表單] [編輯屬性/方法程序]

[Kuma]

我用 vfp9 英文版, 如何 form add method

[小賴]

syntech 大大在說你都沒有在看 ..

[表單] [新方法]或[表單] [編輯屬性/方法程序]

1.開啟你的 Form
2. 從功能表開始依syntech 提供的順序一路點下去...

英文版的是 [Form][New Method] ....
或 [Form][Edit Property/Method]....

[CPS0204]

[quote="小賴"]syntech 大大在說你都沒有在看 ..

賴sir 7pupu

[color=red][/color]