منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] اضافة صور الى ListView - نسخة قابلة للطباعة

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



اضافة صور الى ListView - أسامة - 28-06-16

كود :
        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
المشكلة عن اضافة صورة و عنصر جديد يتم ازالة الصورة القديمة و يتم تغير صورة عنصر فقط  هل من حل ؟


RE: اضافة صور الى ListView - الوادي - 28-06-16

يا أسامة،

جرب هذا الكود، اعمل مشروع جديد وضع فيه ليست فيو وبكشربوكس وزر
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 



RE: اضافة صور الى ListView - أسامة - 28-06-16

(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 
جزاك الله خير