有没有ComboBox样式的下拉框日期选择的控件？

Question

如题。
vb中没有ComboBox样式的下拉框日期选择的控件？不是MonthView,DTPicker控件。
是不是要自己用3个ComboBox实现一个年月日选择功能才行？

Answer 1

既然你不用MonthView,DTPicker控件  就用3个控件  不然用一个光1年就例举365个ADD,肯定不行

Answer 2

就是用chinaren校友录上选择入学年份那种。选择依次选择年份，月份，日。根据年份计算是不是闰年。还是自己做一个吧，也挺简单的，只判断是否是闰年就可以了。

Answer 3

不需要算闰年。每个月的最后一天都可以从下月1日减1天得到：Dim i As IntegerPrivate Sub Combo2_Click()
    Dim datTmp As Date
    
    datTmp = DateAdd("m", 1, Combo1 & Combo2 & "1日") - 1
    Combo3.Clear
    For i = 1 To Day(datTmp)
        Combo3.AddItem i & "日"
    Next i
    Combo3.ListIndex = 0
End SubPrivate Sub Form_Load()
    For i = 2000 To 2020
        Combo1.AddItem i & "年"
    Next i
    Combo1.Text = Year(Date) & "年"
    
    For i = 1 To 12
        Combo2.AddItem i & "月"
    Next i
    Combo2.ListIndex = 0
End Sub