Private Sub cal1_DateChanged(NewDate As Date)
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdResetList_Click()
Dim DayArray() As Integer
Dim i As Integer
If lstDayValues.ListCount > 0 Then
ReDim DayArray(lstDayValues.ListCount - 1)
For i = 0 To lstDayValues.ListCount - 1
DayArray(i) = CInt(lstDayValues.List(i))
Next
cal1.ResetDates DayArray, lstDayValues.ListCount
End If
End Sub
Private Sub Form_1Load()
lblDateValue = Format(cal1.DateValue, "dddd, dd.mmmm.yyyy")
txtDaysOfMonth.Text = "Month has " & cal1.DaysOfMonth & " days."
End Sub
这是一个万年历，附图
如果程序有错误，请改正。
第1个回答 2014-07-07
Private Sub cal1_DateChanged(NewDate As Date)
'无意义
End Sub
Private Sub cmdExit_Click() '单击“退出”按钮时
Unload Me '结束程序
End Sub ’ cmdExit_Click事件结束
Private Sub cmdResetList_Click() ’单击”cmdResetList“按钮时
Dim DayArray() As Integer ‘定义一个integer动态数组DayArray
Dim i As Integer ’定义一个integer变量i
If lstDayValues.ListCount > 0 Then ‘如果lstDayValues控件的.ListCount属性大于0 则：
ReDim DayArray(lstDayValues.ListCount - 1) ’重定义DayArray的上标为lstDayValues控件的ListCount属性减1
For i = 0 To lstDayValues.ListCount - 1 ‘循环 lstDayValues控件的ListCount属性减1 次
DayArray(i) = CInt(lstDayValues.List(i)) ’数组DayArrat的第i个值为强制转化为整数的lstDayValues集合的List中的第i个值
Next ‘结束循环
cal1.ResetDates DayArray, lstDayValues.ListCount ’ 重置cal1的日期为DayArray，总共有lstDayValues集合的ListCount
End If ’结束判断
End Sub ‘cmdResetList_Click事件结束
’改错：Private Sub Form_1Load()改成
Private Sub Form_Load() ’窗体加载事件
lblDateValue = Format(cal1.DateValue, "dddd, dd.mmmm.yyyy") ‘设置lblDateValue为格式化为”"dddd, dd.mmmm.yyyy"的cal1控件的DateValue属性
txtDaysOfMonth.Text = "Month has " & cal1.DaysOfMonth & " days." ’设置 txtDaysOfMonth控件的文本为"Month has " 加上 这个月有几天 加上 " days."
End Sub ‘From_Load事件结束
我打字打了好久，请采纳
因为我不知道cal1控件怎么使用，所以无法给出更详细的解释了本回答被提问者采纳
'无意义
End Sub
Private Sub cmdExit_Click() '单击“退出”按钮时
Unload Me '结束程序
End Sub ’ cmdExit_Click事件结束
Private Sub cmdResetList_Click() ’单击”cmdResetList“按钮时
Dim DayArray() As Integer ‘定义一个integer动态数组DayArray
Dim i As Integer ’定义一个integer变量i
If lstDayValues.ListCount > 0 Then ‘如果lstDayValues控件的.ListCount属性大于0 则：
ReDim DayArray(lstDayValues.ListCount - 1) ’重定义DayArray的上标为lstDayValues控件的ListCount属性减1
For i = 0 To lstDayValues.ListCount - 1 ‘循环 lstDayValues控件的ListCount属性减1 次
DayArray(i) = CInt(lstDayValues.List(i)) ’数组DayArrat的第i个值为强制转化为整数的lstDayValues集合的List中的第i个值
Next ‘结束循环
cal1.ResetDates DayArray, lstDayValues.ListCount ’ 重置cal1的日期为DayArray，总共有lstDayValues集合的ListCount
End If ’结束判断
End Sub ‘cmdResetList_Click事件结束
’改错：Private Sub Form_1Load()改成
Private Sub Form_Load() ’窗体加载事件
lblDateValue = Format(cal1.DateValue, "dddd, dd.mmmm.yyyy") ‘设置lblDateValue为格式化为”"dddd, dd.mmmm.yyyy"的cal1控件的DateValue属性
txtDaysOfMonth.Text = "Month has " & cal1.DaysOfMonth & " days." ’设置 txtDaysOfMonth控件的文本为"Month has " 加上 这个月有几天 加上 " days."
End Sub ‘From_Load事件结束
我打字打了好久，请采纳
因为我不知道cal1控件怎么使用，所以无法给出更详细的解释了本回答被提问者采纳
