تقييم الموضوع :
  • 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] كيفية اضافة change password بدون استخدام الكنترول ؟ ahmednab 1 302 أمس, 06:57 PM
آخر رد: النسر79
  اضافة استعلامات جديدة rabeh.ram 10 184 22-05-17, 03:59 AM
آخر رد: rabeh.ram
  اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل khaled12345 9 227 18-05-17, 12:34 AM
آخر رد: khaled12345
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 89 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  كيفية اضافة ملف صوتى الى برنامجى OakenShield 2 73 25-04-17, 02:33 PM
آخر رد: tarek
  طلب مساعدة في اضافة save & restore trakktour 10 469 22-04-17, 06:00 PM
آخر رد: sambro
  ,اضافة تكست للريبورت alma_fandi 6 176 22-04-17, 05:59 PM
آخر رد: alma_fandi
Photo [سؤال] بخصوص اضافة تمرير بيناتا للداتا قريد فيو من تيكست بوكس diab4diab 1 85 20-04-17, 05:26 AM
آخر رد: أسامة السالمي
  مشكلة في اضافة كافة حقول الـ DGV الى قاعدة البيانات كود برمجي 11 316 18-04-17, 11:03 PM
آخر رد: كود برمجي
Wink اضافة اعلان ادسينس على واجهة البرنامج Basel_hmd 0 71 11-03-17, 04:48 PM
آخر رد: Basel_hmd

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


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