تقييم الموضوع :
  • 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 
جزاك الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 58 اليوم, 12:14 AM
آخر رد: 3asfa~mdmra
  اضافة صور فى subitem Mohamed20 2 86 أمس, 11:05 AM
آخر رد: مساعدة
  كود الجمع التلقائي فى listview riad21 1 56 17-01-17, 10:51 PM
آخر رد: مساعدة
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 68 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  كيف يمكن جعل ListView تظهر فيها الملفات CLARO 1 57 22-12-16, 06:11 PM
آخر رد: silverlight
  [VB.NET] استفسار عن اضافة عبدالرحمن المكاوي 8 211 20-12-16, 06:48 PM
آخر رد: zinom
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 5 174 17-12-16, 07:52 PM
آخر رد: محمد كريّم
  اضافة كود الباركود في الطباعة hglogtd 3 123 16-12-16, 06:38 PM
آخر رد: hglogtd
  اضافة تاريخ عبدالرحمن المكاوي 1 95 13-12-16, 08:28 PM
آخر رد: عبدالرحمن المكاوي
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 109 09-12-16, 03:36 AM
آخر رد: elhon.tec

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


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