السلام عليكم
فى الفيجوال بيسك 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
تحياتي
السلام عليكم
الفاضل عبد العزيز السكرى
شكر لكم على الرد وارجوا من الله ان يزيدك من فضله
اخى العزيز
على حسب ما فهمته من سؤالك
يرجى تجربه الكود التالى
كود :
Private Sub Command1_Click()
Text3.Text = 0
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = Format(Text3.Text, "STANDARD")
End Sub