چطور به نسبت تعداد كاركترهاي عددي پشت سر آن عدد صفر قرار بدهم؟

[swallow.pa]

سلام به همه
دوستان فرض بر اين است كه حداكثر مقدار ورودي اعداد 10 رقم مي باشد و كاربر اعداد زير را وارد مي كند
155551
1450445
6552
حالا دنبال تابعي هستم كه اين اعداد وارد شده اگر رقم انها از ده تا كمتر باشد پشت سر انها صفر قرار بگيرد كه همه ده رقم بشن مثل
0000155551
0001450445
0000006552
حالا از چه تابعي بايد استفاده كنم
ممنون

[shahryari]

سلام
فرض را بر این میگیریم که حد اکثر تعداد عددها از 10 بیشتر نباشد
Dim i As Integer = 10 - TextBox1.TextLength
For j As Integer = 1 To i
TextBox1.Text = "0" & TextBox1.Text
Next

[swallow.pa]

من فكر مي كنم راه بهتر از اين باشه

[hosein320]

Private Function Nu(ByVal n As Integer)
Dim L As Byte = 10 - Len(n.ToString)
Dim Ou As String
For i As Byte = 1 To L
Ou += "0"
Next
Ou += n.ToString
Return Ou
End Function

[shahryari]

من فكر مي كنم راه بهتر از اين باشه

:متفکر: ....
منم دارم به این فکر میکنم

[swallow.pa]

دوستان از لطف همه شما سپاسگذارم اما بنظر شما ايا اين امكان وجود ندارد كه از تابع format or formatnumberاستفاده كرد من بيشتر دنبال اين هستم تا استفاده از حلقه for

[shahryari]

اینجا رو ببین
http://msdn.microsoft.com/en-us/library/dd260048.aspx

[swallow.pa]

Format(1234,"0#########") 0000001234
پيداش كردم اين جواب بود به هر حال از لطف دوستان ممنونم

[shahryari]

اینم اونی که میخواستی
Dim varNumber As Integer = Val(TextBox1.Text)
TextBox2.Text = varNumber.ToString().PadLeft(10, "0")

[swallow.pa]

TextBox1.Text = TextBox1.Text.PadLeft(10, "0")

[tooraj_azizi_1035]

string str = "forty-two";
char pad = '.';

Console.WriteLine(str.PadLeft(15, pad)); // Displays "......forty-two".
Console.WriteLine(str.PadLeft(2, pad)); // Displays "forty-two".