فقط نوشتن حروف

[SeyedMoosavi]

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

[sokote_bi_payan]

به نام خدا

با سلام

دوست عزیز در رویداد KeyPress تکست باکست کافیه کد زیر و وارد کنی :

select case keyaskii
case vbkeydelete
case (kode aski a) to (kode aski Z):

else case
keyaskii = 0
beep

end select

موفق باشید
یاعلی

[ƒxmahdi]

در رویداد keypress تکست کد زیر را وارد کن

If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8 Or KeyAscii = 32 Then
Else
KeyAscii = 0
End If

[SeyedMoosavi]

آقا حمید جان من می خوام فقط حرف وارد بشه نه عدد

[حسین علوی]

سلام دوست عزیز
در change تکست باکس این دستور را بنویس این دستور اعداد ممیزی را هم قبول میکنه
On Error Resume Next
If Val(Text1.Text) <> Text1.Text Then

Text1.Text = ""
End If

[SeyedMoosavi]

مهندس این که اگر یه نوشته غلط بره تو تکست باکس کل نوشته رو پاک می کنه
من می خوام اصلا نشه واردش کرد همین

[SeyedMoosavi]

با استفاده از کد آقا حمید کد رو درست کردم
با تشکر از همتون
اینم کد


If KeyAscii > 96 And KeyAscii < 123 Or KeyAscii = 8 Or KeyAscii = 32 Then
Else
KeyAscii = 0
End If

[__siavash__]

http://barnamenevis.org/forum/showthread.php?t=64235&highlight=textbox

[ramin1800]

سلام
شما هم میتونید از keycode استفاده کنی هم از keyascii

keycode:


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode > 90 Or KeyCode < 65 Then
Text1.Locked = True
Else
Text1.Locked = False
End If
End Sub

keyascii:


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 122 Or KeyAscii < 97 Then
Text1.Locked = True
Else
Text1.Locked = False
End If
End Sub

[venizsoft]

با سلام

شما می توانید با وارد کردن کد های

If KeyAscii > 41 And KeyAscii < 58 Then KeyAscii = 0

در keypress تکست باکستون به مقصود خود به رسید.

www.VenizSoft.com

[ali_habibi1384]

سورس برنامه با اجرای 100 در صد . کلیدهای ESC برای بستن فرم و ENTER بعنوان TAB میشه مورد استفاده قرار بگیره. ماژول کامل با امکانات زیادی داره . پیشنهاد میکنم دانلودش کنین
موفق باشید