المشاركات : 47
المواضيع 12
الإنتساب : Jul 2015
السمعة :
2
الشكر: 0
تم شكره 474 مرات في 16 مشاركات
كود بسيط للتحكم فى محتويات التيكست بوكس
بحيث يكون عدد 4 ارقام او حروف فى التكست فقط ثم الانتقال تلقائى الى التيكست التالى
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If Len(TextBox1.Text) >= 4 Then
Dim s() As String = (Me.TextBox1.Text.Trim).Split
TextBox1.Text = s(s.Length - 1)(0) & s(s.Length - 1)(1) & s(s.Length - 1)(2) & s(s.Length - 1)(3)
TextBox2.Select()
End If
End Sub
المشاركات : 1
المواضيع 0
الإنتساب : Jan 2016
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ممكن شرح الكود
Dim s() As String = (Me.TextBox1.Text.Trim).Split
TextBox1.Text = s(s.Length - 1)(0) & s(s.Length - 1)(1) & s(s.Length - 1)(2) & s(s.Length - 1)(3
وما هي اهميته
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
27-01-16, 03:46 AM
(آخر تعديل لهذه المشاركة : 27-01-16, 03:48 AM {2} بواسطة ناجي إبراهيم.)
السلام عليكم...
المعذرة على التدخل، و لكن لا تحتاج إلى كل ذلك الكود.
فتحديد الحد الأقصى لطول الإدخال في مريع النص لا يحتاج إلى كود، و إنما فقط ضبط الخاصية MaxLength على الحد الذي تريده (4 في هذا المثال).
أما الانتقال إلى المكون أو العنصر التالي في النافذة فمن الأفضل عدم تحديده بالاسم لأن ترتيب المكونات قد يتغير أثناء التصميم فتضطر إلى تغيير الكود.
مع ضبط الخاصية MaxLength على الحد الذي تريده، كل ما تحتاج إليه هو سطر واحد:
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Length = TextBox1.MaxLength Then Me.SelectNextControl(TextBox1, True, True, True, True)
End Sub
* لاحظ أيضاً أن هذا الكود سيعمل دون تعديل إذا قمت بتغيير قيمة الخاصية MaxLength إلى أي قيمة أخرى غير الـ 4.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 351
المواضيع 48
الإنتساب : Oct 2012
السمعة :
16
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
موضوع رائع شكراً اخي walkady
و الشكر موصول للأخ ناجي إبراهيم
بارك الله فيكم