چجوری میشه فقط در داخل text box متن قرار داد؟

[nima1989n]

چجوری میشه فقط در داخل text box متن قرار داد؟

[kbdfa]

Private Sub Text2_KeyPress(KeyAscii As Integer)
'ONLY APPHABETS
If (Asc(UCase(Chr(KeyAscii))) < 65 Or Asc(UCase(Chr(KeyAscii))) > 91) And KeyAscii <> 8 And KeyAscii <> 32 Then
KeyAscii = 0
End If
End Sub
با اين كد ميتوني فقط متن رو وارد تكست باكس كني

[shaparake_shomal]

f isnumeric(text1.text)=true then
text1.text=""i

[Hamid_pro]

با اجازه Shaparak کدش رو تصحيح می کنم:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = True Then KeyAscii = 0
End Sub