3 کاراکتر سمت چپ textbox فقط حرف باشد

[mahan_dawson]

سلام
می خوام 3 کاراکتر سمت چپ textbox فقط حرف باشه نه عدد
ممنون میشم راهنماییم کنید

[program2vb]

سلام
می خوام 3 کاراکتر سمت چپ textbox فقط حرف باشه نه عدد
ممنون میشم راهنماییم کنید
میشه بیشتر توضیح بدی منظورتو متوجه نشدم کامل ؟

[mahan_dawson]

میشه بیشتر توضیح بدی منظورتو متوجه نشدم کامل ؟
تو text box سه کاراکتر سمت چپ عدد نباشه. فقط بشه حروف وارد کرد
خودم فکر می کنم باید از دستور
Microsoft.VisualBasic.Left(TextBox1.Text, 3
استفاده کنم ولی بقیه ش رو نمی دونم

[program2vb]

تو text box سه کاراکتر سمت چپ عدد نباشه. فقط بشه حروف وارد کرد
خودم فکر می کنم باید از دستور
Microsoft.VisualBasic.Left(TextBox1.Text, 3
استفاده کنم ولی بقیه ش رو نمی دونم


ببین میخوای فقط تو تکس باکس حروف بنویسی یا مثلا هر چی دوس داری بنویسی فقط سه تا آخرش حرف باشه

[mahan_dawson]

ببین میخوای فقط تو تکس باکس حروف بنویسی یا مثلا هر چی دوس داری بنویسی فقط سه تا آخرش حرف باشه
maskedbox میشه
ولی میخوام textbox باشه
همه چیز بشه نوشت فقط سه تای اولش حرف باشه

[program2vb]

maskedbox میشه
ولی میخوام textbox باشه
همه چیز بشه نوشت فقط سه تای اولش حرف باشه


Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) < 3 Then
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End If
End Sub


این کد رو نگاه کن ببین چطوره سه تا او رو میتونی فقط عدد بنویسی بعد میتونی حروف هم بنویسی

موفق و پیروز باشی یا علی

[arenaw]

این رو هم امتحان کن:

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If Text1.SelStart < 3 Then
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
KeyAscii = 0
End If
End If
If KeyAscii = 8 And Text1.SelStart < 4 Then
If Asc(Mid(Text1, 4, 1)) >= Asc("0") And Asc(Mid(Text1, 4, 1)) <= Asc("9") Then
KeyAscii = 0
End If
End If
End Sub

[vbhamed]

سلام

به نظر من بهتره از MaskTextBox استفاده كني و Mask مورد نظر رو بهش بدي