دریافت عدد کادر متن؟؟؟

[aminie]

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

[ali_najari]

دوست عزیز شما باید در خاصیت keypress اون کنترل مورد نظر به فرض مثال |textbox کدی مثل زیر بنویسید:


If Char.IsNumber(e.KeyChar) Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Back) Or _
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Or _
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Delete) Or _
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Tab) Then

e.Handled = False
Else
e.Handled = True
End If

[AlgorithmX]

سلام!



Public Class Form1
Public lt As String
PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBox1.TextChanged
If IsNumeric(TextBox1.Text) = False Then
Beep()
If Len(TextBox1.Text) = 1 Then TextBox1.Text = "" Else TextBox1.Text = lt
Else
lt = TextBox1.Text
End If
End Sub
EndClass

[f3ryjoon]

دوستان و عزيزان گلم !!!
هرجا خواستين فقط متن دريافت كنيد كد زير رو تو رويداد كي پريسش كپي كنيد !!!! :)



If IsNumeric(e.KeyChar) = False AndAlso (e.KeyChar <> Convert.ToChar(Keys.Back) AndAlso (e.KeyChar <> Convert.ToChar(Keys.Enter))) Then e.KeyChar = ""




منبع : خودم (http://barnamenevis.org/member.php?158107-f3ryjoon)

[parselearn]

Private Sub t_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCode.KeyPress, txtCodeMelli.KeyPress, txtNIdentity.KeyPress, txtNBime.KeyPress
If Not ((Asc(e.KeyChar)) >= 48 And (Asc(e.KeyChar)) <= 57) Then
e.KeyChar = ""
End If
End Sub