تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال هام فى الفيجوال بيسك فيجوال 6
#1
السلام عليكم



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

عمليةضرب



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



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



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



لكم كل الشكر
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
أخي الكريم أتمنى من كل قلبي مخلصًا أن تجد المساعدة قدر المستطاع من أساتذتنا الأعزّاء و الأكفّاء لأنّي بالواقع سألت سابقًا و لم أتوصّل لنتيجة .. فقط للتحايل بدلاً من ظهور بعد الرقم الخامس عشر الرمز 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

تحياتي
الرد
تم الشكر بواسطة:
#3
السلام عليكم
 الفاضل عبد العزيز السكرى

شكر لكم على الرد وارجوا من الله ان يزيدك من فضله
الرد
تم الشكر بواسطة:
#4
اخى العزيز

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

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


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

End Sub


الملفات المرفقة صورة/صور
   
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم