تقييم الموضوع :
  • 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
ما الجديد فى الكود
الرد
تم الشكر بواسطة:



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


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