منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كتابه ارقام فقط textbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كتابه ارقام فقط textbox (/showthread.php?tid=44346)

كتابه ارقام فقط textbox - Mostafa201255411 - 20-11-22

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

RE: كتابه ارقام فقط textbox - asmarsou - 20-11-22

(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


RE: كتابه ارقام فقط textbox - هاوي1995 - 20-11-22

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

RE: كتابه ارقام فقط textbox - h2551996 - 01-12-22

(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