تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  حل مشكلة فى listview malekmohamed155 1 211 19-01-24, 06:19 PM
آخر رد: malekmohamed155
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
  مساعدة كتابة التاريخ داخل داتا جريد فيو كريم عبودي 2 523 22-06-23, 12:28 AM
آخر رد: كريم عبودي

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


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