عبد الفتاح كيرة قام بنشر يوليو 6, 2010 قام بنشر يوليو 6, 2010 السلام عليكم أريد طريقة مباشرة و عامة علما بأن خاصية right to left فعالة للفورم كله
الحسامي قام بنشر يوليو 7, 2010 قام بنشر يوليو 7, 2010 السلام عليكم اخي كيماس هنا مرفق ملف يشرح كيفية عمل تنسيقات لصناديق الادخال قد تستفيد منه تنسيقات ارقام textbox.rar
عبد الفتاح كيرة قام بنشر يوليو 7, 2010 الكاتب قام بنشر يوليو 7, 2010 الأخ الفاضل عماد الحسامى أشكرك لردك و للملف المفيد الملف يركز على تنسيقات الأرقام و العملات و التواريخ لكنى لاحظت أن التنسيق المشتمل على كلمة دينار أردنى باللغة العربية ظهر عند التشغيل باللغة العربية فاستفدت من ذلك استفادة عظيمة حلت المشكلة جعلت النص الافتراضى لمربعات النصوص كلمة عربية كما بالصورة و هذه هى النتيجة الرائعة عند التشغيل أشكر لسيادتكم تعاونكم
أبوســـارة1973 قام بنشر يوليو 8, 2010 قام بنشر يوليو 8, 2010 السلام عليكم جميعا كيف يمكن أن أجعل (TEXTBOX) في الفورم ( FORM ) لايقبل إلا الأرقام فقط ؟
الحسامي قام بنشر يوليو 8, 2010 قام بنشر يوليو 8, 2010 السلام عليكم ورحمة الله وبركاته لجعل ال TEXTBOX لا يقيل إلا الارقام ضع الكود التالي في داخل ال TEXTBOX If Not IsNumeric(TextBox1.Value) Then TextBox1 = "" أما اذا اردت ظهور رسالة لاعلام المستخدم بذلك استخدم الكود التالي If Not IsNumeric(TextBox1.Value) Then MsgBox "عذرا هذه الخانة مخصصة للارقام فقط" TextBox1 = "" End If
أبوســـارة1973 قام بنشر يوليو 9, 2010 قام بنشر يوليو 9, 2010 جزاك الله خير الجزاء يا أستاذ حسامي لدي سؤالين آخرين : 1- ما هو كود نتيجة الجمع في التكست بوكس بمعنى أن المطلوب في textbox1 ناتج مجموع textbox2 وtextbox3 وtextbox4 بشكل تلقائي بمجرد إدخال القيم في textbox2 وtextbox3 وtextbox4 أو في أحدها ؟ 2- ما كود شرط إدخال أكبر من أو أصغر من في textbox1 ؟ بمعنى إذا أردت أن أدخل في textbox1 أكبر من أو تساوي 15 مثلاً بحيث لا يقبل الإعداد من 1 إلى 14
الحسامي قام بنشر يوليو 9, 2010 قام بنشر يوليو 9, 2010 السلام عليكم ورحمة الله وبركاته اخي العزيز لجمع عدة مربعات نصوص وبناءا لمثالك ضع الكود التالي 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 قام بنشر يوليو 10, 2010 قام بنشر يوليو 10, 2010 (معدل) سؤال رابع أستاذي / الحسامي : هل يمكن اختيار - من قائمة Properties - شرط أن يكون TextBox3 ذا قيمة ( بمعنى يجب الا يكون فارغاً)؟ إذا لم يكن هذا متوفراً في قائمة Properties ، فما هو الكود الذي يعطي هذا الغرض ؟ أكرر شكري وتقدير لك أيها الأستاذ الكبير أخوك وتلميذك أبو سارة تم تعديل يوليو 10, 2010 بواسطه abusarah73
عبد الفتاح كيرة قام بنشر يوليو 10, 2010 الكاتب قام بنشر يوليو 10, 2010 نعم يمكن استخدم خاصية text واكتب فيها القيمة الافتراضية
أبوســـارة1973 قام بنشر يوليو 10, 2010 قام بنشر يوليو 10, 2010 (معدل) ليس هذا قصدي بل أقصد أن التكست بوكس في فورم ما يجب أن لا يكون فارغاً بمعنى يجب إدخال قيمة فبه هل المطلوب واضح ؟ تم تعديل يوليو 10, 2010 بواسطه abusarah73
أبوســـارة1973 قام بنشر يوليو 17, 2010 قام بنشر يوليو 17, 2010 بل أقصد أن التكست بوكس في فورم ما يجب أن لا يكون فارغاً بمعنى يجب إدخال قيمة فبه هل المطلوب واضح ؟
أبوســـارة1973 قام بنشر يوليو 21, 2010 قام بنشر يوليو 21, 2010 (معدل) للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع تم تعديل يوليو 21, 2010 بواسطه abusarah73
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.