| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1819 人关注过本帖, 1 人收藏
标题:太高兴了,我用VFP做的带spinner控件的可复选列表框
取消只看楼主 加入收藏
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
结帖率:83.33%
收藏(1)
 问题点数:0 回复次数:1 
太高兴了,我用VFP做的带spinner控件的可复选列表框
按这个思路,可以在列表框里自由添加任何控件.
首先将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.
搜索更多相关主题的帖子: 控件 复选 VFP spinner 列表 
2008-10-20 19:02
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
收藏
得分:0 
无码写真图:
图片附件: 游客没有浏览图片的权限,请 登录注册
2008-10-20 19:04
快速回复:太高兴了,我用VFP做的带spinner控件的可复选列表框
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031384 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved