终于大功告成了!!!
真不容易啊,这个才是真正的带spinner的列表框.我苦思多日的成果啊.代码附上.
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
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
因为每个spinner的name属性都和物品名一样,可以程序里自由地调用对应项的数量值.