منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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

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

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mostafa201255411

asmarsou

هاوي1995

h2551996