java 添加年份组合框_组合框选择年份一小技巧

时　间:2012-11-17 08:45:37

作　者:摘　要:陈玉才同学提了个小问题，觉得不错，故拿出来发文章

正　文:

问题：我想使用Combo控件，来控制年，如何自动产生？比如从2002-2050这个 区间的年份

combo控件就自动产生下拉框

2050

。

。

。

2012  默认指向与系统相同的年份

。

。

。

Private Sub Form_Load()

Dim lngI As Long

Me.cboYear = Year(Date)

Me.cboYear.AddItem Me.cboYear

For lngI = 1 To 10

Me.cboYear.AddItem Me.cboYear - lngI, 0

Next

For lngI = 1 To 39

Me.cboYear.AddItem Me.cboYear + lngI

Next

End Sub

Access软件网QQ交流群(群号:39785885)

Access源码网店