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

• cigam titán

  #2427

  #2414 cigam

  2014-03-15 11:45:34

  Új Válasz

  Ú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

  

  cigam

  titán

  #2414 cigam

  #2414 cigam

  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

  Hogyan tudnám optimalizálni a dolgot, hogy pl. a reset-et ne keljen újra lekódolni?
  ...
  If e.KeyCode = Keys.F3 Then
  perc = "00"
  masodperc = "00"
  idoszoveg = "00:00"
  ido.Text = idoszoveg
  End if
  ....
  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 Sun

  Vagyis milyen parancsal tudom meghívni a "resetgomb_Clik" rutint?
  If e.KeyCode = Keys.F3 Then resetgomb_Click()?

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