تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة ادخال غير الحروف
#1
السلام عليكم ورحمة الله وبركاته : كيف حالكم يا أعضاء هذا المنتدى الجميل أتمنى أن تكونوا بأتم الصحة و العافية , قمت ببرمجة بوت تلجرام وكنت أحتاج منع المستخدم من أرسال غير الأحرف العربية ولكن لا حل للأسف بعدم وجود تكست بوكس
لذلك قررت أن أكتب هذه الجملة الشرطية لكي أمنعهم من أدخال غير الأحرف العربية و أحببت أن أنشرها هنا لعل أحدكم يستفيد منها أو يستعملها بمشروع لكي أسهل عليه العذاب

كود :
       If TextBox1.Text.StartsWith("ا") OrElse TextBox1.Text.StartsWith("ب") OrElse TextBox1.Text.StartsWith("ت") OrElse TextBox1.Text.StartsWith("ث") OrElse TextBox1.Text.StartsWith("ج") _
    OrElse TextBox1.Text.StartsWith("ح") OrElse TextBox1.Text.StartsWith("خ") OrElse TextBox1.Text.StartsWith("د") OrElse TextBox1.Text.StartsWith("ذ") OrElse TextBox1.Text.StartsWith("ر") OrElse TextBox1.Text.StartsWith("ق") OrElse TextBox1.Text.StartsWith("ك") OrElse TextBox1.Text.StartsWith("ل") OrElse TextBox1.Text.StartsWith("م") OrElse TextBox1.Text.StartsWith("ن") OrElse TextBox1.Text.StartsWith("ه") OrElse TextBox1.Text.StartsWith("و") OrElse TextBox1.Text.StartsWith("ي") _
    OrElse TextBox1.Text.StartsWith("ز") OrElse TextBox1.Text.StartsWith("س") OrElse TextBox1.Text.StartsWith("ش") OrElse TextBox1.Text.StartsWith("ص") OrElse TextBox1.Text.StartsWith("ض") OrElse TextBox1.Text.StartsWith("ط") OrElse TextBox1.Text.StartsWith("ظ") OrElse TextBox1.Text.StartsWith("ع") OrElse TextBox1.Text.StartsWith("غ") OrElse TextBox1.Text.StartsWith("ف") OrElse TextBox1.Text.StartsWith("ؤ") OrElse TextBox1.Text.StartsWith("أ") OrElse TextBox1.Text.StartsWith("ء") OrElse TextBox1.Text.StartsWith("إ") OrElse TextBox1.Text.StartsWith("ئ") Then

           MsgBox("موجود")

       End If

أتمنى لكم كل الخير , وهذا المثال ما هوا الا رد صغير لجميل هذا المنتدى و الأعضاء الأكثر من رائعين  Heart
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم