السلام عليكم ورحمة الله وبركاته
عندي استفسار صغير
وهوكيف أعمل TextBox له عدد أرحرف محددة
مثال لذلك مثلاً خانة تسجيل الرقم الشخصي لابد من أن يكون الرقم الشخصي 11 رقم فقط لا اكثر من ذلك
وشكراً .
تم تعديل هذه المشاركة بواسطة COMFORT في 27 أبريل 2005 في 12:19
جزاك الله كل خير أخي g-johnny
أخي سؤال آخر
كيف أجعل كومند خاصيته Enabled = False حتى يتم كتابة أحرف بالعدد الذي حددته مثال 11
أعني أنه لا يتم تغير خاصية Enabled إلى True إلا بعد كتابة العدد المحدد من الأحرف أو الأرقام
تم تعديل هذه المشاركة بواسطة COMFORT في 27 أبريل 2005 في 16:33
لو افترضت ان العدد الذى تود ايقاف عمل مربع النص من خلاله هوا نفس القيمة الموجودة في MaxLength
If Len(Text1) = Text1.MaxLength Then Text1.Enabled = False Else Text1.Enabled = True End If
او ضع القيمة في الشرط
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
بسم الله
الاخ محمد اعذرني على التعقيب بعد ردك :D
اجعل الخاصية enabled=false ,,,,,, التابعة لل command (موجودة على يمين الشاشة)
افعل في الحدث (onchange) تأكد من هذا الحدث قد يكون (change) التابع ل (text)
if len(text)=11 then command1.enabled=true
سلام
المبرمج الطيب :)
إذا كان ترك الدين يعني تقدما ***** فيا نفس موتي قبل أن تتقدمي
اعط الفقير سمكة يشبع يوما * * * * علمه الصيد يشبع مدى الحياة
قتل امرئٍ في غابةٍ ***** جريمة لا تغتفـر
وقتل شعبٍ بأكمله ****** مسألةٌ فها نظر
حتى الكلاب إذا رأت يوماً فقيراً ماشياً *** نبحت عليه وكشرت أنيابها
اخي المبرمج الطيب
شكرا على تعقيبك، صراحة هو تصحيح لكلامي، حيث لم انتبه ان المطلوب تعطيل الزر وليس مربع النص
الكود الذي كتبته مرة اخرى مع تصحيحك :)
If Len(Text1) = Text1.MaxLength Then Command1.Enabled = False Else Command1.Enabled = True End If
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
شكراً أخي الكريم
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ...
- معلومة :
يمكنك اختصار الكود كالتالي :
Command1.Enabled = CBool(Len(Text1) = Text1.MaxLength)
وجزاكم الله خيرًا
سبحان الله وبحمده ... سبحان الله العظيم
جزاك الله خير أخي الكريم
أخي أحمد
بجد طريقة حلوة
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
هذا الموضوع مغلق.
