منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اضافه item الى listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافه item الى listbox (/showthread.php?tid=7919)

اضافه item الى listbox - محمد - 12-03-13

اريض اضافه 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


اضافه item الى listbox - RainBow - 12-03-13

محمد كتب :اريض اضافه 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)


اضافه item الى listbox - just.coder - 12-03-13

كود :
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


اضافه item الى listbox - @@أبورائد@@ - 12-03-13


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





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

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 






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