30-06-21, 02:52 AM
السلام عليكم ورحمة الله وبركاته : كيف حالكم يا أعضاء هذا المنتدى الجميل أتمنى أن تكونوا بأتم الصحة و العافية , قمت ببرمجة بوت تلجرام وكنت أحتاج منع المستخدم من أرسال غير الأحرف العربية ولكن لا حل للأسف بعدم وجود تكست بوكس
لذلك قررت أن أكتب هذه الجملة الشرطية لكي أمنعهم من أدخال غير الأحرف العربية و أحببت أن أنشرها هنا لعل أحدكم يستفيد منها أو يستعملها بمشروع لكي أسهل عليه العذاب
أتمنى لكم كل الخير , وهذا المثال ما هوا الا رد صغير لجميل هذا المنتدى و الأعضاء الأكثر من رائعين
لذلك قررت أن أكتب هذه الجملة الشرطية لكي أمنعهم من أدخال غير الأحرف العربية و أحببت أن أنشرها هنا لعل أحدكم يستفيد منها أو يستعملها بمشروع لكي أسهل عليه العذاب
كود :
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أتمنى لكم كل الخير , وهذا المثال ما هوا الا رد صغير لجميل هذا المنتدى و الأعضاء الأكثر من رائعين