منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود منع كتابة الحروف في Text Box - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] كود منع كتابة الحروف في Text Box (/showthread.php?tid=1299)

الصفحات: 1 2

كود منع كتابة الحروف في Text Box - OsamaVB - 20-12-13

بسم الله الرحمن الرحيم

كود لمنع كتابة الحروف في TextBox .. نكتب هذا الكود في الحدث Key Press

if char.isNumber (e.keychar) = false then
e.Handled = True

وبنفس الطريقة يمكن منع كتابة الارقام مع تغيير الخاصية طبعا
............................................................................................................................

RE: كود منع كتابة الحروف في Text Box - essabar - 01-01-14

رائع أخي لقد جربت الكود لكن يمكممي مسح textbox

RE: كود منع كتابة الحروف في Text Box - الجندى - 28-02-14

ممتاز
كنت أبحث عنه

RE: كود منع كتابة الحروف في Text Box - Dr.Abduljbbar.H.M - 12-03-14

أخي العزيز ... لحل مشكلة عدم القدرة على مسح محتوى TextBox ... عدل الكود إلى الشكل التالي :
كود :
If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
            e.Handled = True
        End If


RE: كود منع كتابة الحروف في Text Box - DOX.1 - 27-04-20

(12-03-14, 04:00 AM)Dr.Abduljbbar.H.M كتب : أخي العزيز ... لحل مشكلة عدم القدرة على مسح محتوى TextBox ... عدل الكود إلى الشكل التالي :
كود :
    If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
           e.Handled = True
       End If

كيف أستثني كود الأنتر مع كود المسح

RE: كود منع كتابة الحروف في Text Box - paveldida - 01-05-20

لاكن كيف يمكن كتابة الارقام بعد الفاصلة ؟؟

RE: كود منع كتابة الحروف في Text Box - alshandodi - 02-05-20

السلام عليكم ورحمة الله وبركاته
هذا الكود في المديول وهو إضافة فاصله واحده وارقام فقط 

كود :
Public Sub PointTxt(ByVal e As KeyPressEventArgs, txtPoint As TextBox)

       If Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or (e.KeyChar = "." And txtPoint.Text.IndexOf(".") = -1) Then
           e.Handled = False
       Else
           e.Handled = True
       End If
           End Sub




يمكنك وضع هذا الكود في Events Keypress
كود :
PointTxt(e, TextBox1.Text)


RE: كود منع كتابة الحروف في Text Box - Lathe1 - 19-07-21

(02-05-20, 07:46 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته
هذا الكود في المديول وهو إضافة فاصله واحده وارقام فقط 

كود :
Public Sub PointTxt(ByVal e As KeyPressEventArgs, txtPoint As TextBox)

       If Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or (e.KeyChar = "." And txtPoint.Text.IndexOf(".") = -1) Then
           e.Handled = False
       Else
           e.Handled = True
       End If
           End Sub




يمكنك وضع هذا الكود في Events Keypress
كود :
PointTxt(e, TextBox1.Text)
الكود لم يعمل معى لانه فى حدث تغير تكست اعترض على اسم التكست بوكس وطلع رسالة value of type string csnnot be converted to system .windows .forms.textbox

RE: كود منع كتابة الحروف في Text Box - Lathe1 - 20-07-21

(19-07-21, 12:01 PM)Lathe1 كتب :
(02-05-20, 07:46 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته
هذا الكود في المديول وهو إضافة فاصله واحده وارقام فقط 

كود :
Public Sub PointTxt(ByVal e As KeyPressEventArgs, txtPoint As TextBox)

       If Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or (e.KeyChar = "." And txtPoint.Text.IndexOf(".") = -1) Then
           e.Handled = False
       Else
           e.Handled = True
       End If
           End Sub




يمكنك وضع هذا الكود في Events Keypress
كود :
PointTxt(e, TextBox1.Text)
الكود لم يعمل معى لانه فى حدث تغير تكست اعترض على اسم التكست بوكس وطلع رسالة value of type string csnnot be converted to system .windows .forms.textbox
ما الجديد فى الكود

RE: كود منع كتابة الحروف في Text Box - HALIM ELEULMA - 06-01-24

كود لمنع كتابة الحروف في TextBox

PHP كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) Then
        e.Handled = True ' منع الحرف من الظهور في الـ TextBox
    End If
End Sub 

كتابة حرف وبعدها ثلاثة ارقام مع رسالة تنبيه

PHP كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    ' يسمح بالأحرف فقط في البداية
    If TextBox1.Text.Length = 0 AndAlso Not Char.IsLetter(e.KeyChar) Then
        e.Handled = True ' منع الإدخال إذا لم يكن حرفًا في البداية
    End If

    ' بعد الحرف، يسمح بالأرقام الثلاثة فقط
    If TextBox1.Text.Length > 0 AndAlso Not Char.IsDigit(e.KeyChar) Then
        e.Handled = True ' منع الإدخال إذا لم يكن رقمًا بعد الحرف
    End If

    ' عند وصول عدد الأحرف لثلاثة، يمنع المزيد من الإدخال
    If TextBox1.Text.Length = 4 Then
        e.Handled = True ' منع المزيد من الأرقام بعد ثلاثة
        MessageBox.Show("الرجاء إدخال حرف وثلاثة أرقام فقط!", "تنبيه")
    End If
End Sub 

كتابة "رقم رقم رقم" وتضيف فراغ بين كل رقمين

PHP كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    ' التأكد من أن الحرف المدخل هو رقم وليس فراغ
    If Char.IsDigit(e.KeyChar) Then
        ' التأكد من عدم تجاوز حد الأرقام المسموح بها
        If TextBox1.TextLength < 9 Then ' يمكنك تغيير الرقم 9 حسب الحالة
            ' لا يتم إضافة فراغ بين الأرقام عند الإدخال
            If TextBox1.TextLength > 0 AndAlso TextBox1.TextLength Mod 3 = 2 Then
                TextBox1.Text += " " & e.KeyChar
                TextBox1.SelectionStart = TextBox1.TextLength
                e.Handled = True
            ElseIf TextBox1.TextLength = 0 OrElse TextBox1.TextLength Mod 3 <> 2 Then
                TextBox1.Text += e.KeyChar
                TextBox1.SelectionStart = TextBox1.TextLength
                e.Handled = True
            End If
        Else
            e.Handled = True ' منع المزيد من الإدخال بعد الحد المسموح به
            MessageBox.Show("الرجاء إدخال أقل من 9 أرقام!", "تنبيه")
        End If
    ElseIf Not Char.IsControl(e.KeyChar) Then
        e.Handled = True ' منع أي شيء غير الأرقام
    End If
End Sub