[Mostafa201255411]

الرجاء عمل كود لاجبار مستخدم كتابه في textbox ارقام فقط

[asmarsou]

(20-11-22, 09:37 PM)Mostafa201255411 كتب : الرجاء عمل كود لاجبار مستخدم كتابه في textbox ارقام فقط

تفضل استخدم هذا لكتابة ارقام فقط

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If (Not Char.IsControl(e.KeyChar) _
         AndAlso (Not Char.IsDigit(e.KeyChar) _
        AndAlso (e.KeyChar <> Microsoft.VisualBasic.ChrW(46)))) Then
           e.Handled = True
       End If
   End Sub

وهذا لكتابة حروف فقط

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If System.Text.RegularExpressions.Regex.IsMatch(TextBox1.Text, "[  ^ 0-9]") Then
           TextBox1.Text = ""
       End If
   End Sub

[هاوي1995]

فيه طريقة اخرى سهلة ولكن نسيتها

[h2551996]

(20-11-22, 11:03 PM)هاوي1995 كتب : فيه طريقة اخرى سهلة ولكن نسيتها

كود :

 If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
           e.Handled = True
       End If
   End Sub