تعیین نوع ورودی جعبه متن

[senator_aka]

سلام دوستان.

چطور میشه در VB کاری کرد که مثلا جعبه متن تنها عدد دریافت کند و اگر چیزی غیر عدد دربافت کرد به کاربر اخطار دهد.

[__siavash__]

سلام دوستان.

چطور میشه در VB کاری کرد که مثلا جعبه متن تنها عدد دریافت کند و اگر چیزی غیر عدد دربافت کرد به کاربر اخطار دهد.
این تکست باکس 4 حالت
1.حروف بزرگ
2.حروف کوچک
3.فقط عدد
4.فقط حروف
رو داره ببین به دردت میخوره !

[CodeMasterX]

کنترل MaskEditBox چیز خوبیه.

[noorsoft]

ابته راه حلهای زیادی برای این کار وجود داره و همچنین OCX های زیادی هم وجود دارند به هر حال ساده ترین راه حل چک کردن KEYPRESS و KEYDOWN است که در آن ورودی را مقایسه کنیم و اگر آن چیزی که ما میخواهیم نبود KEYASCII=0 و KEYCODE=0 را وارد نماییم

[Hossein Bazyan]

سلام
تابع زیر را در برنامه ت بنویس


'---------------------------------------------------------------------------------------
' Function : KeyControl
' DateTime : 6/11/2005 13:47
' Author : Bazyan
' Last Modify : 6/11/2005 13:47
' Purpose : ˜äÊÑá ÇÚÏÇÏ æÑæÏí
'
'---------------------------------------------------------------------------------------
'
Public Function KeyControl(CodeControl As Integer) As Integer

Select Case CodeControl
Case 48 To 57 ' Key from 0 to 9
KeyControl = CodeControl
Case 8 ' Key BackSpace
KeyControl = CodeControl
Case 46 ' Period
KeyControl = CodeControl
Case 13 ' enter
KeyControl = CodeControl
Case Else
KeyControl = 0
Beep
End Select
End Function



سپس در قسمت Keyprees تکست باکست کدزیر را قرار بده


Private Sub txtText_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = KeyControl(KeyAscii)
End Sub

برای کنترل مقادیر دیگر ( مانند حروف کوچک یا بزرک و غیره ) هم میتوانی در داخل تابع شرطهای مختلفی را بذاری