اريد معرفة كيفيه عمل فورمات ل الليبول

[إبراهيم ابوليله]

الاخوه الافاضل

اريد اظهار الارقام فى اللبول

مضاف اليها عمله اليورو

[رجب جاويش]

أخى الحبيب / ابراهيم

يمكنك ذلك

عن طريق الضغط على مفتاح  Alt  أثناء الضغط على الأرقام 0128

تم تعديل فبراير 10, 2014 بواسطه رجب جاويش

[ضاحي الغريب]

أخي الفاضل ا/ ابراهيم ابو ليلة

اليك مثال لاظهار نوع العملة في Textbox أو label

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

Private Sub TextBox1_Change()
TextBox2.Value = Format(TextBox1.Text, "EUR #,##0.00")
 Label1.Caption = Format(TextBox1.Text, "EUR #,##0.00")
End Sub

تقبل تحياتي

التطبيق بالمرفقات

 

Currency.rar

[ضاحي الغريب]

الأخ الحبيب أستاذنا // رجب جاويش

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

المعذرة رفعت المشاركة في نفس توقيت مشاركتك 

تقبل الله منا ومنكم صالح الأعمال

تقبل تحياتي

[رجب جاويش]

أخى الحبيب / ضاحى الغريب

انما هى زيادة فى الخير

فجزاك الله خيرا

[إبراهيم ابوليله]

اخى واستاذنا رجب

طبعا انا بكون سعديد جدا لما

بشوف مشاركاتك فى المنتدى

لانها تعطينا دائما الامل تناول وجبه جديده من المعلومات

بارك الله فيك

ولكنى كنت اسأل عن كيفيه جعل الليبل او التيكست بوكس

يأخذ علامة الدولار

واعتقد اننى قد وصلت اليها الان

وعرفت كيف اكتبها داخل الكود

مشكورا اخى الكريم

[رجب جاويش]

أخى الحبيب / ابراهيم

شكرا جزيلا لك أخى الحبيب على كلماتك الطيبة

وجزاك الله كل خير

[إبراهيم ابوليله]

اخى ضاحى
 بالفعل الكود الذى ارفقته جميل

وشرح وافى

كما تعودنا منك

ولكنى كنت اريدها

هكذا

Private Sub TextBox1_Change()
Me.Label1 = Format(Me.TextBox1.Value, "#,##0.00 €")

End Sub

وقد اتى بالفكره استاذنا رجب بارك الله فيه

مره اخرى اشكرك اخى على المساعده