04-03-13, 06:29 PM
الصفحات : 1 2
04-03-13, 06:38 PM
وعليكم السلام
طيب
عندي لست بوكس 1 ومحتواها او عناصرها :
احمد
محمد
علي
محمود
ولست بوكس رقم 2
ahmed
mohamed
ali
mahmoud
وعندي تكست بوكس
اذا كتبت فيها قام احمد وذهب المدرسة ، يتم استبدال احمد بـ ahmed
واذا كتبت : علي ، يستبدله ب aly
يعني يستبدل عنصر لست بوكس 1 بما يقابله في لست بوكس 2
وشكرا لك
طيب
عندي لست بوكس 1 ومحتواها او عناصرها :
احمد
محمد
علي
محمود
ولست بوكس رقم 2
ahmed
mohamed
ali
mahmoud
وعندي تكست بوكس
اذا كتبت فيها قام احمد وذهب المدرسة ، يتم استبدال احمد بـ ahmed
واذا كتبت : علي ، يستبدله ب aly
يعني يستبدل عنصر لست بوكس 1 بما يقابله في لست بوكس 2
وشكرا لك
04-03-13, 06:41 PM
ان شاءالله ساطبق على المثال الذي بينته ثم اجيبك ان شاءالله
04-03-13, 06:43 PM
شكرا لاهتمامك أخي بوركت
04-03-13, 06:59 PM
[COLOR="#A52A2A"]السلام عليكم
ان شاءالله هذا هو المطلوب
[/COLOR]
ان شاءالله هذا هو المطلوب
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
04-03-13, 07:23 PM
ممتاز هذا هو المطلوب شكرا لك يا مبدع
04-03-13, 07:33 PM
[COLOR="#A52A2A"]العفو اخي العزيز
بالتوفيق ان شاءالله[/COLOR]
بالتوفيق ان شاءالله[/COLOR]
12-03-13, 10:07 AM
يمكنك استخدام هذا ايضا
كود :
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الصفحات : 1 2