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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39924)

سؤال في تكست بوكس - حسن الجلب - 08-11-21

السلام عليكم ورحمه الله وبركاته
عندي تكست بوكس لأدخال نصوص فقط ولكن انا عملت كود في حدث key_press لمنع كتابه اي شي غير النصوص ال هو شامل الارقام أو اي علامات المهم انا عاوز كود عندما اقوم بعمل paste يقوم بتصفيته اي شي غير النصوص كيف اعملها ارجو المساعده وشكرا

RE: سؤال في تكست بوكس - Anas Mahmoud - 08-11-21

استخدم حدث TextChanged و Regex.Replace لاستبدال اي شيء ليس بحرف عربي او انجليزي او مسافة بنص فارغ

كود :
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim Txt As TextBox = sender
       Txt.Text = Regex.Replace(Txt.Text, "[^\u0621-\u064Aa-zA-Z\s]", "")
   End Sub


لا تنس 
كود :
Imports System.Text.RegularExpressions

المدي [^\u0621-\u064Aa-zA-Z\s] يمثل اي شيء لبس بحرف عربي ( في الامر تفصيل ) وكذلك ليس بحرف انجليزي ولا حرف مسافة ( مسافة عادية او TAB او سطر جديد )