View Full Version : مشكل با MasktextBox
  
swallow.pa
پنج شنبه 14 فروردین 1393, 12:21 عصر
سلام به همه
من هميشه با اين ماسك تكست باكس مشكل دارم 
الان يك برنامه دارم مينويسم كه كاربر بايد ساعت رو وارد كنه مثلا 23:15 يا 08:12
و از ماسك براي اينكار استفاده مي كنم مي خوام بدونم دوستان براي خالي بودن و يا كامل نكردن فرمت تعريف شده توسط كاربر چطوري كنترلها رو انجام مي دن
ممنون
محمد آشتیانی
پنج شنبه 14 فروردین 1393, 14: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, 16: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, 17:51 عصر
سلام
خواهش میکنم ، برای تاریخ هم به همین ترتیبه ، باید همه مقادیرو چک کنی ، البته چیزی که به ذهن من میرسه
چشم اونم مینویسم میزارم اینجا
موفق باشید
 
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.