[saad_aone]

التكست لايكتب اكثر من 10ارقام

وانا اريد على الاقل 15 رقم ماذا افعل

[saad_aone]

انا عامل مشروع phonbook
وتكست الارقام لايكتب اكثر من 10 ارقام فقط والارقام عندنا مكونة من 11 رقم اعمل ايه

[تركي قرمزلي]

السلام عليكم و رحمة الله و بركاته
سؤالك غامض ... كيف يكون التكست لا يقبل أكثر من عشرة أرقام ؟ غير في الخاصية MaxLength

كود :

TextBox1.MaxLength=11

السلام عليكم و رحمة الله و بركاته

[oneyemenweb2]

السلام عليكم اعمل تكست عادي ولجعله يقبل فقط الارقام

اضف هذه الدالة

كود :

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

مع خالص تحياتي

[saad_aone]

شكرا لكم جميعا وتم حل المشكلة