PDA

View Full Version : ميخوام فقط كاراكتر و عدد تايپ بشه



maisam57
یک شنبه 15 اردیبهشت 1387, 09:37 صبح
سلام
سرچ كردم چيزي پيدا نكردم ميخواستم توي يه textbox فقط عدد و كاراكتر بتونم تايپ كنم بعنوان مثال اجازه نده كاربر كاراكتر ". + - * / ? > < " رو تايپ كنه
با تشكر

مهران رسا
یک شنبه 15 اردیبهشت 1387, 09:41 صبح
من راه اصولی بلد نیستم . ولی یک راهش اینه که علائم گفته شده رو چک کنی و با استفاده از SendKeys و ارسال کلید Backspace اون رو پاک کنی ...

majjjj
یک شنبه 15 اردیبهشت 1387, 09:44 صبح
راه اصولی استفاده از keyascii هست
این کلمه رو سرچ کنین

liaghat
یک شنبه 15 اردیبهشت 1387, 12:45 عصر
نمونه:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 45 Then
KeyAscii = 0
End If
If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 46 And KeyAscii <> 8 And KeyAscii <> 13) Then
KeyAscii = 0
End If
End Sub

parselearn
یک شنبه 15 اردیبهشت 1387, 13:07 عصر
Dim i As Integer
Dim s As String
For i = 1 To Len(txt1.Text)
s = Mid(txt1.Text, i, 1)
If (s < "0" Or s > "9") And (s < "a" Or s > "z") And (s < "A" Or s > "Z") Then
MsgBox "Error", vbCritical + vbMsgBoxRight, "Error"
txt1.Text = ""
txt1.SetFocus
Exit For
End If
Next i

مهران رسا
یک شنبه 15 اردیبهشت 1387, 20:55 عصر
Dim i As Integer
Dim s As String
For i = 1 To Len(txt1.Text)
s = Mid(txt1.Text, i, 1)
If (s < "0" Or s > "9") And (s < "a" Or s > "z") And (s < "A" Or s > "Z") Then
MsgBox "Error", vbCritical + vbMsgBoxRight, "Error"
txt1.Text = ""
txt1.SetFocus
Exit For
End If
Next i



روش خوبی نیست .
فکر کن کاربر بعد از وارد کردن 20 تا کاراکتر بخواد % را وارد کنه . چی میشه ؟ هر چی نوشته بود پاک میشه ...

ali_habibi1384
یک شنبه 15 اردیبهشت 1387, 22:37 عصر
این نمونه رو قبلا هم توی سایت گذاشته بودم
شما می تونین از حروف دیگری نیز که در ماژول نوشتم استفاده کنید . در این مثال شما فقط اعداد و حروف فارسی رو می تونید وارد کنید.