كيف نظهر الأرقام فى مربعات النصوص على الفورم بالصيغة الهندية ؟

[عبد الفتاح كيرة]

السلام عليكم

أريد طريقة مباشرة و عامة

علما بأن خاصية

right to left

فعالة للفورم كله

[الحسامي]

السلام عليكم

اخي كيماس

هنا مرفق ملف يشرح كيفية عمل تنسيقات لصناديق الادخال قد تستفيد منه

تنسيقات ارقام textbox.rar

[عبد الفتاح كيرة]

الأخ الفاضل عماد الحسامى

أشكرك لردك و للملف المفيد

الملف يركز على تنسيقات الأرقام و العملات و التواريخ

لكنى لاحظت أن التنسيق المشتمل على كلمة

دينار أردنى

باللغة العربية

ظهر عند التشغيل باللغة العربية

فاستفدت من ذلك استفادة عظيمة حلت المشكلة

جعلت النص الافتراضى لمربعات النصوص كلمة عربية كما بالصورة

و هذه هى النتيجة الرائعة عند التشغيل

أشكر لسيادتكم تعاونكم

[أبوســـارة1973]

السلام عليكم جميعا

كيف يمكن أن أجعل (TEXTBOX) في الفورم ( FORM ) لايقبل إلا الأرقام فقط ؟

[الحسامي]

السلام عليكم ورحمة الله وبركاته

لجعل ال TEXTBOX لا يقيل إلا الارقام ضع الكود التالي في داخل ال TEXTBOX

If Not IsNumeric(TextBox1.Value) Then TextBox1 = ""

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

If Not IsNumeric(TextBox1.Value) Then

MsgBox "عذرا هذه الخانة مخصصة للارقام فقط"

TextBox1 = ""

End If

[أبوســـارة1973]

جزاك الله خير الجزاء يا أستاذ حسامي

لدي سؤالين آخرين :

1- ما هو كود نتيجة الجمع في التكست بوكس بمعنى أن المطلوب في textbox1 ناتج مجموع textbox2 وtextbox3 وtextbox4 بشكل تلقائي بمجرد إدخال القيم في textbox2 وtextbox3 وtextbox4 أو في أحدها ؟

2- ما كود شرط إدخال أكبر من أو أصغر من في textbox1 ؟ بمعنى إذا أردت أن أدخل في textbox1 أكبر من أو تساوي 15 مثلاً بحيث لا يقبل الإعداد من 1 إلى 14

[الحسامي]

السلام عليكم ورحمة الله وبركاته

اخي العزيز

لجمع عدة مربعات نصوص وبناءا لمثالك ضع الكود التالي

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

في الحدث Exit لكل مربع نص كالاتي :

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

End Sub

أما في الشطر الثاني من سؤالك استخدم الكود التالي

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 If TextBox5.Value < 15 Then

 TextBox5 = ""

 MsgBox "عذرا الارقام المدخلة يجب ان تكون اكبر من 14"

End If

وهنا مرفق لمثال عمل لما تم شرحه

مثال textbox.rar

[أبوســـارة1973]

في ميزان حسناتك أستاذ / الحسامي

[أبوســـارة1973]

سؤال رابع أستاذي / الحسامي :

هل يمكن اختيار - من قائمة Properties - شرط أن يكون TextBox3 ذا قيمة ( بمعنى يجب الا يكون فارغاً)؟

إذا لم يكن هذا متوفراً في قائمة Properties ، فما هو الكود الذي يعطي هذا الغرض ؟

أكرر شكري وتقدير لك أيها الأستاذ الكبير

أخوك وتلميذك

أبو سارة

تم تعديل يوليو 10, 2010 بواسطه abusarah73

[عبد الفتاح كيرة]

نعم يمكن

استخدم خاصية text

واكتب فيها القيمة الافتراضية

[أبوســـارة1973]

ليس هذا قصدي

بل أقصد أن التكست بوكس في فورم ما يجب أن لا يكون فارغاً بمعنى يجب إدخال قيمة فبه

هل المطلوب واضح ؟

تم تعديل يوليو 10, 2010 بواسطه abusarah73

[أبوســـارة1973]

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

[أبوســـارة1973]

للرفع

للرفع للرفع

للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع

للرفع للرفع

للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

تم تعديل يوليو 21, 2010 بواسطه abusarah73