السلام عليكم ورحمه الله وبركاته
ياريت ياجماعه حد يقولى ازاى
اجعل التيكست بوكس تكتب ارقام فقط :o
وازاى اجعلها تكتب حروف فقط
وجزاكم الله خيرا
السلام عليكم ورحمه الله وبركاته
ياريت ياجماعه حد يقولى ازاى
اجعل التيكست بوكس تكتب ارقام فقط :o
وازاى اجعلها تكتب حروف فقط
وجزاكم الله خيرا
يمكنك استخدام الطريقة التالية
مثلا تريد اجبار المستخدم على ادخال ارقام فقط فى التكست بوكس يكمنك كتابة الكود التالى فى الحدث change للتكست بوكس:
If Not IsNumeric(Text4.Text) Then
SendKeys "{backspace}"
Beep
End If
كده انت لن تسمح للمستخدم الا كتابة ارقام فقط
اما عن الحروف فارجو من الاخوة المبرمجين الرد عليك فيه لانى لا اعرفه
:wacko:
اخي العزيز الكود التالي لكي يجعل ال textbox يستقبل ارقام فقط :
اكتب الكود الملحق في module
Public Function WriteNumbersOnly(Y As Integer)
Dim Allowed As String
Allowed = "0123456789."
If Y <> 8 Then
If InStr(Allowed, Chr(Y)) = 0 Then
WriteNumbersOnly = 0
Beep
Else
WriteNumbersOnly = Y
End If
Else
WriteNumbersOnly = Y
End If
ثم اكتب امر الاستدعاء مع اي textbox
امر الاستدعاء لهذه الfunction هو call WriteNumbersOnly
اقتباسلا تنسوا محمد الدرة وايمان حجو وفارس عودة ....
لا تنسوا القدس وبغداد وبيروت والشيشان ....
ولا تنسوا الشيخ ياسين ود. الرنتيسي وشهداء القضية
اقتباسلو هدوا بيتي منا خايف لو كسروا عظامي انا زاحف
مواضيعي بالمنتدي
(2) جميع رسائل الخطأ التي قد تظهر عند تشغيل مشروعك في ملف واحد
(3) كيف تنشأ اسم مستخدم وكلمة مرور بصلاحيات معينة لبرنامجك
(4) برنامج لمعرفة الــ ASCII كود لأي مفتاح على لوحة المفاتيح
(5) مثال على نقل عناصر من List Box إلى أخرى مع الترتيب (الفرز)
(6) مثال لتفقيط المبالغ المالية بالحروف
اللهم ارحم والداى كما ربياني صغيراً

ًWelcome Back
في طريقه ديما تعملهاوتريح بالك في مشروع بعد كده انت هتعمل class جديد يورث ال controls.textbox ويعدل البروبرتي الي اسمها text يخليها ارقام بس او حروف بس ووتعمل Build وخليه ال dll بقا في جيبك عشان هتعوزو كتير :D
هذا الموضوع مغلق.