عندى تكست بوكس
اريد استبدال (اول خيار في لست بوكس 1) بـ (اول خيار في لست بوكس 2)
وهكذا بالترتيب
يعني عند الكتابة في التكست بوكس اذا وجد اول خيار في اللست بوكس 1 يستبدله بأول خيار في اللست بوكس 2
نحمده ونصلي على رسوله الكريم
انظر لهذا
الموضوع.
جرب هذا الكود
كود :
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 كتب :جرب هذا الكود
كود :
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
كود :
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
جربت كل الطرق ولا طريقة نجحت
وهذه الطريقة يتم استبدال آخر قيمة فقط وليس كل القيم
[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]
وعليكم السلام يا اخي ، اريد استبدال جميع العناصر
استبدال الاول بالاول والثاني بالثاني
وهكذا
ليس اول عنصر فقط
[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]
لا اريد هذا
انا اريد إن وجد في تكست بوكس 1 قيمة اللست بوكس 1 وهي A يستبدلها بقيمة لست بوكس 2 وهي a
ويستبدل B بـ b
لا اريد استبدال الكل ومساواة لست بوكس 1 ب لست بوكس 2