+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال هام فى الفيجوال بيسك فيجوال 6 (/showthread.php?tid=18817)
سؤال هام فى الفيجوال بيسك فيجوال 6 - الحلوانى - 15-01-17
السلام عليكم
فى الفيجوال بيسك 6
عمليةضرب
لدى 3 تكست الاول فيه 15 رقم والثانى فيه 6 ارقام والثالث فيه نتيجة عملية الضرب
طبعا التكست 3 لن بظهر فيه التاتج كله لانه سيكون حوالى 20 رفم
ماذا افعل لكى يظهر الارقام 20 رقم فى التكست
لكم كل الشكر
RE: سؤال هام فى الفيجوال بيسك فيجوال 6 - عبد العزيز البسكري - 15-01-17
السّلام عليكم و رحمة الله و بركاته
أخي الكريم أتمنى من كل قلبي مخلصًا أن تجد المساعدة قدر المستطاع من أساتذتنا الأعزّاء و الأكفّاء لأنّي بالواقع سألت سابقًا و لم أتوصّل لنتيجة .. فقط للتحايل بدلاً من ظهور بعد الرقم الخامس عشر الرمز 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تحياتي
RE: سؤال هام فى الفيجوال بيسك فيجوال 6 - الحلوانى - 16-01-17
السلام عليكم
الفاضل عبد العزيز السكرى
شكر لكم على الرد وارجوا من الله ان يزيدك من فضله
RE: سؤال هام فى الفيجوال بيسك فيجوال 6 - Ashraf Elafify - 17-01-17
اخى العزيز
على حسب ما فهمته من سؤالك
يرجى تجربه الكود التالى
كود :
Private Sub Command1_Click()
Text3.Text = 0
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = Format(Text3.Text, "STANDARD")
End Sub