编了个计时器 但程序出错请教高手！！！

提问者：混迹于构林街  |  浏览 次  |  提问时间：2017-02-27  |  回答数量：2

代码如下： Public Class JSQ Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick Dim iHour, iMinute, iSecond As Integer iHour = Now.Hour iMinute = Now.Minute iSecond = Now.Second LblTime.txt = iHour & \":\" & iMinute & \":\" & iSecond End Sub '计时器启动 Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click Me.Timer1.Start() End Sub '计时器停止 Private Sub cmdStop_Click(ByV