[بنت الشام]

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

[baha]

السلام عليكم

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 


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

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

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

[Anas Mahmoud]

اضافة :

كود :

       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()