نمایش زمان سپری شده و متوقف کردن و برگردان دوباره زمان

[ROSTAM2]

برای این کار به مثال توجه کنید:
یک کلید و یک تایمر داریم:

و این هم متغیرها تو قسمت تعاریف عمومی فرم: (توجه داشته باشید مقدار Interval از Timer رو 1000 تعیین کنید)


Dim Time As New DateTime
Dim Value As Long
Dim Expr As String


دستوراتی که باید در رویداد کلیک از کلید بکار برد:

Me.Timer1.Enabled = Not Me.Timer1.Enabled
If Me.Timer1.Enabled = True Then
Value = My.Settings.Value
Else
My.Settings.Value = Value
My.Settings.Save()
End If


دستوراتی که باید در تایمر بکار گرفته بشه:

Value += 1
With Time.AddSeconds(Value)
Expr = String.Format("{0:00}:{1:00}:{2:00}", .Hour, .Minute, .Second)
End With
Debug.Print(Expr)


خروجی رو در پنجره Debug از سربرگ Output ببینید....

[ROSTAM2]

این هم ی ویدیوی کامل از ایجاد این نمونه:

https://www.aparat.com/v/U7JK3