منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] التكست لايكتب اكثر من 10ارقام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التكست لايكتب اكثر من 10ارقام (/showthread.php?tid=1965)

التكست لايكتب اكثر من 10ارقام - saad_aone - 20-02-14

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

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

RE: التكست لايكتب اكثر من 10ارقام - saad_aone - 20-02-14

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

RE: التكست لايكتب اكثر من 10ارقام - تركي قرمزلي - 20-02-14

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

RE: التكست لايكتب اكثر من 10ارقام - oneyemenweb2 - 20-02-14

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

اضف هذه الدالة
كود :
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

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

RE: التكست لايكتب اكثر من 10ارقام - saad_aone - 21-02-14

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