自己用两个COMBO写一个不就行了吗
成都创新互联网站设计，为客户量身定制各类网站建设业务，包括企业型、电子商务型、响应式网站设计、行业门户型等各类网站，实战经验丰富，成功案例众多。以客户利益为出发点，成都创新互联网站制作为客户规划、按需定制制作符合企业需求、带有营销价值的网络建站方案认真对待每一个客户，我们不用口头的语言来吹擂我们的优秀，上1000家的成功案例见证着我们的成长。
何必用控件呢
##################################
Private Sub Form_Load()
For n = 1949 To 2008
Combo1.AddItem n
Next
Combo1.ListIndex = 0
For n = 1 To 12
Combo2.AddItem n
Next
Combo2.ListIndex = 0
End Sub
‘以如下的方式获取时间
Private Sub Command1_Click()
MsgBox "当前选择的是" Combo1.Text "年" Combo2.Text "月", vbInformation, "年月"
End Sub
希望对你有帮助
Visual Studio .NET的DateTimePicker控件为用户提供一个选择日期/时间的简便方法。这个控件允许你选择日期和时间；同时，由于这个控件允许你限制输入内容，你可以忽略合法的日期格式。DateTimePicker控件类似于MonthView控件，后者允许你选择一个日期或日期范围，但不支持时间选择。在本文中，我将创建一个使用DateTimePicker控件的实例。实例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。设置以下属性：l Name：dtpDateSelectionl CustomFormat：mm/dd/yyyyl Format：短l MaxDate：12/31/2008l MinDate：01/01/2007l ShowUpDown：假 在Form Load事件中添加以下代码： dtpDateSelection.Value = Now 创建以下事件： Private Sub dtpDateSelection_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpDateSelection.CloseUp MessageBox.Show(dtpDateSelection.Value) End Sub 结果在第一个例子中，ShowUpDown属性设为假，表示在用户点击控件时，控件的日历部分可见。然后用户从控件的日历部分选择日期。在DateTimePicker控件中选择一个日期后，你的屏幕看起来与图A类似。 现在，将ShowUpDown属性值改为真，再次运行代码。这次你不会看到控件的日历部分，你可以点击控件的上/下箭头来选择一个日期。其结果类似于图B。 注意，这个控件不允许你选择小于MinDate属性值或大于MaxDate属性值的日期。 更多信息你还可以使用许多其它属性和重要的方法，让DateTimePicker控件满足你的需求。MSDN提供关于如何使用DateTimePicker控件的其它细节。 Irina Medvinskaya自1996年开始涉足技术领域。她获得佩斯大学的MBA学位，现在任花旗集团的项目经理。
; Visual Studio NET提供的MonthCalendar控件允许你选择日期和一组日期 这个控件允许用户方便地选择日期 它类似于让你选择一个特定日期的DataTimePicker控件 不过MonthCalendar控件还可以帮助你选择一个时间
使用MonthCalendar 控件
下面的例子说明如何使用MonthCalendar控件
在常用控件（Common Controls）下的工具箱（Toolbox）中找到MonthCalendar控件并将它添加到窗口表单（Window Form）中 设置以下属性
·Name mcDateSelection
·TodayDate 空
·MaxSelectionCount
·Selection Range Start 空
·Selection Range End 空
在Form Load事件中添加以下代码
mcDateSelection TodayDate = Now
然后建立列表A中的事件 在这个例子中 我设置MaxSelectionCount属性为 这意味着你只能在MonthCalendar控件中选择一个 而不是一组日期 在MonthView控件中选择一个日期 屏幕即类似于图A
图A
列表A Private Sub mcDateSelection_DateSelected(ByVal sender As Object ByVal e As System Windows Forms DateRangeEventArgs) Handles mcDateSelection DateSelected MessageBox Show( Calendar Today s Date: mcDateSelection TodayDate vbCrLf _ Calendar Selected Start Date: mcDateSelection SelectionStart() vbCrLf _ Calendar Selected End Date: mcDateSelection SelectionEnd()) End Sub 既然你只能选择一个月中的某个特定的日期 而不是一组日期 那么 Selected Start Date和Selected End Date的值相同
现在 将MaxSelectionCount属性设为 然后重新运行代码 这次 你就可以选择一组日期（在这个例子中最多为 天） 而且 一旦你选择一组日期后 你将看到如图B所示的结果
图B
控件的其它用法
你可以利用MonthCalendar控件的许多其它属性和方法 使其满足你的需要 MSDN提供使用MonthCalendar控件的更多细节
lishixinzhi/Article/program/net/201311/11787