[Top King]

(17-01-18, 08:01 AM)عبدالله الدوسري كتب :

(17-01-18, 02:31 AM)Top King كتب :

(17-01-18, 02:15 AM)HASAN6.0 كتب :

PHP كود :

TextBox1.Text = Format(70000000, "###,###,###,###,###,###,###.000") 


السام عليكم 

شكرا لاهتمام حضرتك

بس مش ده ال انا اصدي عليه انا عيزو يرتب الارقم زي الفديو علي اساس لما ادخل اي ارقم تتنسق مش رقم معين

يعني مثلا لو كتبت اي رقم مكون من 4 ارقام يباة كدة مثلا 1000 يباة 1,000  او اي رقم تاني وكل مزود رقم يتنسق تلقائي

وشكرا مرة تنية لاهتمام حضرتك

كود أخي HASAN6.0  هو ما تطلبة انت بالضبط .

PHP كود :

TextBox1.Text = Format(70000000, "###,###,###,###,###,###,###.000") 


ضع الرقم الذي تريدة مكان 70000000

وإذا كنت لا تريد أرقام عشرية بعد الرقم أحذف الثلاث أصفار 000 على اليمين بحيث يكون كالتالي

PHP كود :

TextBox1.Text = Format(70000000, "###,###,###,###,###,###,###") 


ملاحظة : لا تستطيع تنسيق النص وأنت في وض الكتابة في الــTextBox أي انه وانت تكتب لن ترى التنسيق
يمكنك فقط عندما تخرج من الــTextBox في الحدث 
TextBox1.Validating
أو
TextBox1.Validated
أو
TextBox1.Leave

عندها نفذ الكود الذي وضعة الأخ HASAN6.0

طريقة أخرى إستخدم هذا التنسيق وهو خاص بالإعدادات الإقليمية للجهاز

PHP كود :

Me.TextBox1.Text = Decimal.Parse(Me.TextBox1.Text).ToString("c") 


سيتم التنسيق حسب إعدادات الجهاز
لو كانت إعدادات العملة بالدولار سترى علامة الدولار وإذا كانت بعملة أخرى مثلاُ ستظهر

اولا ابدي لك شكر وتقدير للاهتمام 

انا عايز اوصف لحضرتك انا عايز ايه بظبط  الكود الذي وضعه اخي HASAN6.0  استفدت  منه جدا لكن كدة انا هفضل اعدل علي ارقام كتير عشان اوصل لل انا عايز اعملو بس انا جالي فكرة من الكود ده عملتلي ال انا عيزو بس حصل مشكلة

انا هوري لحضرتك مثال 

PHP كود :

If TextBox1.TextLength = 4 Then

            TextBox1.Text = Format(TextBox1.Text, "#,###")

        ElseIf TextBox1.TextLength = 5 Then

            TextBox1.Text = Format(TextBox1.Text, "##,###")

        ElseIf TextBox1.TextLength = 6 Then

            TextBox1.Text = Format(TextBox1.Text, "###,###")

        ElseIf TextBox1.TextLength = 7 Then

            TextBox1.Text = Format(TextBox1.Text, "#,###,###")

        ElseIf TextBox1.TextLength = 8 Then

            TextBox1.Text = Format(TextBox1.Text, "##,###,###")

        ElseIf TextBox1.TextLength = 9 Then

            TextBox1.Text = Format(TextBox1.Text, "###,###,###")

        ElseIf TextBox1.TextLength = 10 Then

            TextBox1.Text = Format(TextBox1.Text, "#,###,###,###")
        End If 


هو ده الكود ال انا عيزو بظبط  واسهل بكتير من لما اعرف رقم رقم بس حصل مشكلة معاية الناتج ال بيطلع في التكست لما بحط الرقم  بيطلع بشكل الفورمات نفسو يعني مثلا انا كتبت ا 5000 المفترض الناتج 5,000 

لا بيظهر كدة  

PHP كود :

#,### 


ياريت حضرتك تعدلي الكود بخبرتك انت عشان انا مش عارف اعمل ايه والله وعايز الكود ضروري

وشكرا