منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده ضوروري تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده ضوروري تكست بوكس (/showthread.php?tid=10903)

مساعده ضوروري تكست بوكس - mudz - 13-12-14

شباب بليز ثلاث طلبات بس

كيف اخلي اتكست بوكس يكتب ايميل فقط

وكيف اخليه يكتب ارقام بس

وكيف اخليه يكتب 6 حروف فقط

RE: مساعده ضوروري تكست بوكس - سعود - 13-12-14

السؤال الاول

كود :
 Function IsEmail(ByVal email As String) As Boolean
       Static emailExpression As New Regex("^[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})$")
       Return emailExpression.IsMatch(email)
   End Function

الثاني
كود :
 Function isnum(ByVal num As String) As Boolean
       Static numExpression As New Regex("^[0-9]*$")
       Return numExpression.IsMatch(num)
   End Function

الثالث
كود :
Function isletter(ByVal leter As String) As Boolean
       Static leterExpression As New Regex("^[a-z]{6,6}$", RegexOptions.IgnoreCase)
       Return leterExpression.IsMatch(leter)
   End Function