form1.frm

用VB制作的简单的万年历

   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Caption         =   "请输入年份"
      Height          =   375
      Left            =   5040
      TabIndex        =   19
      Top             =   480
      Width           =   1695
   End
   Begin VB.Label Label6 
      BackColor       =   &H00FFFFC0&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   9600
      TabIndex        =   17
      Top             =   360
      Width           =   855
   End
   Begin VB.OLE OLE3 
      Class           =   "Package"
      Height          =   735
      Left            =   2640
      OleObjectBlob   =   "Form1.frx":58E7
      SourceDoc       =   "H:\wna\One love - Blue.mp3"
      TabIndex        =   14
      Top             =   5880
      Width           =   2175
   End
   Begin VB.OLE OLE2 
      Class           =   "Package"
      Height          =   855
      Left            =   2520
      OleObjectBlob   =   "Form1.frx":3388FF
      SourceDoc       =   "H:\wna\Pretty Boy.wma"
      TabIndex        =   13
      Top             =   4080
      Width           =   1695
   End
   Begin VB.OLE OLE1 
      Class           =   "Package"
      Height          =   735
      Left            =   2760
      OleObjectBlob   =   "Form1.frx":457117
      SourceDoc       =   "H:\wna\all rise.wma"
      TabIndex        =   12
      Top             =   2520
      Width           =   1335
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00C0E0FF&
      Caption         =   "当前时间"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   615
      Left            =   1920
      TabIndex        =   9
      Top             =   480
      Width           =   1815
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0E0FF&
      Caption         =   "提醒3"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   360
      TabIndex        =   3
      Top             =   5760
      Width           =   1815
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0E0FF&
      Caption         =   "提醒2"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   360
      TabIndex        =   2
      Top             =   4200
      Width           =   1815
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0E0FF&
      Caption         =   "提醒1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   360
      TabIndex        =   1
      Top             =   2520
      Width           =   1815
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   735
      Left            =   960
      TabIndex        =   0
      Top             =   1440
      Width           =   3375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
End
End Sub
Private Sub form_load()
'设置响铃的时间，并在文本框中显示
Calendar2.Value = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
Text1(0).Text = InputBox$("设置事件提醒(""):", "事件设置", "")
Text1(1).Text = InputBox$("设置响铃时间(时间格式：年：月：日  时：分：秒):", "时间设置", "00:00:00")
Text2(0).Text = InputBox$("设置事件提醒(""):", "事件设置", "")
Text2(1).Text = InputBox$("设置响铃时间(时间格式：年：月：日  时：分：秒):", "时间设置", "00:00:00")
Text3(0).Text = InputBox$("设置事件提醒(""):", "事件设置", "")
Text3(1).Text = InputBox$("设置响铃时间(时间格式：年：月：日  时：分：秒):", "时间设置", "00:00:00")
End Sub

Private Sub Text4_Change()
If Text4.Text = "" Then
  Label6.Caption = "未输入年份"
Else
   a = Val(Text4.Text)
   If a Mod 100 = 0 Then                '当a被100整除时判断是否也被400整除
      If a Mod 400 = 0 Then
        Label6.Caption = "是"              '是则是闰年
         
      Else
         Label6.Caption = "否"              '否则不是闰年
      End If
   
   Else
     If a Mod 4 = 0 Then                '当a不被100整除时判断是否被4整除
        Label6.Caption = "是"               '是则是闰年
     Else
        Label6.Caption = "否"               '否则不是闰年
     End If
   End If
End If
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now()
If Text1(1).Text = "" Then Exit Sub
T = DateDiff("s", Text1(1).Text, Time$)
If Abs(T) < 1 Then '1秒钟以内响铃并提示信息
OLE1.DoVerb
MsgBox "                       " & Text1(0).Text & "                        ", , "事件提醒"
Label2.Caption = "时间到了！"
Else
Label2.Caption = ""
End If
'第一次事件提醒
If Text2(1).Text = "" Then Exit Sub
T = DateDiff("s", Text2(1).Text, Time$)
If Abs(T) < 1 Then '1秒钟以内响铃并提示信息
OLE2.DoVerb
MsgBox "                       " & Text2(0).Text & "                        ", , "事件提醒"
Label2.Caption = "快到时间了啊！"
Else
Label3.Caption = ""
End If
'第二次事件提醒
If Text3(1).Text = "" Then Exit Sub
T = DateDiff("s", Text3(1).Text, Time$)
If Abs(T) < 1 Then '1秒钟以内响铃并提示信息
OLE3.DoVerb
MsgBox "                       " & Text3(0).Text & "                        ", , "事件提醒"
Label4.Caption = "别忘了时间啊！"
Else
Label4.Caption = ""
End If
'第三次事件提醒
End Sub