zoukankan      html  css  js  c++  java
  • vb6.0 倒计时

    Dim t
    Dim start As Boolean
    Private Sub Command1_Click()
       If start = False Then
          t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3)
          start = True
       End If
       Timer1.Enabled = True
       Command3.Enabled = True
    End Sub
    Private Sub Command2_Click()
       Timer1.Enabled = False
    End Sub
    Private Sub Command3_Click()
       t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3)
       Timer1.Enabled = True
    End Sub
    Private Sub Command4_Click()
       End
    End Sub
    Private Sub Form_Load()
       Timer1.Enabled = False
       start = False
       Timer1.Interval = 1000
       Label5.BackColor = vbYellow
       Label1.Caption = "小时"
       Label2.Caption = "分"
       Label3.Caption = "秒"
       Label4.Caption = "倒计时"
       Label5.Caption = ""
       Text1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
       Command1.Caption = "开始"
       Command2.Caption = "暂停"
       Command3.Caption = "重新开始"
       Command4.Caption = "退出"
       Command3.Enabled = False
    End Sub
    Private Sub Timer1_Timer()
       If t = 0 Then
          Timer1.Enabled = False
          MsgBox ("时间到")
          start = False
       Else
          t = t - 1
       End If
       Label5.Caption = Format(Trim(Str(t  3600)), "00") & ":" & Format(Trim(Str((t Mod 3600)  60)), "00") & ":" & Format(Trim(Str(t Mod 3600) Mod 60), "00")
    End Sub


  • 相关阅读:
    台州 OJ 3847 Mowing the Lawn 线性DP 单调队列
    洛谷 OJ P1417 烹调方案 01背包
    快速幂取模
    台州 OJ 2649 More is better 并查集
    UVa 1640
    UVa 11971
    UVa 10900
    UVa 11346
    UVa 10288
    UVa 1639
  • 原文地址:https://www.cnblogs.com/keanuyaoo/p/3292103.html
Copyright © 2011-2022 走看看