الاستبدال من لست بوكس - نسخة قابلة للطباعة

الاستبدال من لست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

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

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

اريد استبدال (اول خيار في لست بوكس 1) بـ (اول خيار في لست بوكس 2)

وهكذا بالترتيب

يعني عند الكتابة في التكست بوكس اذا وجد اول خيار في اللست بوكس 1 يستبدله بأول خيار في اللست بوكس 2

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

؟؟ .....................

الاستبدال من لست بوكس - ربيع - 03-03-13

نحمده ونصلي على رسوله الكريم

انظر لهذا الموضوع.

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

جرب هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        i = ListBox1.SelectedItems.Count - 1

        Do While i >= 0

            ListBox2.Items.Add(ListBox1.SelectedItems.Item(i))

            ListBox1.Items.Remove(ListBox1.SelectedItems.Item(i))

            ListBox1.Items.Add(ListBox2.SelectedItems.Item(i))

            ListBox2.Items.Remove(ListBox2.SelectedItems.Item(i))

            i = i - 1

        Loop

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListBox1.SelectedIndex = 1

        ListBox2.SelectedIndex = 1

    End Sub

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

RainBow كتب :جرب هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = ListBox1.SelectedItems.Count - 1 Do While i >= 0 ListBox2.Items.Add(ListBox1.SelectedItems.Item(i)) ListBox1.Items.Remove(ListBox1.SelectedItems.Item(i)) ListBox1.Items.Add(ListBox2.SelectedItems.Item(i)) ListBox2.Items.Remove(ListBox2.SelectedItems.Item(i)) i = i - 1 Loop End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.SelectedIndex = 1 ListBox2.SelectedIndex = 1 End Sub

و يمكنك ان تضع رقم الايتم التى تريد تبديله

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        i = ListBox1.SelectedItems.Count - 1

        Do While i >= 0

            ListBox2.Items.Add(ListBox1.SelectedItems.Item(i))

            ListBox1.Items.Remove(ListBox1.SelectedItems.Item(i))

            ListBox1.Items.Add(ListBox2.SelectedItems.Item(i))

            ListBox2.Items.Remove(ListBox2.SelectedItems.Item(i))

            ListBox1.SelectedIndex = TextBox1.Text

            ListBox2.SelectedIndex = TextBox1.Text

            i = i - 1

        Loop

    End Sub

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

كود :

For I = 0 To ListBox1.Items.Count - 1

            For j = 0 To ListBox2.Items.Count - 1

                TextBox2.Text = TextBox3.Text.Replace(ListBox1.Items(I), ListBox2.Items(j))

            Next

        Next

جربت كل الطرق ولا طريقة نجحت

وهذه الطريقة يتم استبدال آخر قيمة فقط وليس كل القيم

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

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

تفضل هذا الكود يقوم باستبدال اول عنصر من listbox1 بـ اول عنصر من listbox2 في حال تساوي العنصر الاول مع الtextbox

PHP كود :

If (TextBox1.Text.ToUpper().Trim() = ListBox1.Items(0).ToString().ToUpper().Trim()) Then
            ListBox2.Items(0) = TextBox1.Text
        End If 

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

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

وعليكم السلام يا اخي ، اريد استبدال جميع العناصر

استبدال الاول بالاول والثاني بالثاني

وهكذا

ليس اول عنصر فقط

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

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

تفضل

PHP كود :

Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            If (TextBox1.Text.ToUpper().Trim() = ListBox1.Items(0).ToString().ToUpper().Trim()) Then
                ListBox2.Items(i) = ListBox1.Items(i)
            End If
        Next 

الكود اعلاه يقوم باستبدال جميع العناصر في حال تساوي العنصر الاول من الlistbox1 بالtextbox

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

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

لا اريد هذا

انا اريد إن وجد في تكست بوكس 1 قيمة اللست بوكس 1 وهي A يستبدلها بقيمة لست بوكس 2 وهي a

ويستبدل B بـ b

لا اريد استبدال الكل ومساواة لست بوكس 1 ب لست بوكس 2