八达网

标题: VFP高手进,菜鸟也来看下,看懂了进步也很大. [打印本页]

作者: 潇洒人间一剑仙 时间: 2008-10-20 19:33
标题: 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.
QQ截图未命名.jpg

作者: 千夜不眠 时间: 2008-10-20 19:36
牛B ?
可惜我看不懂

欢迎光临八达网 (https://www.8-da.com/)