PDA

View Full Version : مشكل با MasktextBox



swallow.pa
پنج شنبه 14 فروردین 1393, 11:21 صبح
سلام به همه
من هميشه با اين ماسك تكست باكس مشكل دارم
الان يك برنامه دارم مينويسم كه كاربر بايد ساعت رو وارد كنه مثلا 23:15 يا 08:12
و از ماسك براي اينكار استفاده مي كنم مي خوام بدونم دوستان براي خالي بودن و يا كامل نكردن فرمت تعريف شده توسط كاربر چطوري كنترلها رو انجام مي دن
ممنون

محمد آشتیانی
پنج شنبه 14 فروردین 1393, 13:47 عصر
سلام
این تابعو نوشتم ، فکر کنم کارت راه بیفته


Public Function CheckTime(ByVal InputTime As String) As Boolean
Dim FuncValue As Boolean
Dim Temp() As String = Split(InputTime, ":")
InputTime = InputTime.Replace(":", "")


If (IsNumeric(InputTime) = True) And (InputTime.Length = 4) Then
If (Temp(0) < 24) And (Temp(1) < 60) Then
FuncValue = True
Else
FuncValue = False
End If
Else
FuncValue = False
End If


Return FuncValue
End Function

نهایتا مقداری که برمیگردونه True یا False هست


موفق باشید.

swallow.pa
پنج شنبه 14 فروردین 1393, 15:53 عصر
سلام
این تابعو نوشتم ، فکر کنم کارت راه بیفته


Public Function CheckTime(ByVal InputTime As String) As Boolean
Dim FuncValue As Boolean
Dim Temp() As String = Split(InputTime, ":")
InputTime = InputTime.Replace(":", "")


If (IsNumeric(InputTime) = True) And (InputTime.Length = 4) Then
If (Temp(0) < 24) And (Temp(1) < 60) Then
FuncValue = True
Else
FuncValue = False
End If
Else
FuncValue = False
End If


Return FuncValue
End Function

نهایتا مقداری که برمیگردونه True یا False هست


موفق باشید.
ممنون دوست گرامي اگه تاريخ رو بخواي كنترل كني چيكار مي كني؟

محمد آشتیانی
پنج شنبه 14 فروردین 1393, 16:51 عصر
سلام
خواهش میکنم ، برای تاریخ هم به همین ترتیبه ، باید همه مقادیرو چک کنی ، البته چیزی که به ذهن من میرسه
چشم اونم مینویسم میزارم اینجا



موفق باشید