تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية الإبقاء علي الصيغة 00.00 بالنص
#1
بعمل برنامج ومحتاج أن أدخل في Text Box القيمة علي هيئة 00.00 وأن يتم إدخالها علي هيئة هذه الصيغة مثلا 01.00 مع العلم بأن في قاعدة البيانات ستدخل علي إنها نص فكيف الوصول لهذا ......ياريت الافادة ..وشكرا .
الرد }}}
تم الشكر بواسطة:
#2
انا ايضا بحاجة الى هكذا طريقة
الرد }}}
تم الشكر بواسطة:
#3
[COLOR="#000080"]السلام عليكم اخي
استخدم الكود التالي
كود :
Text1.Text = Format(Text1, "00.00")

بالتوفيق[/COLOR]
الرد }}}
تم الشكر بواسطة:
#4
اخي العزيز ممكن كود فاصلة الاف

يعني عند كتابه هذا الرقم "1000000"
يضهر هكذا "1,000,000"
الرد }}}
تم الشكر بواسطة:
#5

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




جرب


PHP كود :
Private Sub Text1_GotFocus()
    
Text1.Text Replace(Text1.Text",""")
End Sub

Private Sub Text1_LostFocus()
    
Text1.Text FormatNumber(Text1.Text2)
End Sub 





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#6
اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز
الرد }}}
تم الشكر بواسطة:
#7
المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز


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






التنسيق لا يستخدم في العمليات الحسابية، هو فقط لتسهيل القراءة على المشاهد





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#8
المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز


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




ممكن تستخدم هذه الطريقة للتخلص من التنسيق قبل اجراء العملية الحسابية


PHP كود :
Me.Text3.Text Val(Replace(Text1.Text",""")) * Val(Replace(Text2.Text",""")) 





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#9
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




جرب


PHP كود :
Private Sub Text1_GotFocus()
    
Text1.Text Replace(Text1.Text",""")
End Sub

Private Sub Text1_LostFocus()
    
Text1.Text FormatNumber(Text1.Text2)
End Sub 





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

--------------------------------------------------------------------
استاذي العزيز : أبورائد حفظة الله
السلام عليكم ورحمة وبركاته
كود جميل بس اريد إضافة كلمة ريال بجانب العدد من اليسار
الرد }}}
تم الشكر بواسطة:
#10
المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز

أخى جرب التالى وقم بوضع الأدوات كما بالكود فى الفورم .. هذه مجرد فكرة للإستخدام يمكن تطويعها كما تريد أرجو أن يكون هو المطلوب

[HTML]Private Sub Form_Load()
Text1(0).Text = Format$(Text1(0), "#,##0.00")
Text1(1).Text = Format$(Text1(1), "#,##0.00")
Text3.Locked = True
Text3.BackColor = &H80000000

End Sub
Private Sub Opt1_Click(Index As Integer)
Select Case Index
Case 0
Text3.Text = Format$(CSng(Text1(0) * Text1(1)), "#,##0.00")
Case 1
Text3.Text = Format$(CSng(Text1(0) / Text1(1)), "#,##0.00")
Case 2
Text3.Text = Format$(CSng(Text1(0)) + CSng(Text1(1)), "#,##0.00")
Case 3
Text3.Text = Format$(CSng(Text1(0)) - CSng(Text1(1)), "#,##0.00")
Case Else
Text3.Text = "0.00"
End Select
End Sub
Private Sub Text1_Change(Index As Integer)
Call Form_Load
If Text1(Index).Text = "" Then Exit Sub
Call Opt1_Click(Index)
End Sub
[/HTML]
الرد }}}
تم الشكر بواسطة:



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


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