السلام عليكم ورحمة الله وبركاته
ما هي أخباركم جميعاً ؟
اتمنى ان تكونوا في خير حال وأتم الصحة والعافية كما يحب ربنا ويرضى .

أخي (صقر الجزيرة) :
بارك الله لك .. وأشكرك على السؤال .

بالنسبة لنقطتي سؤالك فجوابهما كالتالي :
النقطة الأولى :
وهي خاصة بعدد الحروف أو الأرقام بمربع النص .. يمكن فعل هذا بسهولة عبر خاصية موجودة بخصائص مربع النص وهي :
MaxLength
وهذه تعني أقصى عدد من الحروف/الأرقام بمربع النص .. والقيمة الأصلية لها هي (صفر) وتعني (بلا حد معين) .
يمكنك تحديد حجم النص قبل التشغيل عن طريق كتابة قيمة الخاصية .. ويمكنك فعل ذلك عن طريق الكود
Text1.MaxLength = 7
أتمنى أن تكون هذه النقطة واضحة .

النقطة الثانية :
وهي خاصة بمنع كتابة الحروف فيمكن ذلك عن طريق أحد طريقتين :
- منع كتابة الحروف أصلاً - هذا يعني أنك لو ضغطت على زر الحروف لن يكتب - .. ويمكن فعل هذا عن طريق الكود التالي :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

شرح مبسط :
كل زر من أزرار الكيبورد يأخذ قيمة في كود Ascii والأرقام من 0 إلى 9 (العشرة أرقام) تأخذ القيم من 48 إلى 57 في جدول Ascii Code وكل ما فعلناه هنا هو مراقبة ضغطة المفتاح .. هل هي داخل هذه الأرقام أم لا .
إن كانت لا (المضغوط حرف ) يرسل الفيجوال بيسك بدلاً عن قيمة الزر (صفر) يعني لا يكتب شيئاً .
وإن كانت نعم (المضغوط رقم) .. فلا يفعل شيئاً .
أتمنى أن تكون الطريقة واضحة .

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

- الطريقة الثانية وهي مكملة للأولى لأنك إن منعتني من الكتابة عن طريق لوحة امفاتيح فما أسهل أن أكتب في مربع النص عن طريق اللصق باستخدام Control +V أو غيرها من الطرق .
الطريقة تتلخص في الكشف عن هويّة النص المكتوب داخل مربع النص عن تركه والإنتقال لآداة أخرى . - هذه تعمل في حالة منع كتابة الحروف فقط - .
الكود :

Private Sub Text1_Validate(Cancel As Boolean)
If IsNumeric(Text2) = False Then MsgBox "Error .."
End Sub

IsNumeric(Text2) = False هذه تعني عند فحص هل هذا النص رقمي وأثبت الفحص أنه غير رقمي (يحتوي على حروف بداخله) .

أخيراً .. أتمنى أن اكون قد أفدتّك في شئ .. وأنتظر منك الكود الخاص بمنع الأرقام في مربع النص .. فكّر وحاول وستنجح إن شاء الله.. وإن واجهتك أي مشاكل أنا تحت أمرك .

تحياتي
أبو عبد الله عمر