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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [تم الحل] اضافة صورة لقاعدة البيانات اكسس anes 2 115 12-06-21, 02:16 AM
آخر رد: anes
  [سؤال] كيفية انشاء عموداين ادخل listview alims 2 129 09-06-21, 12:45 AM
آخر رد: alims
  لم اجد مكتبة الاكسيل في المراجع داخل الفيجوال بيسك 2019 Alanwalker 2 116 05-06-21, 08:27 PM
آخر رد: Alanwalker
  [VB.NET] البحث داخل داتا جريد فيو CoderMM 0 95 02-06-21, 12:20 PM
آخر رد: CoderMM
  بحث عن صورة Lathe1 2 198 01-06-21, 01:28 AM
آخر رد: Lathe1
  كيف يمكنني ان اقوم بتغير باسورد المستخدم داخل دومين dametucorazon 0 93 31-05-21, 11:09 PM
آخر رد: dametucorazon
  [VB.NET] تحويل pdf الى صورة بدون استخدام الاكروبات بأستخدام adobe reader العادى فقط AhmedNagib 0 123 25-05-21, 12:38 AM
آخر رد: AhmedNagib
  كود منع ادخال ارقام او حروف داخل التيكست بوكس ابو نور الهدى 2 315 01-05-21, 06:15 AM
آخر رد: أبووسم
  عرض البيانات داخل التاتا جرد فيو بطريقة جداول متداخلة moahmed.abdelmohsen 6 457 30-04-21, 05:17 PM
آخر رد: mrfenix93
  مشكلة بزيدة قيمة المتغير داخل التيمر أبو عبدالله الحلواني 5 414 17-04-21, 12:22 AM
آخر رد: أبو عبدالله الحلواني

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


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