تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الاستبدال من لست بوكس
#1
عندى تكست بوكس

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

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

يعني عند الكتابة في التكست بوكس اذا وجد اول خيار في اللست بوكس 1 يستبدله بأول خيار في اللست بوكس 2
الرد }}}}
تم الشكر بواسطة:
#2
؟؟ .....................
الرد }}}}
تم الشكر بواسطة:
#3
نحمده ونصلي على رسوله الكريم

انظر لهذا الموضوع.
الرد }}}}
تم الشكر بواسطة:
#4
جرب هذا الكود
كود :
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
الرد }}}}
تم الشكر بواسطة:
#5
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
الرد }}}}
تم الشكر بواسطة:
#6
كود :
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

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

وهذه الطريقة يتم استبدال آخر قيمة فقط وليس كل القيم
الرد }}}}
تم الشكر بواسطة:
#7
[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]
الرد }}}}
تم الشكر بواسطة:
#8
وعليكم السلام يا اخي ، اريد استبدال جميع العناصر

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

وهكذا

ليس اول عنصر فقط
الرد }}}}
تم الشكر بواسطة:
#9
[COLOR="#A52A2A"]السلام عليكم

تفضل

PHP كود :
Dim i As Integer
        
For 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]
الرد }}}}
تم الشكر بواسطة:
#10
لا اريد هذا

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

ويستبدل B بـ b

لا اريد استبدال الكل ومساواة لست بوكس 1 ب لست بوكس 2
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 1 47 أمس, 06:31 PM
آخر رد: ابراهيم النعيمي
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 86 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 224 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 60 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,395 30-11-16, 10:16 PM
آخر رد: omferas
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 72 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 77 19-11-16, 02:19 AM
آخر رد: hglogtd
  كيف اربط ثلاثة كومبو بوكس abanoub saeed nabil 6 185 13-11-16, 11:23 PM
آخر رد: هاوي1995
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 113 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
Big Grin [VB.NET] الكنترولز في التول بوكس مش متفعلة Asmaa adel 0 44 30-10-16, 09:47 AM
آخر رد: Asmaa adel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم