محدود کردن TextBox [بایگانی]

RamezanBeik

یک شنبه 30 اردیبهشت 1386, 19:29 عصر

سلام
دوستان عزیز برای اینکه TextBox رو محدود کنیم می بایست از رویداد KeyPress استفاده کنیم.حالا اگه بخواهیم که TextBox فقط کاراکتر یا عدد وارد کنیم . باید چه کدی را در قسمت
رویداد بنوسیم؟
بدرود.

__siavash__

یک شنبه 30 اردیبهشت 1386, 20:59 عصر

تو این تاپیک انواع تکست باکس هست
تو پست پنجم برنامه ی دوم جواب سوالت هست !
http://barnamenevis.org/forum/showthread.php?t=64235&highlight=textbox

CodeMasterX

دوشنبه 31 اردیبهشت 1386, 00:30 صبح

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

Private Sub Text1_KeyPress(ByVal KeyAscii As Integer)
Dim strData As String
strData = "0123456789"

In InStr(1,strData , chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

این تابع فقط مقادیر عدید رو قبول میکنه.در غیر اینصورت کد اسکی فشرده شده با صفر برابر میشه.شرط کد هم برای این کد های اسکی 27 به بالا رو چک میکنه چون کد اسکی کلید هایی مثل Space,BackSpace و ... در این محدوده هستن و به اونا نیاز داریم.