vb中进行关于Combo box控件的一些问题（十万火急！！！）

显示全部楼层 · 2008-11-4 22:03:14

For intcount = 1 To 12
cboMonth.AddItem intcouunt
Next intcount
'得到现在的月份
cboMonth = Month(Now)
cboMonth.ListIndex = 0
这几句的主要目的就是在给一个Combo box控件添加内容（1~12月）后
然后取得现在的月份并将其置为当前显示的项，不知为何在最后需要用到
这里的内容时，其内容总显示为空，不知何原因！盼高手回答！
不胜感激！！！！
是intcount拼错了！谢谢各位了！
那如何能将当前月份置为直接显示出来的那一项呢？
麻烦不吝赐教！！！
我也像下面这样写了，但没有得到预期的结果，茫然！
cboMonth = Month(Now)
cboMonth.ListIndex = 0

千问 · 2008-11-4 22:03:14

首先,for 的 intcount 与 cboMonth.AddItem 的 intcouunt 变量不一样,这程序运行不会出错吗,,汗,,其次试试把 cboMonth.ListIndex = 0 这句注释看看....

千问 · 2008-11-4 22:03:14

下面测试成功Sub Test()Dim I As IntegerFor I = 1 To 12cboMonth.AddItem Str(I) & "月"Next I'得到现在的月份cboMonth = Month(Now)cboMonth.ListIndex = 0End Sub...

千问 · 2008-11-4 22:03:14

试试 For intcount = 1 To 12cboMonth.AddItem intcouuntNext intcount'得到现在的月份cboMonth.ListIndex = Month(Now) - 1...