منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل (/showthread.php?tid=17956)

الصفحات: 1 2 3

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - iisys - 16-11-16

(16-11-16, 10:44 PM)السرور كتب : اخوي، ما علاقة التايمر، انت ما وضحت غير انك تريد التنسيق بهذا الشكل 123،456.99

وبعدين ايه حكاية قياسي اللي بتذكرها كل شوي؟

اخي الكريم


جربت التايمر لكوني لااعلم اين نوضع الكود


أما حكاية ( قياسي ) فهو أحد أنواع تنسيق الرقم كما تعلمته سابقا في أكسس وغيره ( قياسي وثابت وعام  الخ)  وكل نسق يختلف عن الثاني
والقياس هو موضع سؤالي .
 
باختصار أود إذا أدخلت رقم 1234567.99 في TEXT معين يظهر بهذا النسق 1.234.567.99 وهذا نسق قياسي
 
شاكر ومقدرا للجميع

وعذا على الاطاله

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - السرور - 16-11-16

بس كدا ما راح تقدر تتعامل معاه على انه رقم بسبب هذا التنسيق

التنسيق هذا يستخدم دائما عند عرض البيانات فقط يعني في Label مثلا وليس في أدواة خاصة بالتحرير
او عند الطباعة ايضا

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - عبد العزيز البسكري - 16-11-16

؟؟؟؟؟؟؟؟؟؟؟؟؟


RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - iisys - 17-11-16

شاكر ومقدر لك استاذي الكريم امير


 مثال جميل جدا تشكر عليه


الغريبة ان نسق الرقم القياسي في اكسس سهل جدا أما في VB6 فلا 



تحياتي للجميع

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - sendbad100 - 17-11-16

السلام عليكم 

استخم الكود التالي

كود :
Private Sub Text1_LostFocus()

Text1.Text = Format(Val(Text1.Text), "Standard")

End Sub


RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - عبد العزيز البسكري - 17-11-16

؟؟؟؟؟؟؟؟؟؟


RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - iisys - 17-11-16

شكرا لك اخي [b]sendbad100[/b] 


فعلا  يظهر في الـTEXT النسق الصحيح وعند حفظة واسترجاع سجله يعود الرقم كما كان من غير نسق.

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - ahmedabdelaliem - 17-11-16

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


PHP كود :
Private Sub Form_Load()
Text1.Text = Format(Text1.Text, "0,##0.00")
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.Text = Format(Text1.Text, "0,##0.00")
End If
End Sub

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "0,##0.00")
End Sub 

اخي بهذه الطريقة تستطيع تنسيق التكست وبخصوص حدث Text1_KeyDown مفعل مع الضغط على زر Enter لكي يتم التنسيق بعد الكتابة و حدث Text1_LostFocus عندما ترك التكست الى اي كنترول اخر

بالتوفيق

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - iisys - 17-11-16

اخي [b]ahmedabdelaliem[/b]

عند تعبأة الـTEXT بالرقم في بداية اضافة السجل يظهر التنسيق المطلوب تمام ( 1.250.22)

وعند استعادة السجل لغرض عرضه يختفي التنسيق / اي غيرثابت التنسيق المطلوب( 1250.22)

RE: كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل - sendbad100 - 17-11-16

(17-11-16, 12:21 AM)iisys كتب : شكرا لك اخي [b]sendbad100[/b] 


فعلا  يظهر في الـTEXT النسق الصحيح وعند حفظة واسترجاع سجله يعود الرقم كما كان من غير نسق.



اضف هذا الكود   بعد اجراء  الاسترجاع 
كود :
Text1.Text = Format(Val(Text1.Text), "Standard")

او قم بحفظ الرقم كنص وليس كرقم في قاعدة البينات