标题: 问一个vb中listbox的问题 [打印本页] 作者: sizz123 时间: 2007-5-15 17:22 标题: 问一个vb中listbox的问题 我做了2个listbox,其中一个是名称是月份,另一个名称是日期.
for 月=1 to 12
月份.additem 月
next
for 日=1 to 30
日期.additem 日
next
但是,有大小月之分,那么就是当月份选择为1,3,5,等大月的时候,就要加一个31的项目.
就是说:如我选择的是大月的时候,日期.additem 31,这个句子应该如何写?
-------------------
2,如何检测用户连续按下回车键?作者: sizz123 时间: 2007-5-15 17:22 标题: 问一个vb中listbox的问题 我做了2个listbox,其中一个是名称是月份,另一个名称是日期.
for 月=1 to 12
月份.additem 月
next
for 日=1 to 30
日期.additem 日
next
但是,有大小月之分,那么就是当月份选择为1,3,5,等大月的时候,就要加一个31的项目.
就是说:如我选择的是大月的时候,日期.additem 31,这个句子应该如何写?
-------------------
2,如何检测用户连续按下回车键?作者: 暴风の龙 时间: 2007-5-15 17:41
if 月=1 or 月 =2 or 月=3
日期 additem 31
else
日期 （忘记了，消除选项的那个）
貌似吧，我好久米碰VB了
作者: 叶舞枫 时间: 2007-5-16 04:25
VB{/fd},送去技术区吧，放那儿这类问题会解决得更快{/wx}作者: SailCat 时间: 2007-5-16 06:34
dim maxdays as integer
select case cint(月份.selecteditem)
case 1,3,5,7,8,10,12
maxdays = 31
case 4,6,9,11
maxdays = 30
case else
maxdays = 29
end select
for day = 1 to maxdays
日期.additem day
next day 作者: sizz123 时间: 2007-5-16 16:04
豁然开朗，谢谢猫了