[Mohamed20]

(10-02-18, 04:34 PM)محمود صالح كتب : استخدم دالة القطع اخر رقمين او كما تريد

PHP كود :

TextBox1.Text = LSet(TextBox2.Text, 2) 


غير رقم 2 الى ما تريد

ثم نفذ اكوادك على هذين الرقمين سواء اكبر او اصغر

جزاك الله خير لاكن لم تعمل هذا الكود الذى اجرب علية

كود :

       Dim li As ListViewItem
       For Each li In ListView1.Items
           If li.Text = 'checkvalue Then
               MsgBox(0)
           End If
       Next

الذى احتاجة هو 2134791 هذه قيمة داخل listview وهذه القمة التي يتم التحقق منها 2134792 مثلآ اذا كان li.Text = 213479 يتم التحقق من اخر رقم 2 هل هو اكبر من 1 او اصغر من ال 1

مثل هذا

كود :

     Dim li As ListViewItem
        For Each li In ListView1.Items
            If li.Text.Substring(0, 6) = TextBox1.Text.Substring(0, 6) Then
                If TextBox1.Text.Substring(6, 1) >= li.Text.Substring(6, 1) Then
                    MsgBox("Founded")
                    Exit For
                End If
            End If
        Next

هذا الكود يعمل لاكن هل توجد طريقة افضل ؟