求高手指点

Question

我设计日下：
起始日期 combox 月 dtpicker 日    截至日期 combox 月 dtpicker 日combox供选择1～12月，dtpicker控件我想定义成自定义格式，只想显示日，供选择月份所对应的范围的日，不知道怎么把两个控件联系起来？dtpicker控件又怎么操作？
或者有更好控件的设计方法？求高手指点！

Answer 1

dtpicker或许做不到你要的吧..
都用combox不是很好解决吗?

Answer 2

请问上ls的，那怎么把两个combox联系起来操作？

Answer 3

简单示例一下:
Option ExplicitPrivate Sub Combo1_Click()
    
    Dim m As Long, d As Long
    Dim i As Long
    Dim dt As Date
    
    Me.Combo2.Clear
    If Val(Me.Combo1.Text) = 0 Then Exit Sub
    m = Val(Me.Combo1.Text)
    dt = DateSerial(Year(Date), m + 1, 1)
    d = Day(dt - 1)
    For i = 1 To d
        Me.Combo2.AddItem i
    Next
    Me.Combo2.ListIndex = 0
    
End SubPrivate Sub Form_Load()
    Dim i As Long
    
    Me.Combo1.Clear
    Me.Combo2.Clear
    Me.Combo1.AddItem "请选择月份"
    For i = 1 To 12
        Me.Combo1.AddItem i
    Next
    Me.Combo1.ListIndex = 0
    
End Sub