窗體的StartUpPosition屬性設為2 - CenterScreen
並添加以下代碼:
Private Sub cmdAdd_Click()
Dim sName As String, AllNum As Integer, TerminateDate As Date
sName = InputBox("倒計時的名字?")
TerminateDate = InputBox("截止時間?例如2009-10-20 3:23:19")
AllNum = GetSetting("倒計時", "倒計時列表", "倒計時總數", "0")
AllNum = AllNum + 1
SaveSetting "倒計時", "倒計時列表", "倒計時總數", AllNum
SaveSetting "倒計時", "倒計時列表", "時間" & Trim(Str(AllNum)), TerminateDate
SaveSetting "倒計時", "倒計時列表", "名字" & Trim(Str(AllNum)), sName
MsgBox "添加成功!", vbInformation
End Sub
Private Sub cmdDel_Click()
Dim Qx As Integer
Qx = InputBox("列表中的幾個?")
Dim sDate As String, sName As String, AllNum As Integer, Qu As Integer
AllNum = GetSetting("倒計時", "倒計時列表", "倒計時總數", "0")
For i = 1 To AllNum
sDate = GetSetting("倒計時", "倒計時列表", "時間" & Trim(Str(i)), "0")
sName = GetSetting("倒計時", "倒計時列表", "名字" & Trim(Str(i)), "0")
If sDate <> "0" Then
Qu = Qu + 1
If Qu = Qx Then
If MsgBox("是要刪除倒計時 " & sName & " 嗎?", vbYesNo + vbQuestion) = vbYes Then
SaveSetting "倒計時", "倒計時列表", "時間" & Trim(Str(i)), "0"
End If
Exit For
End If
End If
Next i
End Sub
Private Sub Form_Load()
Height = 3570
Width = 5550
Caption = "倒計時"
tmrDJS.Interval = 500
cmdAdd.Left = 4200
cmdAdd.Top = 2520
cmdAdd.Height = 255
cmdAdd.Width = 1215
cmdAdd.Caption = "添加倒計時"
cmdDel.Left = 4200
cmdDel.Top = 2760
cmdDel.Height = 255
cmdDel.Width = 1215
cmdDel.Caption = "刪除倒計時"
End Sub
Private Sub tmrDJS_Timer()
Cls
Dim DJS As Date, sDate As String, sName As String, AllNum As Integer, Printed As Boolean
Dim Kd As Double
AllNum = GetSetting("倒計時", "倒計時列表", "倒計時總數", "0")
For i = 1 To AllNum
sDate = GetSetting("倒計時", "倒計時列表", "時間" & Trim(Str(i)), "0")
sName = GetSetting("倒計時", "倒計時列表", "名字" & Trim(Str(i)), "0")
If sDate <> "0" Then
DJS = sDate
If DJS - Now <= 0 Then
Print sName; " 已經到了!"
Else
Kd = DJS - Now
Print "距離 "; sName; " 還有 ";
Print Int(Kd); " 天 ";
Kd = Kd - Int(Kd)
Print Int(Kd * 24); " 小時";
Kd = Kd - Int(Kd * 24) / 24
Print Int(Kd * 24 * 60); " 分鐘";
Kd = Kd - Int(Kd * 24 * 60) / 24 / 60
Print Int(Kd * 24 * 60 * 60 + 0.5); " 秒"
End If
Printed = True
End If
Next i
If Not Printed Then Print "列表為空!"
End Sub
然後運行即可~