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

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

كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - أبو عبدالله الحلواني - 14-02-21

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

كتبت شئ مثل هذا ولكن هذا يعمل مع حرف حرف أو رقم رقم وهذا سيطول جدا
كود :
if instr(textbox1.text,"1")>0 then

وأعلم أن لدي الخبراء الطريق الأقصر
وجزاكم الله خيرا

RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - Jounior_P - 15-02-21

كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

    If Not (Asc(e.KeyChar) = 8) Then
        Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz"
        If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
            e.KeyChar = ChrW(0)
            e.Handled = True
        End If
    End If

End Sub


RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - ابراهيم ايبو - 16-02-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل
هذا الكود سيمنع كتابة ماذكرت
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsLetter(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub


RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - أبو عبدالله الحلواني - 17-02-21

(16-02-21, 12:56 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل
هذا الكود سيمنع كتابة ماذكرت
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsLetter(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub
جزاكما الله خيرا 
واحسن اليكما 
أستاذ ابراهيم كودك منع استخدام المسافة أيضا فلا يمكنني سوي كتابة الأحرف متصلة هكذا بدون مسافات (يتتبينبتبت) Smile
هل من حل للسماح باستخدام المسافة مع  الأحرف

RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - ابراهيم ايبو - 18-02-21

السلام عليكم 
تفضل
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not Char.IsLetter(e.KeyChar) AndAlso Not Char.IsWhiteSpace(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub


RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - أبو عبدالله الحلواني - 19-02-21

شكرا لك أستاذ ابراهيم عمل الكود بشكل ممتاز
يقال ان الطمع في تحصيل العلم طمع محمود
ومن هذا المنطلق نطمع في مزيد من كرمك لو تكرمت بنبذة مختصرة عن وظيفة Char فانا مازلت مبتدأ بالمجال
وكذلك من باب علمني الصيد ولا تعطني سمكة
وشاكر لك تعاونك وسعة صدرك
وجزاكم الله عنا خيرا

RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - ابراهيم ايبو - 19-02-21

السلام عليكم ورحمة الله وبركاته
اخي عبد الله
لاحظ لو كتبنا التالي
كود :
If TextBox1.Text = "" Then
           MessageBox.Show("مربع النص فارغ")
       End If
فإننا نقول لو ان التكست في مربع النص يساوي لاشيئ اظهر رسالة مربع النص فارغ
الان نفس الهدف ولكن بطريقة اخرى
كود :
If String.IsNullOrEmpty(TextBox1.Text) Then
           MessageBox.Show("مربع النص فارغ")
       End If
نقول هنا ان السلسلة النصية  ان كانت فارغة او قيمة null لمربع النص اظهر رسالة مربع النص فارغ
هنا استخدمنا String للدلالة على نوع البيانات نصي
مثال أخر نستخدمه لتحويل قيمة الارقام في مربع النص الى نوع بيانات Integer عبر Parse
كود :
If Integer.Parse(TextBox1.Text) = 5 Then
           MessageBox.Show("الرقم 5")
       End If
اما في كودنا نفس الشيئ نقول له ان نوع البيانات هو Char للاحرف الفادمة من مفاتيخ الكيبورد
واظن انط استخدمتها في ردك على سؤال الاخ الكريم اليوم السابع
واذا اردنا عدم استخدام char اي اننا سنكتب الكود كما في الكود الاول لمربع النص المساوي فراغ
كود :
If Not e.KeyChar = "A" Then
           e.Handled = True
       End If
هنا نكنع كتابة الحرف "A" كابيتال
ووفق هذا المنوال يمكن اختيار مجموعة من الاحرف او الارقام لمنعا من الكتابة 
او استخدام النفي لمنع كل ماعداها من الاحرف
لا أعرف ان كنت قد استطعت ايصال المعلومة بشرحي المتواضع
دمت بخير

RE: كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط - أبو عبدالله الحلواني - 20-02-21

إقتباس :واظن انط استخدمتها في ردك على سؤال الاخ الكريم اليوم السابع
بعد ما تعلمتها من حضرتك 
جزاك الله خيرا كفيت ووفيت 
حقيقة استفدت معلومات اضافية بالنسبة لاستخدام نوع البيان مباشرة بالاضافة للكود الأول (ومن أجل هذا طمعت في الشرح Shy )
جزاك الله خيرا مرة أخري شرح وافي ومعلومات قيمة