+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كتابه عدد معين من الارقام داخل تيكست بوكس (/showthread.php?tid=50588)
كتابه عدد معين من الارقام داخل تيكست بوكس - modymody300894 - 07-11-24
السلام عليكم ورحمة الله وبركاتة
لو سمحتوا انا عندي 4 تيكست بوكس
تيكست بوكس 1 دا بكتب فيه ارقام يعني مثلا 1165-101-1
فبيتم تقسيم الارقام من بعد علامه -
مثال
textbox2 = 1
textbox3 = 101
textbox4 = 1165
المطلوب
محتاج بعد كل رقم يتم ادخال ارقم 0 حتي يكون اجمالى textbox2 = 6 ارقام
مثال
textbox2 = 000001
textbox3 = 000101
textbox4 = 001165
سويتها عن طريق maxlength لكن لما تنفع لان بيتم توزيع عن طريق كود وليس يدوي
ارجو الافادة ضرورة
وياريت اكون قدرت اوصل لحضرتكم طلبي
RE: كتابه عدد معين من الارقام داخل تيكست بوكس - F.H.M - 07-11-24
وعليكم السلام ورحمة الله وبركاته ،،،
جرب هذا الكود
كود :
Dim currentText As String = TextBox1.Text
Dim paddedText As String
Select Case currentText.Length
Case 1
paddedText = currentText.PadLeft(6, "0"c) ' Add 5 leading zeros
Case 2
paddedText = currentText.PadLeft(6, "0"c) ' Add 4 leading zeros
Case 3
paddedText = currentText.PadLeft(6, "0"c) ' Add 3 leading zeros
Case 4
paddedText = currentText.PadLeft(6, "0"c) ' Add 2 leading zeros
Case 5
paddedText = currentText.PadLeft(6, "0"c) ' Add 1 leading zeros
Case Else
paddedText = currentText ' No padding needed
End Select
TextBox1.Text = paddedTextRE: كتابه عدد معين من الارقام داخل تيكست بوكس - Taha Okla - 07-11-24
وعليكم السلام ورحمة الله وبركاته
كود :
Dim N1() As String = TextBox1.Text.Split("-")
TextBox2.Text = N1(0).PadLeft(6, "0")
TextBox3.Text = N1(1).PadLeft(6, "0")
TextBox4.Text = N1(2).PadLeft(6, "0")RE: كتابه عدد معين من الارقام داخل تيكست بوكس - modymody300894 - 07-11-24
شكراً ليكم الكودين مشاء الله شغالين ربنا يبارك فيكم يارب