كيف اجعل التكست بوكس لا يكتب سوي
24×17 بحيث المطلوب مني هو كتابة أربعة ارقام فقط
وهو يقوم بادخال × بعد رقمين وقبل رقمين
كيف اجعل التكست بوكس لا يكتب سوي
24×17 بحيث المطلوب مني هو كتابة أربعة ارقام فقط
وهو يقوم بادخال × بعد رقمين وقبل رقمين
من مواضيعي :
إجعل برنامجك يعمل على كل جهاز في العالم
النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات
هذا الكود يحتاج لكثير من الذكاء وقليل من العمل
إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6
برنامجين مع السورس كود قديمين جداً
مثال كامل لــانشاء ملف txt*. النصي
الاداة رائعة جدا بكل المقاييس swbbtnba.ocx
كود ممتاز ؟ ومساعدة في الاضافة / الحذف
احلى حركة وجدتها اخيرا بعد وقت طويل
وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio
أخى العزيز
طبعا طلبك ممكن ولكنه كود كثير - لأنه مركب بعض الشئ
ولكنى أنصحك باستخدام الـ 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
و الله الموفق
و شكرا ً
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
-09
اسف للاخ Undo
فانا لم ارى الرد
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
مع جزيل الشكر تم الامر ولله الحمد الكود ناجح بشكل رائع
وطريقة abulyaman
ال Masked Edit من اسهل الطرق بدون كود
من مواضيعي :
إجعل برنامجك يعمل على كل جهاز في العالم
النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات
هذا الكود يحتاج لكثير من الذكاء وقليل من العمل
إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6
برنامجين مع السورس كود قديمين جداً
مثال كامل لــانشاء ملف txt*. النصي
الاداة رائعة جدا بكل المقاييس swbbtnba.ocx
كود ممتاز ؟ ومساعدة في الاضافة / الحذف
احلى حركة وجدتها اخيرا بعد وقت طويل
وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio
ابحث علي newgoogle.cjb.net وراح تنبسط ان شاء الله
حيث أن طريقة البحث فيه عملية جدا جدا
1-خلي الموقع يفتح كليا
2-فقط اكتب كلمة البحث ولنتظر قليلا
3-راح تدعيلي
::::التوقيع::::
موقع ممتاز
وان شاء الله يفيد الجميع
وشكرا
؟؟لماذا لا يصل الايميل المرسل من صفحتي الي الهوتميل؟؟
مستوي الجدية في المواضيع المطروحة
لا اله الا الله محمد رسول الله
هذا الموضوع مغلق.