Új hozzászólás Aktív témák

• #2414 cigam titán

  Új Válasz 2014-03-14 13:29:07 #2414

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cigam

  titán

  Csináltam egy stoppert. Azt szeretném, hogy billentyűzettel is lehessen vezérelni, de nem tudom hogyan. Amit találtam példakódot nem működik:

  Public Class Form1
  Dim perc As String = "00"
  Dim masodperc As String = "00"
  Dim idoszoveg As String = "00:00"
  
  Private Sub ido_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ido.KeyDown
  
  If e.KeyCode = Keys.F1 Then Timer1.Start()
  End Sub
  Private Sub startgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startgomb.Click
  Timer1.Start()
  End Sub
  
  Private Sub stopgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopgomb.Click
  Timer1.Stop()
  End Sub
  
  Private Sub resetgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetgomb.Click
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  ido.Text = idoszoveg
  End Sub
  
  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  masodperc += 1
  If masodperc = "60" Then
  masodperc = "0"
  perc += 1
  If perc < 10 Then perc = "0" & perc
  End If
  If masodperc < 10 Then masodperc = "0" & masodperc
  idoszoveg = perc & ":" & masodperc
  If perc = "100" Then
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  End If
  ido.Text = idoszoveg
  End Sub
  End Class

Új hozzászólás Aktív témák