طلب صغير جدا في ادخال قيمة عددية فقط في TextBox

[قطان]

1 - أريد طريقة ادخال أعداد فقط في TextBox

2 - كما أن الTextBox عندما يصبح غير مفعل يصبح الخط رمادي

هل من الممكن أن يبقى أسود ؟؟

3 - كيف يمكن الغاء صفة التنقل عبر تاب لأي TextBox أو غير دون الغاء تفعيله

أسئلة كثيرة ولا يوجد مرفق لأني اتعلم من المرافق الفارغة أكثر

[basem said]

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then SendKeys "{BackSpace}"
End Sub
او
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub
وهذا للحروف فقط
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = 0
End Sub

 

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then SendKeys "{BackSpace}"
End Sub
او
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub
وهذا للحروف فقط
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = 0
End Sub 

[قطان]

أخي بارك الله فيك بس لو تدخل الكلام ككود

أو بمثال ومرفق

تمت العملية بنجاح بوركت

تم تعديل يونيو 4, 2012 بواسطه قطان

[قطان]

الأسئلة الباقية ما زالت موجودة

2 - كما أن الTextBox عندما يصبح غير مفعل يصبح الخط رمادي

هل من الممكن أن يبقى أسود ؟؟

3 - كيف يمكن الغاء صفة التنقل عبر تاب لأي TextBox أو غير دون الغاء تفعيله

[basem said]

وهذا لاغلاق التكست وعدم الكتابة فيها

untitled.bmp

تم تعديل يونيو 4, 2012 بواسطه basem said

[basem said]

التاب يمكن تحديد التنقل من خلال وضع رقم مسلسل له او اغلاقه نهائيا

ارجو ان اكون افادتك

untitled.bmp

[قطان]

أفدت وزدت بوركت

على القافية الله يعطيك العافية

[basem said]

الشكر لله ثم هذا الموقع المتميز بالمشرفين الموجودين

بارك الله فيك

[قطان]

بقي الخط الأسود بدلا من الرمادي

[basem said]

وهذا لاغلاق التكست وعدم الكتابة فيها

يمكن اغلاقه فقط انظر الصورة المرفقة بالمشاركه رقم 5

تم تعديل يونيو 4, 2012 بواسطه basem said

[قطان]

أخي الكريم الصورة واضحة

لكن المشكلة أنه يوجد تكست غير فاعل

ستظهر فيه قيمة معينة

والمشكلة أن لون الخط رمادي وأريده أسود كما تلاحظ في المرفق

Book1.rar

تم تعديل يونيو 4, 2012 بواسطه قطان

[عبدالله باقشير]

السلام عليكم

2 - كما أن الTextBox عندما يصبح غير مفعل يصبح الخط رمادي

هل من الممكن أن يبقى أسود ؟؟

غير فعال not Enabled

يعني متحجر وهذا لون التحجر

اي انه لا يقبل التلوين ------------والله اعلم

3 - كيف يمكن الغاء صفة التنقل عبر تاب لأي TextBox أو غير دون الغاء تفعيله

ممكن الكود ده بداية تفعيل الفورم

TextBox1.TabStop = False

او من الخصائص للتاكست اثناء التصميم

TabStop = False

ودمتم

[basem said]

شاهد المرفق

Book1_2.rar

[قطان]

يكفيني مرور الأخوة على الموضوع وعلى رأسهم أخي خبور خير

أخي باسم الخط مازال رمادي اللون ولا أدري ما التغيير الذي قمت به ؟؟؟ اعذر جهلي

[basem said]

اجعل خاصية

Enabled =TRUE

Locked =TRUE

[قطان]

لساني يعجز عن الشكر لك فقد كفيت ووفيت :fff: :fff: :fff:

[أبو حنــــين]

السلام عليكم

بعد اذن الاخوة الكرام هذا مثال يوضح بعض الخصائص

و لم اطلع على مشاركات الاخوة الكرام ، فإن كنت قد كررت ما قامو به فالمعذرة

ملاحظة :

مربع النص الاول لا يقبل إلا الحروف :ABCDEF

مربع النص الثاني لا يقبل إلا الارقام : 0123456789

مربع النص الثاني لا يقبل إلا : 0123456789 - + ./ *

مربع النص الرابع لا يقبل إلا الحرف : A

مثال.rar

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

الاخ ابو حنين

بارك الله فيك

عمل رائع لايخرج الا من مبدع

[أبو حنــــين]

العفو اخي

[قطان]

الله أكبر

عمل راااائع وأكثر من رائع

وتعليمي من الدرجة الأولى

[أبو حنــــين]

شكرا اخي قطان

[احمد فضيله]

جزاكم الله كل خير

[حمادة عمر]

السلام عليكم

فعلا ابوحنين صاحب اسلوب السهل الممتنع

جزاكم الله خيرا