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

الصفحات : 1 2 3

بوركت اخي اعزيز sooriaty03
الف شكر فتح الله عليك كمان وكمان شرح واضح

انا عندي نفس مشكه مدري وش اسوي تعبت والله كل مركب البرنامج ع جهاز القى نص الادوات مختفيه وداخله ف شاشه

ونص برنامج طالع ونصه مختفي

قسم تعبت ممكن مساعده لو بكود

او طريقه

للحصول على ما تريد
اتبع الخطوات التالية
1- لابد من وجود قائمتين قائمة للقيم التى تريد فحصها و قائمة أخرى للقيم بعد التنقية
انت لديك الأولى فى الليست بوكس listbox1 لذلك سنتقوم بانشاء لست أخرى

كود :

   Private Filtered_List As New List(Of String)

الان سنحتاج الى كود للتحقق من وجود القيمة المطلوب فحصها فى القيم التى تم تنقيتها

كود :

   Private Function Check_String(str As String) As Boolean

        For Each item As String In Filtered_List

            If item.Substring(0, 19) = str.Substring(0, 19) _

                AndAlso item.Substring(25, 4) = str.Substring(25, 4) _

                AndAlso item.Substring(33, 5) = str.Substring(33, 5) Then

                Return True

            End If

        Next

        Return False

    End Function

الأن سنتقوم بالمرور على القيم بالليست الأولى و فحصها واحدة تلو الاخرى باستخدام الدالة السابقة

كود :

       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Itm As String = ""

        For I = 0 To ListBox1.Items.Count - 1

            Itm = ListBox1.Items(I).ToString

            If Not Check_String(Itm) Then Filtered_List.Add(Itm)

        Next

        ListBox1.Items.Clear()

        ListBox1.Items.AddRange(Filtered_List.ToArray)

    End Sub

بعد تنفيذ الكود ستحصل على القيم غير المكررة فى الليست بوكس

بالتوفيق للجميع

=================================================================================================
للاسف لم أرى كود الاخ sooriaty03 الا الان
و فكرته رائعة جدا و بسيطة

الصفحات : 1 2 3

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

aftfm

Narutogoo

mrnooo2000