[OsamaVB]

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

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

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

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

[essabar]

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

[الجندى]

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

[Dr.Abduljbbar.H.M]

أخي العزيز ... لحل مشكلة عدم القدرة على مسح محتوى TextBox ... عدل الكود إلى الشكل التالي :

كود :

If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
            e.Handled = True
        End If

[DOX.1]

أخي العزيز ... لحل مشكلة عدم القدرة على مسح محتوى TextBox ... عدل الكود إلى الشكل التالي :

كود :

    If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
           e.Handled = True
       End If

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

[paveldida]

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

[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)

[Lathe1]

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

كود :

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

[Lathe1]

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

كود :

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

ما الجديد فى الكود

[HALIM ELEULMA]

كود لمنع كتابة الحروف في 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