منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استعراض صورة داخل 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)
+--- الموضوع : [VB.NET] استعراض صورة داخل listview (/showthread.php?tid=38418)

استعراض صورة داخل listview - سلامات - 09-05-21

السلام عليكم
لدي هذا الكود

كود :
      Try

           If Sqlconn.State = ConnectionState.Open Then
               Sqlconn.Close()
           End If

           item_pos.ListViewUSER.Items.Clear()
           Sqlconn.Open()
           Dim cmd10 As New MySqlCommand("select  * from TABLE where item =  '" & Comsal.Text.Trim & "'", Sqlconn)
           Dim myReader10 As MySqlDataReader = cmd10.ExecuteReader(CommandBehavior.CloseConnection)
           While (myReader10.Read() = True)

               Dim item10 As New ListViewItem()

               item10.Text = myReader10.Item("NAMS").ToString.Trim()
               item10.ImageIndex = 2
               item10.ForeColor = Color.SteelBlue
               item_pos.ListViewUSER.Items.Add(item10)



           End While
           Sqlconn.Close()

           item_pos.ShowDialog()

       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "alert")
       
End Try


حيث اقوم باستيراد بيانات من قاعدة البيانات لــ listview تم بنجاح لكن يوجد صور بالجدول
كود :
TABLE


كيف استطيع استدعائها مع الحقل
كود :
NAMS


RE: استعراض صورة داخل listview - march - 09-05-21

(09-05-21, 07:34 PM)سلامات كتب : السلام عليكم
لدي هذا الكود

كود :
      Try

           If Sqlconn.State = ConnectionState.Open Then
               Sqlconn.Close()
           End If

           item_pos.ListViewUSER.Items.Clear()
           Sqlconn.Open()
           Dim cmd10 As New MySqlCommand("select  * from TABLE where item =  '" & Comsal.Text.Trim & "'", Sqlconn)
           Dim myReader10 As MySqlDataReader = cmd10.ExecuteReader(CommandBehavior.CloseConnection)
           While (myReader10.Read() = True)

               Dim item10 As New ListViewItem()

               item10.Text = myReader10.Item("NAMS").ToString.Trim()
               item10.ImageIndex = 2
               item10.ForeColor = Color.SteelBlue
               item_pos.ListViewUSER.Items.Add(item10)



           End While
           Sqlconn.Close()

           item_pos.ShowDialog()

       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "alert")
       
End Try


حيث اقوم باستيراد بيانات من قاعدة البيانات لــ listview تم بنجاح لكن يوجد صور بالجدول
كود :
TABLE


كيف استطيع استدعائها مع الحقل
كود :
NAMS

كود :
       Try
           item_pos.ListViewUSER.Items.Clear()

           Dim da As New MySqlDataAdapter("select  * from TABLE1 where item =  '" & Comsal.Text.Trim & "'", Sqlconn)
           Dim dt As New DataTable
           da.Fill(dt)

           Dim ImageList1 As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(32, 32)}
           item_pos.ListViewUSER.SmallImageList = ImageList1
           item_pos.ListViewUSER.LargeImageList = ImageList1

           For Each row As DataRow In dt.Rows
               Dim item As New ListViewItem(row.Item("NAMS").ToString.Trim)
               ImageList1.Images.Add(New ImageConverter().ConvertFrom(row.Item("photo")))
               item.ImageIndex = ImageList1.Images.Count - 1
               item.ForeColor = Color.SteelBlue
               item_pos.ListViewUSER.Items.Add(item)
           Next

           item_pos.ShowDialog()
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "alert")

       End Try


RE: استعراض صورة داخل listview - سلامات - 10-05-21

شكرا لك اخي العزيز نجح الكود بارك الله فيك وزادك من علمه

يبقى استفسار في حال كان حقل الصور فارغ NULL يرجع ERROR هنا


كود :
       For Each row As DataRow In dt.Rows
               Dim item As New ListViewItem(row.Item("NAMS").ToString.Trim)
               ImageList1.Images.Add(New ImageConverter().ConvertFrom(row.Item("IMGS")))
               item.ImageIndex = ImageList1.Images.Count - 1
               item.ForeColor = Color.SteelBlue
               item_pos.ListViewUSER.Items.Add(item)
           Next


في الحقل ماذا لو كان فاضي خالي من البيانات كيف اضافة صورة ثابته من السورس المرفق مع البرنامج نفسه
كود :
IMGS