تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود منع كتابة الحروف في Text Box
#1
Smile 
بسم الله الرحمن الرحيم

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

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

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

أنا الذي نظر الأعمى إلى أدبي ...
وأسمعت كلماتي من به صممُ

الرد }}}
#2
رائع أخي لقد جربت الكود لكن يمكممي مسح textbox
الرد }}}
تم الشكر بواسطة:
#3
ممتاز
كنت أبحث عنه
الرد }}}
تم الشكر بواسطة:
#4
أخي العزيز ... لحل مشكلة عدم القدرة على مسح محتوى TextBox ... عدل الكود إلى الشكل التالي :
كود :
If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
            e.Handled = True
        End If
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي , حسن الجلب
#5
(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

كيف أستثني كود الأنتر مع كود المسح
الرد }}}
تم الشكر بواسطة:
#6
لاكن كيف يمكن كتابة الارقام بعد الفاصلة ؟؟
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته
هذا الكود في المديول وهو إضافة فاصله واحده وارقام فقط 

كود :
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)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#8
(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
الرد }}}
تم الشكر بواسطة:
#9
(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
ما الجديد فى الكود
الرد }}}
تم الشكر بواسطة:
#10
كود لمنع كتابة الحروف في TextBox

PHP كود :
Private Sub TextBox1_KeyPress(sender As ObjectAs KeyPressEventArgsHandles TextBox1.KeyPress
    If Not Char
.IsControl(e.KeyCharAndAlso Not Char.IsDigit(e.KeyCharThen
        e
.Handled True ' منع الحرف من الظهور في الـ TextBox
    End If
End Sub 

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

PHP كود :
Private Sub TextBox1_KeyPress(sender As ObjectAs KeyPressEventArgsHandles 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 ObjectAs KeyPressEventArgsHandles 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 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم