扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Public Class Form1
成都创新互联公司专注于河源企业网站建设,响应式网站设计,商城网站开发。河源网站建设公司,为河源等地区提供建站服务。全流程按需设计网站，专业设计，全程项目跟踪，成都创新互联公司专业和态度为您提供的服务
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("从" Now1.ToString "到" Now2.ToString "经过了" CStr(CDate((Now2 - Now1).ToString)))
End Sub
实际情况修改下。
End Class
放一个Timer Timer的Interval的属性设置为1000 (单位为毫秒)
在外面定义个整形
dim i as integer =0
然后在在Timer的tick时间里写
i=i+1
TextBox1.text=i
timer要用timer.start（）开始记时，timer.Interval = 2000简单来说：在timer事件下一个textbox.selectAll()两秒全选一次textbox内容，运行不完不会有什么影响，线程等内容现在不必考虑
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网