تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة الكود الاتي - سهل-
#1
السلام عليكم اخواني ارغب بحل لهذا الكود 
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.UpAndAlso ListBox1.SelectedItem.Contains(sThen

                ListBox1
.SelectedIndex ListBox1.SelectedIndex 1

            
Else

                If String.IsNullOrEmpty(SearchDirectionHint.UpAndAlso ListBox1.SelectedItem.Contains(A8Then
                    ListBox1
.SelectedIndex ListBox1.SelectedIndex 1
                
Else
                    If String.IsNullOrEmpty(SearchDirectionHint.UpAndAlso ListBox1.SelectedItem.Contains(A7Then
                        ListBox1
.SelectedIndex ListBox1.SelectedIndex 1
                    
Else
                        If String.IsNullOrEmpty(SearchDirectionHint.UpAndAlso ListBox1.SelectedItem.Contains(A13Then
                            ListBox1
.SelectedIndex ListBox1.SelectedIndex 1
                        
Else
                            If String.IsNullOrEmpty(SearchDirectionHint.UpAndAlso ListBox1.SelectedItem.Contains(A9Then
                                ListBox1
.SelectedIndex ListBox1.SelectedIndex 1
                            
Else

                                If String.IsNullOrEmpty(SearchDirectionHint.UpAndAlso ListBox1.SelectedItem.Contains(A5Then
                                    ListBox1
.SelectedIndex ListBox1.SelectedIndex 1
                                
Else

                                    If String.IsNullOrEmpty(SearchDirectionHint.UpAndAlso ListBox1.SelectedItem.Contains(A11Then
                                        ListBox1
.SelectedIndex ListBox1.SelectedIndex 1
                                    End 
If

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

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

اتمنى اني اكون وصلتلك الي ببالي  Heart Heart
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











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

If 
arr.Contains(ListBox1.TextThen

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

End If 
الرد }}}}
تم الشكر بواسطة: CLARO
#3
اشكرك يا غالي تم حل المشكلة
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 56 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 72 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 268 27-11-16, 10:30 AM
آخر رد: adel27
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 97 22-11-16, 02:38 PM
آخر رد: thevirus
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 186 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 52 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 199 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مشكلة في كود البحث khalid475 14 221 11-11-16, 07:52 PM
آخر رد: khalid475
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 98 10-11-16, 06:25 PM
آخر رد: أبو عمر

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


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