كيف اجعل التكست بوكس لا يكتب سوي

أخى العزيز

طبعا طلبك ممكن ولكنه كود كثير - لأنه مركب بعض الشئ

ولكنى أنصحك باستخدام الـ Masked Edit فهى مصممة لهذا الغرض

وستضع فى خصائصها التركيبة التى تريده (مثلا ##X## ) والتى تعنى رقمين وعلامة × ورقمين

ولكنك ستتعامل مع المحتويات بشكل مختلف فمثلا إذا كنت تريد ضرب الرقمين فستستخدم دالة مثل Mid للحصول على الأرقام الموجوده على صورة حروف وتحولها لأرقام وتضربها فى بعضها

أعتقد أنك مستعد لذلك من البداية عندما اخترت هذا التصميم

والله يوفقك

-09

الاخ العزيز اذا كان قصدك ان تكتب اربع ارقام فقط فيمكنك استخدام الاتى :

Private Sub Text1_Change()
If Len(Text1.Text) > 4 Then
MsgBox " اربع ارقام فقط "
End If
End Sub

حيث تحدد من خلار الدالة len طول المكتوب

اما اذا كان العملية على شكل هيئة معينة فاسوف تتبع الاتى :

Private Sub Text1_Change()
If Len(Text1.Text) = 2 Then
Text1.Text = Text1.Text + "*"
End If
End Sub

و الله الموفق

و شكرا ً

-09

اسف للاخ Undo

فانا لم ارى الرد

مع جزيل الشكر تم الامر ولله الحمد الكود ناجح بشكل رائع

وطريقة abulyaman

ال Masked Edit من اسهل الطرق بدون كود

ابحث علي newgoogle.cjb.net وراح تنبسط ان شاء الله

حيث أن طريقة البحث فيه عملية جدا جدا

1-خلي الموقع يفتح كليا

2-فقط اكتب كلمة البحث ولنتظر قليلا

3-راح تدعيلي