[Sajad]

[COLOR="#800000"]السلام عليكم

والله يا اخي سؤالك غير واضح ولم افهم ما الذي تريده عذرا[/COLOR]

[خادم الدين]

وعليكم السلام

طيب

عندي لست بوكس 1 ومحتواها او عناصرها :

احمد
محمد
علي
محمود

ولست بوكس رقم 2

ahmed
mohamed
ali
mahmoud

وعندي تكست بوكس

اذا كتبت فيها قام احمد وذهب المدرسة ، يتم استبدال احمد بـ ahmed

واذا كتبت : علي ، يستبدله ب aly

يعني يستبدل عنصر لست بوكس 1 بما يقابله في لست بوكس 2

وشكرا لك

[Sajad]

ان شاءالله ساطبق على المثال الذي بينته ثم اجيبك ان شاءالله

[خادم الدين]

شكرا لاهتمامك أخي بوركت

[Sajad]

[COLOR="#A52A2A"]السلام عليكم

ان شاءالله هذا هو المطلوب

PHP كود :

Dim i As Integer
        For Each item As String In TextBox2.Text.Split(" ")
            For i = 0 To ListBox1.Items.Count - 1
                If item = ListBox1.Items(i).ToString() Then
                    TextBox2.Text = TextBox2.Text.Replace(item, ListBox2.Items(i).ToString())
                End If
            Next
        Next 


[/COLOR]

[خادم الدين]

ممتاز هذا هو المطلوب شكرا لك يا مبدع

[Sajad]

[COLOR="#A52A2A"]العفو اخي العزيز

بالتوفيق ان شاءالله[/COLOR]

[just.coder]

يمكنك استخدام هذا ايضا

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error Resume Next
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If TextBox1.Text.Contains(ListBox1.Items.Item(i)) Then
                TextBox1.Text = Replace(TextBox1.Text, ListBox1.Items.Item(i), ListBox2.Items.Item(i))
            End If
        Next
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        On Error Resume Next
        For i As Integer = 0 To ListBox2.Items.Count - 1
            If TextBox1.Text.Contains(ListBox2.Items.Item(i)) Then
                TextBox1.Text = Replace(TextBox1.Text, ListBox2.Items.Item(i), ListBox1.Items.Item(i))
            End If
        Next
    End Sub