تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة: CLARO


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة المسارات Fantastico 1 44 منذ 8 ساعة مضت
آخر رد: Master Hacker
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 86 أمس, 12:28 PM
آخر رد: ssayed111
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 73 22-02-17, 02:50 AM
آخر رد: مساعدة
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 56 21-02-17, 10:58 AM
آخر رد: boofa2015
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 59 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 60 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة في حدف صورة من مسار بمجلد بالكمبيوتر ناصر شير 6 116 18-02-17, 02:37 PM
آخر رد: ناصر شير
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 144 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 80 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  [كود] حل مشكلة في كود عبدالرحمن المكاوي 12 197 16-02-17, 12:30 AM
آخر رد: مساعدة

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


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