[أبو عبدالله الحلواني]

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

كتبت شئ مثل هذا ولكن هذا يعمل مع حرف حرف أو رقم رقم وهذا سيطول جدا

كود :

if instr(textbox1.text,"1")>0 then

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

[Jounior_P]

كود :

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

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل
هذا الكود سيمنع كتابة ماذكرت

كود :

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

[أبو عبدالله الحلواني]

(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

جزاكما الله خيرا 
واحسن اليكما 
أستاذ ابراهيم كودك منع استخدام المسافة أيضا فلا يمكنني سوي كتابة الأحرف متصلة هكذا بدون مسافات (يتتبينبتبت)
هل من حل للسماح باستخدام المسافة مع  الأحرف

[ابراهيم ايبو]

السلام عليكم 
تفضل

كود :

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

[أبو عبدالله الحلواني]

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

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي عبد الله
لاحظ لو كتبنا التالي

كود :

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" كابيتال
ووفق هذا المنوال يمكن اختيار مجموعة من الاحرف او الارقام لمنعا من الكتابة 
او استخدام النفي لمنع كل ماعداها من الاحرف
لا أعرف ان كنت قد استطعت ايصال المعلومة بشرحي المتواضع
دمت بخير

[أبو عبدالله الحلواني]

إقتباس :واظن انط استخدمتها في ردك على سؤال الاخ الكريم اليوم السابع

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