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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 10 341 13-09-21, 12:45 AM
آخر رد: ابراهيم ايبو
  [سؤال] برنامج يبحث بالعديد من النصوص داخل ملف واحد maio_do 1 170 22-08-21, 01:49 PM
آخر رد: asemshahen5
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 384 21-08-21, 06:32 PM
آخر رد: mmaalmesry
  حذف صفوف في جدول داخل قاعدة بيانات سيكوال سيرف momani33 5 262 21-08-21, 02:14 PM
آخر رد: momani33
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 450 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp bahnay0 0 212 12-08-21, 01:49 AM
آخر رد: bahnay0
  رسالة خطأ تظهر عند استعراض التقرير aftfm 0 175 30-07-21, 02:15 PM
آخر رد: aftfm
  ممكن حل لمشكلة التعديل داخل DGv Ofealas 11 605 27-07-21, 09:32 PM
آخر رد: Ofealas
  طلب كود التقاط صورة لللشاشة بالكامل Hatem Zahran 9 550 13-07-21, 12:36 PM
آخر رد: asmarsou
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 2 961 05-07-21, 04:28 PM
آخر رد: naserflaha71

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


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