02-12-16, 11:59 AM
السلام عليكم اخواني ارغب بحل لهذا الكود
هذا الكود بكل بساطة اذا كان النص الموجود في ليست بوكس = نص موجود في التيكست بوكس 1 اليست بوكس ينتقل الى الitems الي بعده واذا النص لم يكون موجود باليست بوكس واحد البرنامج بشوف اذا كان النص الي موجود باليست بوكس 2 هو مساوي للitems المحدد في اليست بوكس
اذا فهمت فانا ارغب بتصحيح الكود او ارغب بكود مشابه له يقوم بنفس العملية
بحيث يكون عندي 7 تيكست بوكس و اذا توافق احد النصوص الموجودة في احدى التيكست بوكس مع الخيار المحدد في اليست بوكس ينتقل الى الitems الي بعده
اتمنى اني اكون وصلتلك الي ببالي
PHP كود :
Dim A8 As String = TextBox5.Text
Dim A7 As String = TextBox8.Text
Dim A13 As String = TextBox6.Text
Dim A9 As String = TextBox7.Text
Dim A5 As String = TextBox13.Text
Dim A11 As String = TextBox9.Text
Dim s As String = TextBox4.Text
If Not String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(s) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A8) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A7) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A13) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A9) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A5) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else
If String.IsNullOrEmpty(SearchDirectionHint.Up) AndAlso ListBox1.SelectedItem.Contains(A11) Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
End If
End If
End If
اذا فهمت فانا ارغب بتصحيح الكود او ارغب بكود مشابه له يقوم بنفس العملية
بحيث يكون عندي 7 تيكست بوكس و اذا توافق احد النصوص الموجودة في احدى التيكست بوكس مع الخيار المحدد في اليست بوكس ينتقل الى الitems الي بعده
اتمنى اني اكون وصلتلك الي ببالي
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) ..