Ú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
- Apple iPhone 13 Midnight 256GB iSTYLE 2025.03.26. GARANCIA
- LG UltraWide 38WN95C-W Monitor 1 év Garancia
- iMac 2017 27" Retina 5K CTO / i7 4.2 GHz / 40 GB DDR4 / 1 TB SSD + doboz
- iMac 2017 27" Retina 5K CTO / i5 3.8 GHz / 40 GB DDR4 / 1 TB SSD / Radeon Pro 580 8 GB + doboz
- iMac 2017 27" Retina 5K CTO / i7 4.2 GHz / 40 GB DDR4 / 500 GB SSD / Radeon Pro 575 4 GB + doboz