(10-04-17, 12:55 AM)ابو ليلى كتب : اذا كنت ستعتمد ثواني حقيقية اجعل Interval=1000
و الكود

PHP كود :

   Dim lSeconds = 20

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        lSeconds = lSeconds - 1
        lblTime.Text = "Next Post After : " & Format(lSeconds, "00:00:00")
        If lSeconds = 0 Then Timer1.Enabled = False

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       
        Timer1.Start()

    End Sub 


(10-04-17, 01:30 AM)ابو ليلى كتب : من اين تاتي بالقيمة الزمنية

(10-04-17, 02:04 AM)abdualla كتب : هل تقصد هذه الطريقة

PHP كود :

Dim h As Integer = 1
Dim m As Integer = 30
Dim s As Integer = 5

Dim totalSeconds As Integer = (h * 3600) + (m * 60) + (s)

Dim t As String = TimeSpan.FromSeconds(totalSeconds).ToString

MsgBox(t) 


(10-04-17, 02:20 AM)abdualla كتب : هذا الموضوع حفيدك http://vb4arb.com/vb/showthread.php?tid=3073

(10-04-17, 03:38 AM)abdualla كتب : لا داعي للاعتذار، انا اللي فهمت انك زعلت مني واعتذر منك

---

جرب هذا التعديل

PHP كود :

Dim lSeconds = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    lSeconds = lSeconds - 1
    lblTime.Text = TimeSpan.FromSeconds(lSeconds).ToString
    If lSeconds = 0 Then Timer1.Stop()
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    lSeconds = CInt(Tgroup.Interval)
    lblTime.Text = TimeSpan.FromSeconds(lSeconds).ToString
    Timer1.Interval=1000
    Timer1.Start()
End Sub