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

ارجو منكم المساعدة في المشروع في المرفقات مع الشرح

السلام عليكم

PHP كود :

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'كود عدم التكرار
        For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(i) = ComboBox1.SelectedItem Then
                Exit Sub
            End If
        Next
        '//////////////////

        'الاضافة
        ListBox1.Items.Add(ComboBox1.SelectedItem)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'clear items
        ListBox1.Items.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'التحقق من الاختيار ومسح المحدد
        If ListBox1.SelectedIndex > -1 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        End If
    End Sub
End Class 

أتمنى وضع السؤال كتابة في المنتدى بدل من المشروع وأيضا الرجاء البحث قبل طلب السؤال

هذه الأكواد موجودة على الانترنت مجرد بحث فقط

تمنياتي لك وللجميع التوفيق

اضافة :

كود :

       Dim AddedItem As String = ComboBox1.SelectedItem

        If AddedItem Is Nothing Then Return

        ListBox1.Items.Add(AddedItem)

مسح المحدد :

كود :

       Dim RemovedItem = ListBox1.SelectedItem

        If RemovedItem Is Nothing Then Return

        ListBox1.Items.Remove(RemovedItem)

مسح الكل :

كود :

       ListBox1.Items.Clear()

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

بنت الشام

baha

Anas Mahmoud