تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الاستبدال من لست بوكس
#11
[COLOR="#800000"]السلام عليكم

والله يا اخي سؤالك غير واضح ولم افهم ما الذي تريده عذرا[/COLOR]
الرد }}}
تم الشكر بواسطة:
#12
وعليكم السلام

طيب

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

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

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

ahmed
mohamed
ali
mahmoud

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

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

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

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

وشكرا لك
الرد }}}
تم الشكر بواسطة:
#13
ان شاءالله ساطبق على المثال الذي بينته ثم اجيبك ان شاءالله
الرد }}}
تم الشكر بواسطة:
#14
شكرا لاهتمامك أخي بوركت
الرد }}}
تم الشكر بواسطة:
#15
[COLOR="#A52A2A"]السلام عليكم

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

PHP كود :
Dim i As Integer
        
For Each item As String In TextBox2.Text.Split(" ")
            For 
0 To ListBox1.Items.Count 1
                
If item ListBox1.Items(i).ToString() Then
                    TextBox2
.Text TextBox2.Text.Replace(itemListBox2.Items(i).ToString())
                
End If
            
Next
        Next 
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#16
ممتاز هذا هو المطلوب شكرا لك يا مبدع
الرد }}}
تم الشكر بواسطة:
#17
[COLOR="#A52A2A"]العفو اخي العزيز

بالتوفيق ان شاءالله[/COLOR]
الرد }}}
تم الشكر بواسطة:
#18
يمكنك استخدام هذا ايضا

كود :
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 570 14-03-23, 06:40 PM
آخر رد: عضو جديد
  [VB.NET] راديو بوتن & شيك بوكس الزويي 2 499 19-01-23, 05:25 PM
آخر رد: الزويي

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


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