[أبووسم]

السلام عليكم

عندي رقم مكون من 5 خانات مثال 12345
أريد ان يتم تحويل الارقام كل منها على تكست بوكس منفصل

المثال في المرفقات وشكرا للجميع

[asmarsou]

تفضل

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        T5.Text = TextBox1.Text.Substring(0, 1)
        T4.Text = TextBox1.Text.Substring(1, 1)
        T3.Text = TextBox1.Text.Substring(2, 1)
        T2.Text = TextBox1.Text.Substring(3, 1)
        T1.Text = TextBox1.Text.Substring(4, 1)
    End Sub 


[أبووسم]

الف شكر لكم جميعاً

جزاكم الله خير

[أبووسم]

(13-11-23, 02:14 PM)asmarsou كتب : تفضل

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        T5.Text = TextBox1.Text.Substring(0, 1)
        T4.Text = TextBox1.Text.Substring(1, 1)
        T3.Text = TextBox1.Text.Substring(2, 1)
        T2.Text = TextBox1.Text.Substring(3, 1)
        T1.Text = TextBox1.Text.Substring(4, 1)
    End Sub 


طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس

نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح

[Taha Okla]

(14-11-23, 01:22 AM)أبووسم كتب : طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس

نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح

نفس الكود السابق بيمشي مع النصوص ومع الارقام.
وكذلك الكود التالي : 

كود :

TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
TextBox6.Text = TextBox1.Text(4)

وكذلك الكود التالي :

كود :

TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)
TextBox5.Text = Mid(TextBox1.Text, 4, 1)
TextBox6.Text = Mid(TextBox1.Text, 5, 1)

[أبووسم]

(14-11-23, 03:16 AM)Taha Okla كتب :

(14-11-23, 01:22 AM)أبووسم كتب : طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس

نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح

نفس الكود السابق بيمشي مع النصوص ومع الارقام.
وكذلك الكود التالي : 

كود :

TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
TextBox6.Text = TextBox1.Text(4)

وكذلك الكود التالي :

كود :

TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)
TextBox5.Text = Mid(TextBox1.Text, 4, 1)
TextBox6.Text = Mid(TextBox1.Text, 5, 1)

اشكرك على الرد
للأسف الكود يقسم كل حرف لوحده و المطلوب ينقل الأسم كامل
المطلوب إذا كان الاسم( محمد بن أحمد سليمان )

يتم تقسيم كل أسم لوحده مثل محمد / أحمد / سليمان

[تركي الحلواني]

PHP كود :

Dim inputString As String = TextBox1.Text
        Dim words() As String = inputString.Split(" "c)

        For Each word As String In words
            MsgBox(word)
        Next 


[أبووسم]

(14-11-23, 01:54 PM)تركي الحلواني كتب :

PHP كود :

Dim inputString As String = TextBox1.Text
        Dim words() As String = inputString.Split(" "c)

        For Each word As String In words
            MsgBox(word)
        Next 


الكود ناقص لم يعمل معي

[تركي الحلواني]

(14-11-23, 07:06 PM)أبووسم كتب :

(14-11-23, 01:54 PM)تركي الحلواني كتب :

PHP كود :

Dim inputString As String = TextBox1.Text
        Dim words() As String = inputString.Split(" "c)

        For Each word As String In words
            MsgBox(word)
        Next 


الكود ناقص لم يعمل معي

قمت بإعطائك الفكرة كي تقوم بتطبيقها على مشروعك لو كان من 5 نصوص او اكثر او اقل

[أبووسم]

(14-11-23, 03:16 AM)Taha Okla كتب :

(14-11-23, 01:22 AM)أبووسم كتب : طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس

نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح

نفس الكود السابق بيمشي مع النصوص ومع الارقام.
وكذلك الكود التالي : 

كود :

TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
TextBox6.Text = TextBox1.Text(4)

وكذلك الكود التالي :

كود :

TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)
TextBox5.Text = Mid(TextBox1.Text, 4, 1)
TextBox6.Text = Mid(TextBox1.Text, 5, 1)

الكود يمشي مع عدد الحروف فقط قام بتقسم كلمة محمود إلى ( م ح م و د)
أريد تقسم الأسم كامل لوحدة مثل ( محمود أحمد يوسف ) كل أسم في تكست لوحده