تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اضافة صور الى ListView
#1
كود :
        Dim imgList As ImageList = New ImageList
            With ListView1.Items.Add("Test, imgcount)
                .SubItems.Add("Test0")
                .SubItems.Add("Test1")
   imgList.ImageSize = New Size(20, 20)
               imgList.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
               ListView1.SmallImageList = imgList
               imgList.Images.Add(imgcount, PictureBox1.Image)
               imgcount += 1
End With
المشكلة عن اضافة صورة و عنصر جديد يتم ازالة الصورة القديمة و يتم تغير صورة عنصر فقط  هل من حل ؟
الرد }}}
تم الشكر بواسطة:
#2
يا أسامة،

جرب هذا الكود، اعمل مشروع جديد وضع فيه ليست فيو وبكشربوكس وزر
PHP كود :
Public Class Form1


    
Private imgList As New ImageList With {.ImageSize = New Size(3232), .ColorDepth System.Windows.Forms.ColorDepth.Depth32Bit}


    Private 
Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        ListView1
.SmallImageList imgList

    End Sub


    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        
If Not IsNothing(PictureBox1.ImageThen
            imgList
.Images.Add(PictureBox1.Image)
        
End If

        
Dim itm As New ListViewItem("Test"imgList.Images.Count 1)
        
itm.SubItems.Add("Test0")
        
itm.SubItems.Add("Test1")
        
ListView1.Items.Add(itm)

    
End Sub


    
Private Sub PictureBox1_Click(sender As System.ObjectAs System.EventArgsHandles PictureBox1.Click

        Using op 
As New OpenFileDialog
            op
.Filter "Images (*.jpg;*.png;*.ico)|*.jpg;*.png;*.ico"
            
If op.ShowDialog Windows.Forms.DialogResult.OK Then
                PictureBox1
.Image Image.FromFile(op.FileName)
            
End If
        
End Using

    End Sub


End 
Class 
الرد }}}
تم الشكر بواسطة: أسامة , أسامة
#3
(28-06-16, 06:39 AM)الوادي كتب : يا أسامة،

جرب هذا الكود، اعمل مشروع جديد وضع فيه ليست فيو وبكشربوكس وزر
PHP كود :
Public Class Form1


    Private imgList 
As New ImageList With {.ImageSize = New Size(3232), .ColorDepth System.Windows.Forms.ColorDepth.Depth32Bit}


 
   Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        ListView1
.SmallImageList imgList

    End Sub


    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        If Not IsNothing
(PictureBox1.ImageThen
            imgList
.Images.Add(PictureBox1.Image)
 
       End If

 
       Dim itm As New ListViewItem("Test"imgList.Images.Count 1)
 
       itm.SubItems.Add("Test0")
 
       itm.SubItems.Add("Test1")
 
       ListView1.Items.Add(itm)

 
   End Sub


    Private Sub PictureBox1_Click
(sender As System.ObjectAs System.EventArgsHandles PictureBox1.Click

        Using op 
As New OpenFileDialog
            op
.Filter "Images (*.jpg;*.png;*.ico)|*.jpg;*.png;*.ico"
 
           If op.ShowDialog Windows.Forms.DialogResult.OK Then
                PictureBox1
.Image Image.FromFile(op.FileName)
 
           End If
 
       End Using

    End Sub


End 
Class 
جزاك الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة فى listview malekmohamed155 1 211 19-01-24, 06:19 PM
آخر رد: malekmohamed155
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 696 26-07-23, 05:47 AM
آخر رد: Taha Okla
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  مشكلة فى اضافة عناصر فى الداتا جريد فيو خالد كامل1 14 1,616 16-02-23, 03:10 AM
آخر رد: خالد كامل1
  د عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW HASNI14 8 883 02-02-23, 06:51 PM
آخر رد: trakktour
  كيفية تشغيل هذا الرابط على ListView crazykinko 2 661 22-12-22, 12:12 PM
آخر رد: crazykinko

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


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