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

(26-08-18, 09:42 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم هذا مثال لما ترغب في اضافة الصفر على يسار الرقم وعدد هانات الاصفار حدده انت وفق عدد الخانات وزد عليه حسب ماترغب

احسنت بارك الله فيك استاذي تسلم ايدك   ضبط معاي والحمدالله

---

(26-08-18, 11:08 PM)elgokr كتب : [ -> ]

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

مرحباً بك اخى dubai.eig

بخصوص طلبك اليك الطريقة بابسط من ما يكون

اذا كانت الاقام متغيرة اذا كان تتزايد عن العدد او التناقص 

وكل ما تحتاجه هو اضافة فقط 0 قبل الرقم فكل ما عليك تطبيق مثل هذا المثال

كود :

       Dim ii As Integer = 65489
       MsgBox("0" & ii)

ولاحظ هنا استخدام & وليس + ويفضل ان تجعل الصفر داخل "" ليتم اعتباره نصي

طيب انت مثلاً بتعمل قيمة مثل مثلاً رقم تليفون

والعدد الاقصي له هو 10 ارقام او 11 مثلاً

فطبيعة الحال عند ادخال الرقم يتم حذفه تلقائي لان الصفر على الشمال لا قيمة له

لكن تريد عند عرضه يظهر 0 فى بداية الرقم فكل ما عليك تطبيق مثل التالى

كود :

       Dim ii As Integer = 65489
       MsgBox(ii.ToString("0000000"))

ضع عدد الاصفار للعدد المطلوب الارقام عرضها

اتمنى ان تكون الصورة وضحت لك كاملاً وان الشرح بسيط

تحياتى لك

وتمنياتى لك التوفيق

احسنت استاذي الكريم  






ضبط معاي الحمدالله




بارك الله فيكم جميعا ولا يحرمنا من وجودكم موفقين خير يا رب