منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الاستبدال من لست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الاستبدال من لست بوكس (/showthread.php?tid=7796)

الصفحات: 1 2

الاستبدال من لست بوكس - Sajad - 04-03-13

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

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

الاستبدال من لست بوكس - خادم الدين - 04-03-13

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

طيب

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

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

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

ahmed
mohamed
ali
mahmoud

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

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

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

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

وشكرا لك

الاستبدال من لست بوكس - Sajad - 04-03-13

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

الاستبدال من لست بوكس - خادم الدين - 04-03-13

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

الاستبدال من لست بوكس - Sajad - 04-03-13

[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]

الاستبدال من لست بوكس - خادم الدين - 04-03-13

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

الاستبدال من لست بوكس - Sajad - 04-03-13

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

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

الاستبدال من لست بوكس - just.coder - 12-03-13

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

كود :
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