نمایش تعداد خاص 3 حرف آخر textbox در لیبیل

[mohsen_iceman2000]

سلام

یه تکس باکس دارم که شماره تلفن هست مثلا 09191234567


میخوام در label1 حالت نمایش این شکلی باشه 0919XXXXX67
و در لیبل 2 حالت نمایش XXXXXXXXX67 باشه

[matrix-program]

Dim cutdown As String = source.Substring(0, 10)
این مال وی بی دات نته
ببین تو ویبی 6 کار میکنه یا نه
برای خواندن 10 کاراکتر اول(خودت تغییرش بده به صورت دلخواهت)
منبع:http://www.codeproject.com/Questions/294240/reading-first-10-character-in-vb-net

[سید حمید حق پرست]

سلام علیکم
کدهارو در سورس براتون آماده و ضمیمه کردم
اینم کد جهت اطلاع :
Label1.Caption = Left$(Text1.Text, 4) & "XXXXX" & Right$(Text1.Text, 2)
Label2.Caption = "XXXXXXXXX" & Right$(Text1.Text, 2)
موفق باشید

یا علی (ع)

[nimar9]

سلام با چند تا تابع ریاضی میشه این کار را انجام داد.


' Baraye Label1
a = Len(Text1.Text)
a1 = a - 6
For i = 1 To a1
a2 = a2 & "*"
Next i
Label1.Caption = Left(Text1.Text, 4) & a2 & Right(Text1.Text, 2)
' Baraye Label2
b = Len(Text1.Text)
b1 = b - 4
For i = 1 To b1
b2 = b2 & "*"
Next i
Label2.Caption = Left(Text1.Text, 4) & a2


سوالی بود در خدمتم.
موفق باشید