هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

ok هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟

مُساهمة من طرف Microformt في الإثنين فبراير 17, 2014 1:30 pm

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
 هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟
 زكيف ذلك
 والله يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟

مُساهمة من طرف ذوكا في الإثنين فبراير 17, 2014 2:13 pm


نعم عن طريق الدالة Format مثال :

الكود:
Text1.Text = Format(Text1.Text, "###,###,##0.00")

avatar
ذوكا
.....
.....

تاريخ التسجيل : 26/05/2013
المساهمات : 92
النقاط : 155
التقيم : 11
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟

مُساهمة من طرف Microformt في الإثنين فبراير 17, 2014 2:37 pm

ذوكا كتب:
نعم عن طريق الدالة Format مثال :

الكود:
Text1.Text = Format(Text1.Text, "###,###,##0.00")

اخي العزيز
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟

مُساهمة من طرف gadr في الأحد مارس 22, 2015 11:55 pm

ذوكا كتب:
نعم عن طريق الدالة Format مثال :

الكود:
Text1.Text = Format(Text1.Text, "###,###,##0.00")

اين يكتب هذه النص فى اي حدث
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: هل ممكن ان اضع أي قناع إدخال الى text بدن استخدام اداة MaskEdBox ؟؟

مُساهمة من طرف VB.NET في الإثنين مارس 23, 2015 4:55 am

يمكنك استخدامة فى حدث LostFocus 

الكود:
Private Sub Text1_LostFocus()

Text1.Text = Format(Text1.Text, "###,###,##0.00")

End Sub

او فى حدث Change

الكود:
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "###,###,##0.00")
End Sub
avatar
VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى