[نبيل كونكت]

كود :

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

الكود ده بيمنع كتابة الكلمات والشيفت وازرار التحكم 
ممكن طلب كود انه يسمح بكتابة الدوت وتكون واحد بس . كعلامه عشريه للارقام

[سعود الشامان]

صباح الخير اخوي نبيل

شوف هذا الموضوع و المشاركه رقم 5

وأنا انصحك بإستبدال التيكست بوكس بـ الماسكيد تيكست بوكس


شرح الماسكيد تيكست بوكس من المهندس احمد الزيني

https://www.youtube.com/watch?v=9pBlYH0AJFo

---

وايضاً شوف هذا الموضوع راح تستفيد منه

http://vb4arb.com/vb/showthread.php?tid=21348

[نبيل كونكت]

شكراا اخى مسعود على مساعدتك

[سعود الشامان]

اسمي سعود الله يسسسعدك
وبرضو حلو اسم مسعود ههههههه

[نبيل كونكت]

حبيبى يا بشمهندس سعود

[محمود بكرى]

السلام عليكم ضع هذا الكود فى حدث key press

كود :

If Not Char.IsDigit(e.KeyChar) And e.KeyChar <> ControlChars.Back And e.KeyChar <> CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator Then
           e.Handled = True
       End If

[نبيل كونكت]

(18-08-17, 03:52 PM)محمود بكرى كتب : السلام عليكم ضع هذا الكود فى حدث key press

كود :

If Not Char.IsDigit(e.KeyChar) And e.KeyChar <> ControlChars.Back And e.KeyChar <> CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator Then
           e.Handled = True
       End If

فى error  فى CultureInfo

[محمود بكرى]

كود :

Imports System.Globalization

لانك لم تستورد المكتبة