(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 


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

(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 


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

(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)