组合框选择年份一小技巧

时　间:2012-11-17 08:45:37
作　者:风行   ID：16058  城市：江阴
摘　要:陈玉才同学提了个小问题，觉得不错，故拿出来发文章
正　文:

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

2050

。

。

。

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

。

。

。

http://www.accessoft.com/bbs/showtopic.asp?id=16915

点击下载附件

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