منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حل مشكلة الكود الاتي

السلام عليكم اخواني ارغب بحل لهذا الكود

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 

هذا الكود بكل بساطة اذا كان النص الموجود في ليست بوكس = نص موجود في التيكست بوكس 1 اليست بوكس ينتقل الى الitems الي بعده واذا النص لم يكون موجود باليست بوكس واحد البرنامج بشوف اذا كان النص الي موجود باليست بوكس 2 هو مساوي للitems المحدد في اليست بوكس

اذا فهمت فانا ارغب بتصحيح الكود او ارغب بكود مشابه له يقوم بنفس العملية
بحيث يكون عندي 7 تيكست بوكس و اذا توافق احد النصوص الموجودة في احدى التيكست بوكس مع الخيار المحدد في اليست بوكس ينتقل الى الitems الي بعده

اتمنى اني اكون وصلتلك الي ببالي Heart

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

Dim arr() As String = {A8, A7, A13, A9, A5, A11, s}

If arr.Contains(ListBox1.Text) Then

    If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1
    End If

End If 

اشكرك يا غالي تم حل المشكلة

الموضوع بعيد عن الموضوع هههههه
بس مقدرتش اراسلك خاص
راجع الموضوع
http://vb4arb.com/vb/thread-744-page-3.html

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

CLARO

amgad525

CLARO

ali.alfoly