منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل
نسخة كاملة : كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

iisys

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

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

اخي الكريم


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


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

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

السرور

16-11-16, 11:03 PM
بس كدا ما راح تقدر تتعامل معاه على انه رقم بسبب هذا التنسيق

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

عبد العزيز البسكري

16-11-16, 11:59 PM
؟؟؟؟؟؟؟؟؟؟؟؟؟

iisys

17-11-16, 12:00 AM
شاكر ومقدر لك استاذي الكريم امير


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


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



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

sendbad100

17-11-16, 12:01 AM
السلام عليكم 

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

كود :
Private Sub Text1_LostFocus()

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

End Sub

عبد العزيز البسكري

17-11-16, 12:14 AM
؟؟؟؟؟؟؟؟؟؟

iisys

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


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

ahmedabdelaliem

17-11-16, 02:31 AM
السلام عليكم ورحمة الله وبركاته


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 عندما ترك التكست الى اي كنترول اخر

بالتوفيق

iisys

17-11-16, 01:19 PM
اخي [b]ahmedabdelaliem[/b]

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

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

sendbad100

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


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



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

او قم بحفظ الرقم كنص وليس كرقم في قاعدة البينات
الصفحات : 1 2 3
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل