مجموع خاص بتاكست بوكس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : مجموع خاص بتاكست بوكس (/showthread.php?tid=15631)

مجموع خاص بتاكست بوكس - حافظ حافظ - 29-04-16 تحيتي لكل الاخوة و الساتذة القائمين على المنتدي هل من مساعدتي لطفا منكم بهذه المشكلة عندي تكست1 و تكست 2 أكتب بتكست 1 مثلا الرقم 400 تظهر بتكست 2 العدد 400 ..ثم أكتب بتكست1 مثلا 25.36 تظهر بتكست 2 العدد 425.36 وهكذا .. كل مكتب رقم بتكست 1 ينضاف للمجموع بتكست 2 اسمحولي ادا اتعبتكم معايا برك الله فكم مقدما RE: مجموع خاص بتاكست بوكس - KamelArab - 29-04-16 إستخدم هذا الكود Private Sub TextBox1_Change() Dim lo As Single lo = Val(TextBox1.Text) If lo = 1 Then TextBox2.Text = 400 Else TextBox2.Text = 400 + (lo) End If End Sub RE: مجموع خاص بتاكست بوكس - حافظ حافظ - 29-04-16 شكرا اخي للمساعدة لكن للاسف ليس هذا مأريده التكست2 هي للمجموع كل مكتب رقم بتكست1 واضغط انتر ينضاف للمجموع بالتكست2 اشرحلك اكثر اكتب في تكست1 الرقم 100 مثلا تظهر بتكست 2 الرقم 100 ، بعدين لما اكتب مثلا بتكست 1 الرقم 200 واضغذ انتر تظهر بتكست 2 المجموع 300 .اكتب بعدين مثلا بتكست 1 الرقم 500.96 واضغط انتلر تظهر بتكست2 الرقم 800.96 يعني ديما التاكست 2 للمجموع لما ادخل رقم اي رقم بتكست 1 واضغذانتير ينضاف للمجموع بتكست2 نقدر نخلي كومند 1 بدلا من الضغط انتر تشكراتي RE: مجموع خاص بتاكست بوكس - KamelArab - 29-04-16 أضف كوماند وكتب الكود التالي:- Public sa As Single Private Sub CommandButton1_Click() Dim lo As Single TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End Sub RE: مجموع خاص بتاكست بوكس - حافظ حافظ - 29-04-16 نعم شكرا هذا هو المطلوب بارك الله فيك وتقبل تحياتي شكرا