(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"))
ضع عدد الاصفار للعدد المطلوب الارقام عرضهااتمنى ان تكون الصورة وضحت لك كاملاً وان الشرح بسيط
تحياتى لكوتمنياتى لك التوفيق
احسنت استاذي الكريم
كود :
Dim ii As Integer = 65489
MsgBox("0" & ii)
ضبط معاي الحمدالله
بارك الله فيكم جميعا ولا يحرمنا من وجودكم موفقين خير يا رب