用VB设计一个带提示功能的日历程序

来源：百度知道 编辑：UC知道 时间：2024/05/16 07:47:26
按照图例设计出相应的界面。
程序在装载时显示当前的年月日，且在日期右侧显示星期和年月日的信息。
点击年或者月，下面的日期要随着实际年月所应有的天数发生变化。
点击Cancel按钮退出当前程序。
在文本框中输入指定格式的提示信息，并保存在记事本中。
根据提示信息的日期当选定有提示信息的日期时弹出消息框提示用户
或者告诉我你的邮箱 我把详细的内容发给你

+个QQ吧，我或许能弄
175147310

ljl2008610@163.com

你的程序设计有缺点，提醒功能是在几点钟实现，总不可能一天到晚都提醒吧？

 

Dim Temp As String

Dim MyDay As Date

Dim MyMsg As String

Private Sub Calendar1_Click()

Dim Week As String

Select Case Weekday(Calendar1.Value) - 1

Case 0

    Week = "星期日"

Case 1

    Week = "星期一"

Case 2

    Week = "星期二"

Case 3

    Week = "星期三"

Case 4

    Week = "星期四"

Case 5

    Week = "星期五"

Case 6

    Week = "星期六"

Case Else

End Select

<