ヘディングのテキスト
以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
解決策を教えて下さい。
visual basicコード
Public Class Form2
Private datstart1 As Date > 'nowを入れる変数
Private datstart2 As Date
Dim beforin As String
Dim rtime As TimeSpan
Dim bb As String
Dim ts As TimeSpan
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim dd As Integer = Math.Floor(ts.Milliseconds / 10) lbl1.Text = Format(ts.Hours, "00") & ":" & Format(ts.Minutes, "00") & ":" & Format(ts.Seconds, "00") & "." & dd.ToString("00") End Sub Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click If btn1.Text = "スタート" Then > 'もしbtn1にスタートと表示されていたら Timer1.Enabled = True > 'btn1は可能 If Not beforin = "ストップ " Then datstart1 = Now End If btn1.Text = "ストップ" > 'btn1がストップになる Me.btn3.Enabled = False > 'btn1は不可能 beforin = "スタート " Else Me.btn2.Enabled = True > 'btn1は可能- リスト btn1.Text = "ストップ " > 'btn1は不可能 Timer1.Enabled = False Me.btn3.Enabled = True > 'btn1は可能 btn1.Text = "スタート" > 'btn1がスタートになる beforin = "ストップ " End If End Sub Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click lbl1.Text = "00:00:00.00" Me.btn1.Enabled = True > 'btn1は可能 txt1.Text = "" > 'クリアされる a = 0 beforin = "キャンセル" bb = "キャンセル" End Sub Dim a As Integer Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click Dim ts As TimeSpan Dim St As String = txt1.Text If beforin = "スタート " Then a = a + 1 '> これで押された回数を求める ts = DateTime.op_Subtraction(Now, datstart1) If bb = "キャンセル" Then rtime = Nothing bb = "0" End If ts = ts - rtime Dim dd As Integer = Math.Floor(ts.Milliseconds / 10) St = "♯" & a & " " & Format(ts.Hours, "00") & ":" & Format(ts.Minutes, "00") & ":" & Format(ts.Seconds, "00") & "." & dd.ToString("00") txt1.AppendText(St + vbCrLf) rtime = DateTime.op_Subtraction(Now, datstart1) End If End Sub
End Class
どうぞよろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー