[الحلوانى]

السلام عليكم

فى الفيجوال بيسك 6

عمليةضرب

لدى 3 تكست الاول  فيه 15 رقم والثانى فيه 6 ارقام والثالث فيه نتيجة عملية الضرب

طبعا التكست 3 لن بظهر فيه التاتج كله لانه سيكون  حوالى 20 رفم

ماذا افعل لكى يظهر الارقام 20 رقم فى التكست

لكم كل الشكر

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم أتمنى من كل قلبي مخلصًا أن تجد المساعدة قدر المستطاع من أساتذتنا الأعزّاء و الأكفّاء لأنّي بالواقع سألت سابقًا و لم أتوصّل لنتيجة .. فقط للتحايل بدلاً من ظهور بعد الرقم الخامس عشر الرمز E+ .. يمكن التعويض بالأصفار مثلاً :

كود :

Private Sub Text1_Change()
Text3.Text = Format(Val(Replace(Text1, ",", ".")) * Val(Replace(Text2, ",", ".")), "0000000000000000000000")
End Sub
Private Sub Text2_Change()
Text3.Text = Format(Val(Replace(Text1, ",", ".")) * Val(Replace(Text2, ",", ".")), "0000000000000000000000")
End Sub

تحياتي

[الحلوانى]

السلام عليكم
 الفاضل عبد العزيز السكرى

شكر لكم على الرد وارجوا من الله ان يزيدك من فضله

[Ashraf Elafify]

اخى العزيز

على حسب ما فهمته من سؤالك

يرجى تجربه الكود التالى

كود :

Private Sub Command1_Click()
Text3.Text = 0
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = Format(Text3.Text, "STANDARD")

End Sub