+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- بخصوص serial number (/showthread.php?tid=29076)
استفسار :- بخصوص serial number - dubai.eig - 19-03-19
السلام عليكم ورحمة الله
عندي استفسار بخصوص الارقام
عندي كود للارقام يتسلسل الارقم من 001 الى لا نهاية
بس الكود اللي عندي من يوصل الى رقم 999 يرجع الى رقم 100 بدل ال 1000
حاولت اعدل في الكود بس ما ضبط
هذا الكود
كود :
Mid$(Exchange_r.Text, 1, 3) = Val(Mid$(Exchange_r.Text, 1, 3) + 1).ToString("000")المشكله الان بعد ال 999 ما يعطيني رقم 1000 يرجع الى رقم 100
افيدوني بارك الله فيكم وشكرا
الحمدالله حصلت الحل
وهو
كود :
dim FirstString As String = "001" ' as example
dim SecondString As String
SecondString = Format((Int(FirstString) + 1), "000") شكرا