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

  • cigam

    félisten

    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

    [ Szerkesztve ]

    Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews

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