[محمد]

اريض اضافه file فى listbox اذا كان هذا الملف موجود مسبقن فى listbox لا يتم اضافته
جربت هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        If ListBox1.Items.Add(OpenFileDialog1.FileName) Then
            MsgBox("خطاء")

        Else
            ListBox1.Items.Add(OpenFileDialog1.FileName)
        End If
    End Sub

[RainBow]

محمد كتب :اريض اضافه file فى listbox اذا كان هذا الملف موجود مسبقن فى listbox لا يتم اضافته
جربت هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        If ListBox1.Items.Add(OpenFileDialog1.FileName) Then
            MsgBox("خطاء")

        Else
            ListBox1.Items.Add(OpenFileDialog1.FileName)
        End If
    End Sub

كود :

If Listbox1.Items.Contains(OpenFileDialog1.FileName) Then
            MsgBox("Cannot add the File " & OpenFileDialog1.FileName, MsgBoxStyle.Information)
        Else
            Listbox1.Items.Add(OpenFileDialog1.FileName)

[just.coder]

كود :

Dim s As String = "0"
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items.Item(i) = OpenFileDialog1.FileName Then
                s = "1"
            End If
        Next
        If s = "0" Then
            ListBox1.Items.Add(OpenFileDialog1.FileName)
        Else
            MsgBox(OpenFileDialog1.FileName & "موجود مسبقا لايمكن اضفاتو", MsgBoxStyle.Critical)
        End If

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته





وهذه طريقة أخرى لاختيار مجموعة ملفات دفعة واحدة

PHP كود :

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

        Dim ofd As New OpenFileDialog
        ofd.Title = "إختيار ملفات"
        
        ofd.Multiselect = True
        
        ofd.Filter = "All files (*.*)|*.* | Images (*.jpg;*.bmp;*.png;*.gif;*.tiff)|*.jpg;*.jpeg;*.bmp;*.png;*.gif;*.tif;*.tiff"
        ofd.FilterIndex = 2

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then

            For Each f As String In ofd.FileNames
                If Not Me.ListBox1.Items.Contains(f) Then
                    Me.ListBox1.Items.Add(f)
                End If
            Next

        End If

    End Sub 


السلام عليكم ورحمة الله وبركاته