用VB2010设计一个电子秒表程序,需要代码。格式正确能运行 10
用VB2010设计一个电子秒表,可以显示分/秒/百分秒,要求每个字段都是两位数字显示,分与秒之间,秒与百分秒之间用:连接,要求具有启动/停止/清零功能。要求VB2010!...
用VB2010设计一个电子秒表,可以显示分/秒/百分秒,要求每个字段都是两位数字显示,分与秒之间,秒与百分秒之间用:连接,要求具有启动/停止/清零功能。
要求VB2010!!! 展开
要求VB2010!!! 展开
展开全部
这个很简单啊,软糖5分钟给你写出来:
先拖三个Button它们的(Name)以及Text属性为:启动、停止和清零
拖一个Label,(Name)为显示时间标签
拖一个Timer,(Name)为Timer1
然后将以下代码覆盖窗体代码就OK了
Imports System.Diagnostics
Public Class Form1
Public 秒表 As New Stopwatch
Private Sub 启动_Click(sender As Object, e As EventArgs) Handles 启动.Click
秒表.Start()
End Sub
Private Sub 停止_Click(sender As Object, e As EventArgs) Handles 停止.Click
秒表.Stop()
End Sub
Private Sub 清零_Click(sender As Object, e As EventArgs) Handles 清零.Click
秒表.Reset()
显示时间标签.Text = 秒表.Elapsed.ToString("mm\:ss\:ff")
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If 秒表.IsRunning Then 显示时间标签.Text = 秒表.Elapsed.ToString("mm\:ss\:ff")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
End Class
下面是运行时的效果图:
看完请采纳,谢谢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询