您的位置：程序门 -> vb ->

combo 控件

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

combo 控件[已结贴,结贴人:wjp1015]

发表于：2007-10-22 16:30:30 楼主

两个combo控件，combo1中是1950年到2010年，combo2中是第一季度 ....第四季度4个，1950到2010 怎么弄进去，如何在初始化时就选定时间？如：今天是2007.10.22，初始化时第一个combo出现的时2007，第二个combo是第四季度

发表于：2007-10-22 16:57:451楼得分:0

for i=1950 to 2010
combo1.additem i
next i

发表于：2007-10-22 17:12:342楼得分:10

填充按 leftie 的方式，初始化：
combo1.listindex = year（now) - 1950
combo2.listindex = datepart（"q",now) - 1

发表于：2007-10-24 13:36:183楼得分:5

for i=1950 to 2010
combo1.additem i
next i
combo1.text = year（now)
combo2.text = datepart（"q", now)

发表于：2007-10-24 15:50:194楼得分:5

dim i as integer

for i = 1950 to 2010
combo1.additem i & " 年"
next i
combo1.text = year（date) & " 年"

combo2.additem "第一季度"
combo2.additem "第二季度"
combo2.additem "第三季度"
combo2.additem "第四季度"
combo2.listindex = datepart（"q", date) - 1

下一篇：关于commandstatechange具体何时调用
上一篇：我自己开发的vb在2000系统无法打开？

其他资讯