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



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


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