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

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

لو سمحتوا انا عندي 4 تيكست بوكس

تيكست بوكس 1 دا بكتب فيه ارقام يعني مثلا 1165-101-1
فبيتم تقسيم الارقام من بعد علامه -

مثال
textbox2 = 1
textbox3 = 101
textbox4 = 1165

المطلوب
محتاج بعد كل رقم يتم ادخال ارقم 0 حتي يكون اجمالى textbox2 = 6 ارقام

مثال

textbox2 = 000001
textbox3 = 000101
textbox4 = 001165

سويتها عن طريق maxlength لكن لما تنفع لان بيتم توزيع عن طريق كود وليس يدوي

ارجو الافادة ضرورة
وياريت اكون قدرت اوصل لحضرتكم طلبي

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

جرب هذا الكود

كود :

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 = paddedText

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

كود :

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")

شكراً ليكم الكودين مشاء الله شغالين ربنا يبارك فيكم يارب

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

modymody300894

F.H.M

Taha Okla

modymody300894