PDA

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


nima1989n
16-01-2007, 11:29
چجوری میشه فقط در داخل text box متن قرار داد؟
kbdfa
16-01-2007, 11:45
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
19-01-2007, 21:25
f isnumeric(text1.text)=true then
text1.text=""i
Hamid_pro
20-01-2007, 03:04
با اجازه Shaparak کدش رو تصحيح می کنم:

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