منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

تم كتابه 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 رقم فقط وكنوع من التسهيل اريد علامه ظاهره تسهل العمل وشكراً.

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

السلام عليكم

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 

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

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

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

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

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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد مسافر

سعود الشامان

محمد مسافر

سعود الشامان

محمد مسافر

sendbad100

silverlight

silverlight