تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عرض الصورة علي picturebox
#1
كيفية عرض الصورة عند أختيارها من Listview علما بأن هذا الكود جلب الصور من قاعدة البيانات والكود الذي تحت مفترض عند الضغط علي الصورة تعرض علي picturebox ولكن لا تعرض ماالمشكلة في الكود
كود :
     con.Close()
           Dim imglist As New ImageList
           imglist.ColorDepth = ColorDepth.Depth32Bit
           ListView1.LargeImageList = imglist
           ListView1.LargeImageList.ImageSize = New System.Drawing.Size(200, 200)
           If con.State = ConnectionState.Closed Then con.Open()
           ds.Clear()
           Dim strsql As String = "SELECT dbo.pictures.Nu_pic, dbo.FilePictures.Num_File, dbo.FilePictures.Num_pic, dbo.pictures.pic,dbo.Files.Num_file  FROM dbo.FilePictures INNER JOIN dbo.Files ON dbo.FilePictures.Num_File = dbo.Files.No_Genfile INNER JOIN  dbo.pictures ON dbo.FilePictures.Num_pic = dbo.pictures.Nu_pic"
           Dim dt_images As New DataTable
           cmd.Connection = con
           cmd.CommandText = strsql
           adp.SelectCommand = cmd
           adp.Fill(ds)
           ListView1.Items.Clear()
           imglist.Images.Clear()
           For Each dr As DataRow In ds.Tables(0).Rows
               Dim imb_buffer = CType(dr("pic"), Byte())
               Dim img_stream As New IO.MemoryStream(imb_buffer, True)
               img_stream.Write(imb_buffer, 0, imb_buffer.Length)
               imglist.Images.Add(dr("Nu_pic").ToString(), New Bitmap(img_stream))
               img_stream.Close()
               Dim lsvparent As New ListViewItem
               lsvparent.Text = dr("pic").ToString
               lsvparent.ImageKey = dr("Nu_pic").ToString
               ListView1.Items.Add(lsvparent)
               lsvparent.Text = imglist.Images.Count.ToString
           Next
       End If
*********************************************************
هذا كود لعرض الصورة #  Private Sub ListView1_ItemActivate(sender As Object, e As EventArgs) Handles ListView1.ItemActivate
        Dim imglist As New ImageList
        Dim lsvparent As New ListViewItem
        If IsNothing(ListView1.FocusedItem) Then
        Else
            PictureBox3.Image = imglist.Images(lsvparent.Text.ToString)

        End If

    End Sub
الرد }}
تم الشكر بواسطة: سعود , سعود
#2
السلام عليكم
أخى الفاضل برجاء وضع البرنامج و رفعه لفحصه و الرد عليك .. ربما كانت المشكلة من شئ آخر أو من جزء آخر بالكود
الرد }}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up كيفية برمجة القائمة العائمة أبو خالد الشكري 2 117 16-08-22, 12:42 PM
آخر رد: أبو خالد الشكري
Shocked [VB.NET] كيفية رسم النقاط بالفجوال NABIL40W 4 193 16-08-22, 09:04 AM
آخر رد: معاند الحظ
Photo [سؤال] كيفية تفعيل او الغاء امتداد ملف من فلتر الاوبن فايل ديالوج asmarsou 7 268 07-08-22, 03:00 AM
آخر رد: سعود
Brick كيفية الإغلاق التام لـقاعدة بيانات SQL أبو خالد الشكري 18 639 03-08-22, 02:11 PM
آخر رد: أبو خالد الشكري
  سؤال كيفية اظهار reportviewer فى Visual Studio 2019 mohamed2316 2 197 03-08-22, 03:07 AM
آخر رد: mohamed2316
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 176 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري
Exclamation قراءة بيانات الصورة من قاعدة بيانات أكسس إلى أداة PictureBox أبو خالد الشكري 15 563 20-07-22, 05:40 PM
آخر رد: أبو خالد الشكري
  بالفيديو كيفية عمل تحديث للبرنامج crazykinko 1 219 20-07-22, 12:28 PM
آخر رد: معاند الحظ
  [سؤال] كيفية حفظ عناصر في مجلد بحسب ترتيبها في الليست بوكس asmarsou 1 234 13-07-22, 06:42 PM
آخر رد: ابراهيم ايبو
  ماهي طريقة اقتطاع جزء معين من الصورة عند المسح بالسكانر ؟ جيولوجي مبتدئ 0 177 01-07-22, 02:55 AM
آخر رد: جيولوجي مبتدئ

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


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