PDA

View Full Version : سوال: فقط حروف یا عدد



aminvb
شنبه 01 آبان 1389, 07:42 صبح
می خوام داخله تکست باکس فقط عدد تایپ بشه چی کار کنم؟

یا بخوام فقط حروف فارسی تایپ شه چطور؟

ممنون

hooooman
شنبه 01 آبان 1389, 07:53 صبح
سلام
1 سرچ بزنين چندتا نمونه خوب تو سايت هستش

DoDoklak
شنبه 01 آبان 1389, 09:08 صبح
در رویداد KeyPress مربوط به TextBox کدهای زیر را قرار بدید



IfChar.IsNumber(e.KeyChar) = FalseThen
e.Handled = True
EndIf
If e.KeyChar = (vbBack) Then
e.Handled = False
EndIf
If e.KeyChar = (vbTab) Then
e.Handled = False
EndIf



اگر هم میخوای عدد مربوطه اعشار هم داشته باشه از کد زیر



IfChar.IsNumber(e.KeyChar) = FalseThen
e.Handled = True
EndIf
If e.KeyChar = (vbBack) Then
e.Handled = False
EndIf
If e.KeyChar = (vbTab) Then
e.Handled = False
EndIf
If e.KeyChar = "." Then
If InStr(txt_dgv.Text, ".") = FalseThen
e.Handled = False
EndIf
EndIf

yekta64
شنبه 01 آبان 1389, 12:01 عصر
می خوام داخله تکست باکس فقط عدد تایپ بشه چی کار کنم؟

یا بخوام فقط حروف فارسی تایپ شه چطور؟

ممنون


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

کد:::



If ((Asc(e.KeyChar) >= 0) And (Asc(e.KeyChar) <= 9)) Or (Asc(e.KeyChar)) = 8 Then
e.Handled = False
Else
e.Handled = True
End If

Saman_12
شنبه 01 آبان 1389, 20:35 عصر
پیشناهد می دم توی پروفایل من سرچ کنی یک تایپیک با عنوان (دانلود : Dll تکست باکس پیشرفته!) پیدا میکنی توی اون یک DLL آپلود کردم این خاصیت یکی از خواصش هست سورس کلاسش روهم گذاشتم.

mohsen gh
یک شنبه 02 آبان 1389, 21:48 عصر
واسه عدد تو خاصیت
KeyPress تکس باکست اینو بنداز


If Not IsNumeric(e.KeyChar) And e.KeyChar <> Convert.ToChar(Keys.Back) And e.KeyChar <> Convert.ToChar(Keys.Delete) Then
e.Handled = True
End If