[محمد مسافر]

السلام عليكم

جمعتكم مباركه ، عندي تاكس بوكس وبوتون

التاكس بوكس مرتبط بالبوتون عند كتابه الارقام في التاكس بوكس يظهر لي عدد الارقام كم عددها في البوتون مثلاً

تم كتابه 123456789 في التاكس بوكس  ، اريد يظهر لي عدد الارقام  9  في البوتون وهكذاء


كمااتمنى في بدايه التاكس بوكس يكون الرقم 89967  كرقم ثابت

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

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

الكود بسيط هو

كود :

Button1.Text = TextBox1.Text.Length

لتصبح أكواد مشروعك بهذا الشكل

كود :

Public Class Form1

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       Button1.Text = TextBox1.Text.Length

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Button1.Text = TextBox1.Text.Length
   End Sub
End Class

---

أنصحك أن تستبدل TextBox بــ MaskedTextBox

وخصوصاً أنني أرى انك وضعت هذا الخيار لإدخال رقم المحمول أو رقم الجوال أو رقم الخلوي ( بإختلاف اللهجات )

هذا شرح كافي ووافي لاداة ماسكيد تيكست بوكس , مدة المقطع ربع ساعه
من المهندس : أحمد الزيني جزاه الله عنا خير جزاء

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

[محمد مسافر]

شكرا بس باقي حاجه
اذا ممكن اريد التاكس بوكس لايقبل كتابه الارقام اكثر من 19 رقم ليكون مصمصاً من رقم 1-19 فقط ويحسب لي العدد في اطار هذه الارقام فقط
كذلك نسخ الارقام من ملفات اخرى الى التاكس بوكس الخاص بالفورم

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

اضغط على التيكست بوكس وعدل خاصية MaxLength

 اجعل قيمتها عدد الحروف او الارقام اللذي تريده

شوف الصوره

إقتباس :كذلك نسخ الارقام من ملفات اخرى الى التاكس بوكس الخاص بالفورم

سوالك الثاني ما قهمته ممكن توضحه اكثر

[محمد مسافر]

السلام عليكم

هل بالامكان عند زياده العدد اكثر من عدد 19 رقم وايضاً في حال عدد اقل من عدد الارقام 19 يظهر لنا اشاره اكس خطاء معناه الكود غير صحيح
وبالعكس عندما يكون عدد الارقام عدد 19 رقم يظهر لنا اشاره صح


لاان فكره البرنامج الاصل ان عدد الارقام تكون 19 رقم فقط وكنوع من التسهيل اريد علامه ظاهره تسهل العمل وشكراً.

هذي هي الفكره الاخيره للبرنامج وشكراً لتعاونكم جميعاً .

[sendbad100]

السلام عليكم

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Button1.Text = TextBox1.Text.Length
        If TextBox1.Text.Length = 19 Then
            Me.PictureBox2.Visible = True
            Me.PictureBox3.Visible = False
        Else
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = True
        End If
    End Sub 


[silverlight]

حتي لا يحدث أخطاء في التنفيذ يجب أن تضع الأتي في اعتبارك
أن المدخلات عبارة عن Integer
لكن ربما المخرجات قد تكون أحيانا عبارة عن Long
خاصة أنك تضيف رقم ثابت الي الرقم الذي يقوم المستخدم بكتابته

الأفضل لك أن تترك المستخدم يقوم بإدخال الأرقام كما يحلو له بشرط أن لا يتعدي طول String الخاص بهذه الأرقام عن 19 حرف كما تريد أنت ثم تاخذ الرقم الذي تم كتابته في التكست بوكس مهما كان طوله
و تأخذ منه عدد معين من الأرقام و تضيف علي يسارها الرقم الخاص بك
وفي النهاية تخرج برقم مسلسل للشريحة

ايضا ملاحظة أخيرة الباتون الذي يظهر عليه طول حروف الأرقام غير مفيد بالمرة و يمكنك استبداله بأي شئ اخر  و ليكن Label1 مثلا

[silverlight]

هذا حل أخر مختلف قليلا

افتح مشروع جديد و اضف الي الفورم الأتي
- باتون
- تكست بوكس
- ليبل
- ليبل


ثم اكتب الكود بالشكل التالي
أعتقد انك تستطيع تغيير الصورة ايضا بناء علي هذا الكود
الكود مكتوب بحيث يتجنب الاخطاء

PHP كود :

Public Class Form1

    Private Function TryProvideSimCardNumber(ByRef source As String, func As Func(Of String, String)) As Boolean
        While func IsNot Nothing
            Dim src As String = System.Threading.Volatile.Read(source)
            Dim dest As String = func(src)
            If src = dest Then
                Exit While
            End If
            If src = Threading.Interlocked.CompareExchange(source, dest, src) Then
                Return True
            End If
        End While
        Return False
    End Function

    Private Function TryProvideSimCardNumber(func As Func(Of String, String)) As String
        Dim source As String = Nothing
        Return TryProvideSimCardNumber(source, func)
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim func As Func(Of String, String) = Function(s)
                                                  Dim result As String = "89967"
                                                  result += s
                                                  Return result
                                              End Function

        If Me.TryProvideSimCardNumber(func) Then
            Dim s As String = TextBox1.Text
            Me.Label2.Text = func(s)
            Label1.Text = func(s).Length
        End If
    End Sub

End Class