Kod:
Private Declare Function GetTickCount Lib "kernel32" () As Long 'windowsun kodudur bunu elleme Dim miliSaniyem As Long, t1 As Long, t2 As Long Private Sub Command1_Click() t2 = Val(Text1) t1 = GetTickCount Timer1.Enabled = True Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() miliSaniyem = GetTickCount - t1 If miliSaniyem > t2 Then Label1.Caption = "0" Timer1.Enabled = False Exit Sub End If Label1.Caption = CStr(t2 - miliSaniyem) End Sub
Arkadaşlar ustte verdiğim kodda labelde 123000 den gerisayım yapıyor
ben sadece 123sn den gerisayım yapmasını istiyorum bunun icin ne yapmam gerek ?
Texte yazılan ms 123000
ama labelde 123 den geri sayım yapıcak.
Lutfen yardımlarınızı esirgemeyin arkadaşlar cevaplarınızı bekliyorum
__________________