تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافه item الى listbox
#1
اريض اضافه 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
الرد }}}}
تم الشكر بواسطة:
#2
محمد كتب :اريض اضافه 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)
الرد }}}}
تم الشكر بواسطة:
#3
كود :
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
الرد }}}}
تم الشكر بواسطة:
#4

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





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

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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(fThen
                    Me
.ListBox1.Items.Add(f)
                
End If
            
Next

        End 
If

    
End Sub 






السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة صغيرة فى كتابة item الى xml Mohamed20 2 74 11-02-17, 01:27 AM
آخر رد: Mohamed20
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 189 11-02-17, 12:56 AM
آخر رد: hassan
  Random من listbox Mohamed20 9 140 01-02-17, 01:18 AM
آخر رد: Mohamed20
  [VB.NET] total number listbox +8 3asfa~mdmra 2 72 31-01-17, 07:54 PM
آخر رد: 3asfa~mdmra
  اريد select check item --- alwasela 4 80 31-01-17, 02:08 AM
آخر رد: محمد كريّم
  البحث قى listbox Mohamed20 1 71 27-01-17, 07:12 AM
آخر رد: مساعدة
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 2 76 25-01-17, 04:06 PM
آخر رد: riad21
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 205 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [سؤال] كود ListBox naden 2 125 28-12-16, 02:09 AM
آخر رد: naden
  [VB.NET] كيف اجعل صف في listbox ملون 3asfa~mdmra 1 156 26-11-16, 01:00 PM
آخر رد: silverlight

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم