[modymody300894]

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

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

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

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

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

مثال 

textbox2 = 000001
textbox3 = 000101
textbox4 = 001165

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

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

[F.H.M]

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

جرب هذا الكود 

كود :

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

[Taha Okla]

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

كود :

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]

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