تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استعراض صورة داخل listview
#1
السلام عليكم
لدي هذا الكود

كود :
      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
الرد }}
تم الشكر بواسطة:
#2
(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
الرد }}
تم الشكر بواسطة: Amir_Alzubidy
#3
شكرا لك اخي العزيز نجح الكود بارك الله فيك وزادك من علمه

يبقى استفسار في حال كان حقل الصور فارغ 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
الرد }}
تم الشكر بواسطة:



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


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