VB问题疑难 高手进

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:15:07
麻烦帮我设计一个简单的计时程序
开始显示的是 3：00 就是三分钟
倒计时。。到 0：00 为止 就输出 “时间到”
写明 要用到的东西 详细点 谢谢 可以运行的 追加100

给你简单点就好 就一个timer控件
Dim i As Integer, x As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
x = 3
End Sub

Private Sub Timer1_Timer()
If i = 0 Then i = 60: x = x - 1
i = i - 1
If x < 0 Then Me.Caption = "时间到": Timer1.Enabled = False: Exit Sub
Me.Caption = x & "分" & i & "秒"
End Sub

放置两个command（一个叫做cmdDel，另一个叫做cmdAdd）和一个Timer（叫做tmrDJS）
窗体的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 "