[أسامة]

كود :

        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

المشكلة عن اضافة صورة و عنصر جديد يتم ازالة الصورة القديمة و يتم تغير صورة عنصر فقط  هل من حل ؟

[الوادي]

يا أسامة،

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

PHP كود :

Public Class Form1


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


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListView1.SmallImageList = imgList

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If Not IsNothing(PictureBox1.Image) Then
            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.Object, e As System.EventArgs) Handles 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 


[أسامة]

(28-06-16, 06:39 AM)الوادي كتب : يا أسامة،

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

PHP كود :

Public Class Form1


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


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListView1.SmallImageList = imgList

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If Not IsNothing(PictureBox1.Image) Then
            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.Object, e As System.EventArgs) Handles 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 


جزاك الله خير