ماهو كود مسح جميع الحقول في هذا البرنامج (مرفق صورة) ..؟

طب بالله عليك انا هبرمج لصورة، فين الكود اللى انت عامله علشان اعدل لك عليه ؟؟؟

ياريت المره القادمه يبقى "مرفق كود" بدلا من "مرفق صوره" :sleep:

و الله ولى التوفيق

تفضل اخى

هذا هو الكود الذى يمسح كل شئ على الفورم

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

        Dim x As Control
        For Each x In Me.Controls
            If TypeOf x Is TextBox Then

                x.Text = Nothing

            End If
        Next
        ListBox1.Items.Clear()

    End Sub

وهذا هو الكود الخاص باكثر العناصر تكرار فى القائمة

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x, y, c As Object
        Dim a, b As Integer

        For Each x In ListBox1.Items
            For Each y In ListBox1.Items
                If x = y Then
                    a += 1
                End If
            Next
            If a > b Then
                b = a

                c = x
            End If
            a = 0
        Next
        MessageBox.Show(c.ToString & "  is the most repeated item, it is repeated " & b & " times")
    End Sub

واى استفسار انا موجود ان شاء الله

MrProgrammer كتب:

وهذا هو الكود الخاص باكثر العناصر تكرار فى القائمة

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x, y, c As Object
        Dim a, b As Integer

        For Each x In ListBox1.Items
            For Each y In ListBox1.Items
                If x = y Then
                    a += 1
                End If
            Next
            If a > b Then
                b = a

                c = x
            End If
            a = 0
        Next
        MessageBox.Show(c.ToString & "  is the most repeated item, it is repeated " & b & " times")
    End Sub

ملاحظة صغيرة ...

أضف بعد انتهاء الحلقتين شرط التحقق من مساواة b للقيمة 1 (حالة عدم وجود عناصر مكررة) ...

لتفادي طباعة البرنامج للقيمة الاولى في الليست (غير المكررة)

بالتوفيق :)