20-02-14, 04:11 PM
20-02-14, 06:19 PM
انا عامل مشروع phonbook
وتكست الارقام لايكتب اكثر من 10 ارقام فقط والارقام عندنا مكونة من 11 رقم اعمل ايه
وتكست الارقام لايكتب اكثر من 10 ارقام فقط والارقام عندنا مكونة من 11 رقم اعمل ايه
20-02-14, 07:34 PM
السلام عليكم و رحمة الله و بركاته
سؤالك غامض ... كيف يكون التكست لا يقبل أكثر من عشرة أرقام ؟ غير في الخاصية MaxLength
السلام عليكم و رحمة الله و بركاته
سؤالك غامض ... كيف يكون التكست لا يقبل أكثر من عشرة أرقام ؟ غير في الخاصية MaxLength
كود :
TextBox1.MaxLength=1120-02-14, 07:35 PM
السلام عليكم اعمل تكست عادي ولجعله يقبل فقط الارقام
اضف هذه الدالة
وفي الحدث KeyPress
مع خالص تحياتي
اضف هذه الدالة
كود :
Public Function numeric(key As Integer) As Boolean
If (key > 31 AndAlso (key < 48 OrElse key > 57)) AndAlso (key <> 8) Then
Return False
End If
Return True
End Functionوفي الحدث KeyPress
كود :
If Not numeric(CInt(e.KeyChar)) Then
e.Handled = True
End Ifمع خالص تحياتي
21-02-14, 11:18 PM
شكرا لكم جميعا وتم حل المشكلة