开发工具:
文件大小: 71kb
下载次数: 0
上传时间: 2014-11-23
详细说明： Dim xs As Integer ‘小时 Dim fz As Integer ‘分钟 Dim mz As Integer ‘秒钟 Dim i As Integer Dim ha As Integer Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Timer1.Enabled = True End Sub Private Sub Command2_Click() If Command2.Caption = "暂停" Then Command2.Caption = "继续" Timer1.Enabled = False Else Command2.Caption = "暂停" Timer1.Enabled = True End If Command3.Enabled = True Command1.Enabled = False End Sub Private Sub Command3_Click() Text1.Text = &quo t;00:00:00:00" ’把text1.text表清零 Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False Timer1.Enabled = False i = 0 xs = 0 fz = 0 mz = 0 li = " " End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Timer1.Enabled = False Text1.Text = "00:00:00:00" End Sub Private Sub Timer1_Timer() i = i + Timer1.Interval '间隔 If i = 1000 Then ‘这里是比秒还更小的单位毫秒 mz = mz + 1 ’秒进1 i = 0‘毫秒清零 End If If mz = 60 Then ‘每60秒进一分 fz = fz + 1 ’分种进一 mz = 0 ’秒清零 End If If fz = 60 Then '每60分钟就进一个小时 xs = xs + 1 fz = 0 End If ha = i / 10 ‘百毫秒间隔 If xs < 10 Then li = "0" & xs & li Else li = xs & li End If If fz < 10 Then li = li & ":0" & fz Else li = li & ":" & fz End If If mz < 10 Then li = li & ":0" & mz Else li = li & ":" & mz End If If ha < 10 Then li = li & ":0" & ha Else li = li & ":" & ha End If Text1.Text = li End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
