تحديد ال Format ل TextBox محدد له ال DataBinding

#128 نوفمبر 2005 في 01:28 صاحب الموضوع

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

ربما يكون الحل أمام عيني، لكني فعلاً حاولت كثيراً :(

يوجد لدي TextBox محدد له خاصية الـ DataBinding كالآتي:

txtBalance.DataBindings.Add("Text", Me.DataSet, "CustomerAccount.Account")

و المشكلة ان هذا الـ TextBox بما انه محد له هذه الخاصية فلا أستطيع تعيين Format له بالطريقة المباشرة مثل:

Dim balance As Decimal
txtBalance.Text = Format(balance, "c")

فهل هناك طريقة تمكنني من جعل هذا الـ TextBox يعرض القيمة على شكل العملة؟؟ مثل 500.00 L.E

شكراً سلفاً...

رأس الحكمة الإيمان بالله

#228 نوفمبر 2005 في 02:19

اخى محمد جرب الكود التالى

Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield")
textdatfield.DataBindings.Add(Mybinding)
AddHandler mybinding.Format, AddressOf convertToDecimals
End sub
Private Sub convertToDecimals(ByVal sender As Object, _
ByVal cevent As ConvertEventArgs)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
cevent.Value =ctype(cevent.Value ,Double).ToString("#,##0.00")(
End If
End Sub

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#328 نوفمبر 2005 في 02:56

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

أخي ممكن تجرب الكود ده أيضا

txtBalance.DataBindings.Add("Text", Me.DataSet, String.Format("{0.0#{","CustomerAccount.Account"))

وإن لم يصح format ولكن الأسلوب يعمل يمكنك البحث عن إسلوب فورمات double

تم تعديل هذه المشاركة بواسطة Ahmed H. Alawady في 28 نوفمبر 2005 في 02:58

Name : Ahmed H. Alawady

Web Site : Alawady.info

Email : alawady_ahmed@hotmail.com

Tel : +2 012 345 6808

#428 نوفمبر 2005 في 03:48

شكراً جزيلاً Solo و أحمد،

لقد حاولت من قبل بنفس طريقتك يا أحمد لكنها لم تنجح للأسف...

و يبدو ان كود SOLO سيفي بالغرض ان شاء الله، سأجربه و أقول..

شكراً لكما مرة أخرى..

رأس الحكمة الإيمان بالله

#528 نوفمبر 2005 في 04:47

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

كود SOLO نجح بكل جدارة، شكراً على المساعدة...

الحل في كلاس ConvertEventArgs و هو مخصص بالذات لعمليات الـ Format و الـ Parse الخاصة بالـ Controls المربوطة عن طريق الـ DataBinding... لم أكن أعلم عنه أي شيء حتى رأيته في كود SOLO.NET ....

كدت أن أجن خلال الأيام القليلة الماضية بسبب هذه المشكلة التافهة... :wacko: :lol:

شكراً لكما SOLO و أحمد مرة أخرى على المساعدة..

رأس الحكمة الإيمان بالله

#628 نوفمبر 2005 في 15:36

لا شكر على واجب

والحمدلله الذى وفقنا

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#730 نوفمبر 2005 في 10:08

ما شاء الله عليك اخي Solo.net دائما في عون اخوانك

ربنا يزيدك علما نافعا دائما

لا حول و لا قوة الا بالله العلي العظيم

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

دورة تصميم و تطوير المواقع من خلال مشروع عملي

#827 فبراير 2007 في 11:10

جزاك الله خير

مع أن الإجابة كانت في Nov 28 2005

إلا أنني استفدت منها اليوم .

وهناك سؤال : بما أني استخدم المعالجات و أدوات قواعد البيانات ، أين يمكنني وضع هذا الكود ليعمل بصورة سليمة ؟

AddHandler mybinding.Format, AddressOf convertToDecimals

هل أضعه في حدث InitializeComponent للنافذة تحت سطر الربط ؟

تم تعديل هذه المشاركة بواسطة MSVS في 27 فبراير 2007 في 11:15

أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين

فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن

أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى

ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى

أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد

فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد

#927 فبراير 2007 في 11:50

سؤال أخر :

كيف سيتم تنسيق شكل عمود داخل DataGridView مربوطه بـ DataBinding ؟

أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين

فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن

أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى

ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى

أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد

فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد

#105 مارس 2007 في 18:21

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

اقتباس
12/12/2006 12:00:00

قمت بتعديل الكود لكي يظهر التاريخ فقط

Private Sub myroutine()
		Dim Mybinding As Binding = New Binding("Text", DS1, "Date")
		Me.txtDate.DataBindings.Add(Mybinding)
		AddHandler Mybinding.Format, AddressOf convertToDate
	End Sub
	Private Sub convertToDate(ByVal sender As Object, _
	ByVal cevent As ConvertEventArgs)
		If cevent.Value Is DBNull.Value Then
			cevent.Value = ""
		Else
			cevent.Value = Format(CType(cevent.Value, Date), "dd/MM/yyyy")
		End If
	End Sub

ان شاء يفي بالغرض

من مواضيعي

برنامج التاجر جاهز للتجربة ...

شاشة تسجيل دخول اكثر أمانا ...

فكرة استخدام DLL لحماية البرامج ..

#117 مارس 2007 في 10:59

MSVS كتب:
وهناك سؤال : بما أني استخدم المعالجات و أدوات قواعد البيانات ، أين يمكنني وضع هذا الكود ليعمل بصورة سليمة ؟
AddHandler mybinding.Format, AddressOf convertToDecimals
هل أضعه في حدث InitializeComponent للنافذة تحت سطر الربط ؟

التوقع كان صحيحاً والحمد لله .

أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين

فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن

أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى

ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى

أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد

فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد

تحديد ال Format ل TextBox محدد له ال DataBinding

مواضيع مشابهة