منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

تحيتي لكل الاخوة و الساتذة القائمين على المنتدي
هل من مساعدتي لطفا منكم بهذه المشكلة
عندي تكست1 و تكست 2
أكتب بتكست 1 مثلا الرقم 400 تظهر بتكست 2 العدد 400 ..ثم أكتب بتكست1 مثلا 25.36 تظهر بتكست 2 العدد 425.36
وهكذا .. كل مكتب رقم بتكست 1 ينضاف للمجموع بتكست 2
اسمحولي ادا اتعبتكم معايا
برك الله فكم مقدما

إستخدم هذا الكود
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

شكرا اخي للمساعدة
لكن للاسف ليس هذا مأريده
التكست2 هي للمجموع كل مكتب رقم بتكست1 واضغط انتر ينضاف للمجموع بالتكست2
اشرحلك اكثر
اكتب في تكست1 الرقم 100 مثلا تظهر بتكست 2 الرقم 100 ، بعدين لما اكتب مثلا بتكست 1 الرقم 200 واضغذ انتر تظهر بتكست 2 المجموع 300 .اكتب بعدين مثلا بتكست 1 الرقم 500.96 واضغط انتلر تظهر بتكست2 الرقم 800.96
يعني ديما التاكست 2 للمجموع لما ادخل رقم اي رقم بتكست 1 واضغذانتير ينضاف للمجموع بتكست2
نقدر نخلي كومند 1 بدلا من الضغط انتر
تشكراتي

أضف كوماند وكتب الكود التالي:-
Public sa As Single

Private Sub CommandButton1_Click()
Dim lo As Single
TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

نعم شكرا هذا هو المطلوب
بارك الله فيك وتقبل تحياتي
شكرا