نحوه محدود كردن دريافت ساعت در masktextbox

[monadi.wtf]

سلام
مي خوام در masktextbox زمان و تاريخ محدود كنم .
مثلا ساعت از 24 و دقيقه از 59 بيشتر توسط كاربر وارد نشه.
حالا بايد چكار كنم ؟

[nader.golab]

سلام.
خیلی آسونه این کار.کمی حوصله خرج کن.
تو رویداد TextChenge این رو بزار.


Dim AA As String = Replace(Masktext.Text, ":", "")
AA = Replace(AA, " ", "")
If Val(AA) <> 0 And AA.Length <> 4 Then
Masktext.ForeColor = Color.Red

Else
Masktext.ForeColor = Color.Black
End If
If AA.Length = 4 Then
Dim A As String = ""
For I As Integer = 1 To 2
A += Mid(Masktext.Text, I, 1)
Next

If Val(A) >= 24 Or Val(A) <= -1 Then
Masktext.ForeColor = Color.Red
Exit Sub
Else
Masktext.ForeColor = Color.Black
End If

A = ""
For I As Integer = 4 To 5
A += Mid(Masktext.Text, I, 1)
Next

If Val(A) >= 60 Or Val(A) <= -1 Then
Masktext.ForeColor = Color.Red
Exit Sub
Else
Masktext.ForeColor = Color.Black
End If
End If

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

[monadi.wtf]

قربون دستت لطف كردي
وقت تنگ بود نميشد حوصله كنم
همين رو با تغييرات براي تاريخ گذاشتم اخطار ميده !

[nader.golab]

تشکر رو بزن این همه جمله نیار.چون هم به نفع پاسخ دهنده هست.هم شلوغ نمی شه.

[nader.golab]

تشکر رو بزن این همه جمله نیار.چون هم به نفع پاسخ دهنده هست.هم شلوغ نمی شه.