جدا کردن چهار رقم در Textbox

[Heidari66]

سلام

کدی رو میخوام که عدد رو توی تکست باکس چهار قم جدا کنه
البته نمیخوام MaskTextbox باشه
جستجو کردم فقط برای سه رقم بود

ممنون

[A_1397]

سلام
لطفا یه مثال بزنید.

[Heidari66]

میخوام وقتی عدد رو توی تکست باکس وارد میکنم چهار رقم چهار قم جدا کنه ، مثلا شماره ی کارت اعتباری...

مثلا این کد برای سه رقم عدده:

mablagh.Text = String.Format("{0:N0}", CLng(mablagh.Text))
Me.mablagh.Focus() : Me.mablagh.SelectionStart = Me.mablagh.Text.Length

[A_1397]

بهتر نیست اگر تعداد کل ارقامتون ثابته، به تعداد چهار رقمهایی که قراره جدا بشه تکست باکس بزارید و کاربر هرچهار رقم رو داخل یک تکست باکس وارد کنه.

[Heidari66]

آخه در اصل میخوام روی Combobox اجراش کنم

[ROSTAM2]

اگه درست متوجه شده باشم شما به این دستور نیاز دارید

For I = 1 To Len(TextBox1.Text) - 1 Step 4
ComboBox1.Items.Add(Mid(TextBox1.Text, I, 4))
Next

[Heidari66]

:اشتباه:

اینو نمیخوام

ببین میخوام وقتی توی Combobox عدد وارد میکنم ، چهار رقم چهار رقم جدا کنه همین.

کد سه رقمشو بالا گذاشتم ، فقط برای چهارقمشو نمیدونم چجوریه!!!

[xxnagin]

سلام
این برای 4 رقم در textbox هستش

البته می تونی تو پروپرتی تنظیم کنی تا چه قدر عدد (Length) بگیره maxLength
If TextBox1.Text.Length = 4 Then
TextBox1.Text = TextBox1.Text & "-"
TextBox1.SelectionStart = 6
elseIf TextBox1.Text.Length = 10 Then
TextBox1.Text = TextBox1.Text & "-"
TextBox1.SelectionStart = 11
End If



شما مثلا 4 رقم بعدی و که حساب کنی
در اینجا هر 4 تا عدد یک خط تیره می اندازه
4 رقم بعد که 10 میشه دوباره یک خط تیره می اندازه
و شما TextBox1.SelectionStart = 11

[barbodsoft.com]

این کد رو تو رویداد key up تکست باکس بنویس. همزمان با تایپ چهار رقم چهار رقم انجام می شه.


Dim str As String = TextBox1.Text
str = str.Replace(",", "")


Dim len As Integer = str.Length \ 4
If str.Length Mod 4 = 0 Then len -= 1
Dim str1(len) As String

For i As Integer = 0 To len
Dim start As Integer = (i * 4) + 1
Dim endS As Integer = 4
If 4 * (i + 1) > str.Length Then endS = str.Length - (4 * i)
str1(i) = Mid(str, start, 4)
Next
str = ""
For j As Integer = 0 To len
If j <> 0 Then str &= ","
str &= str1(j)
Next
TextBox1.Text = str
TextBox1.SelectionStart = TextBox1.TextLength

[Heidari66]

ممنون دوستان علی الحساب روش هر دوتون جواب داد :لبخندساده:

[ali_najari]

دوست عزیز من یه برنامه و یه کلاس واست آماده کردم که کاری رو که میخوای انجام میده با این خاصیت که دستت واسه اینکه تعیین کنی چه تعدادی میخوای جدا کنی بازه ( از 1 تا هر عددی که بخوای مثلا 4 یا 5 یا ...)

87320

87321

[ali_najari]

بزودی 2 کامپونت جدید واستون میزارم واسه این کار
یکی برای تکس باکس و یکی برای کامبوباکس که قابلیت های زیادی داشته باشه

[h.gheidrlou]

دوست عزیز من سوال برام پیش اومده که خواهش میکنم کمکم کنید
من میخوام وقتی سیستم ران میشه ای پی سیستم را کنترل کنه و با در یک فرم که یک لیبل داره و متن اون حاوی 4 رقم از ای پی می باشد
به محض ران شدن یوزر فرم ای پی در تکست باکس قرار میگیره و اگر 4 رقم اول ای پی با چهار رقم داخل لیبلی که پنهان شده برابر و مشابه بود داخل برنامه بشه در غیر اینصورت از کاربر رمز بخواد و وارد نشه
راهنمایی کنید لطفا چکنم؟