VFP高手进,菜鸟也来看下,看懂了进步也很大.

潇洒人间一剑仙

带控件的列表框你见过吗?我苦思良久解决了这个在各大论坛求助都没解决的问题。构思巧妙,特来装B.
按这个思路,可以在列表框里自由添加任何控件.
首先将list的multiselect属性设为.t.
在list的click倳件中这样写:
FOR i=1 TO this.ListCount
objname=ALLTRIM(this.List(i))
IF TYPE("thisform.&objname.") = "O"
thisform.removeobject(objname)
endif
IF this.Selected(i)
thisform.AddObject(objname,"spinner")
itemsize=thisform.list1.fontsize+8
WITH thisform.&objname.
.visible=.t.
.top=i*itemsize+thisform.list1.top-17
.width=40
.height=itemsize
.left=thisform.list1.Left+thisform.list1.Width-100
.value=1
ENDwith
ENDIF
NEXT
thisform.refresh
注:本例中list的fontsize是12.

千夜不眠

牛B ?
可惜我看不懂