تقييم الموضوع :
  • 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
السلام عليكم
أخى الفاضل برجاء وضع البرنامج و رفعه لفحصه و الرد عليك .. ربما كانت المشكلة من شئ آخر أو من جزء آخر بالكود
الرد
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن كيفية اخراج فاتوره البيع كامله للاستعلام فقط حسين ادريس 4 203 24-01-22, 07:35 PM
آخر رد: علاء الكبابي
  [سؤال] السلام عليكم ورحمة الله وبركاته محتاج شرح كيفية البحث عن تفاصيل فاتوره فيجوال بيسك حسين ادريس 3 176 15-01-22, 11:24 AM
آخر رد: ابراهيم ايبو
  [سؤال] كيفية منع تكرار ملف مرتبط بزر ديناميكي asmarsou 2 179 11-01-22, 07:17 PM
آخر رد: asmarsou
  كيفية اضافة عملية بحث على web browser للملفات داخل البرنامج haithammoftah 3 284 29-12-21, 01:07 AM
آخر رد: سعود
  [SQL] كيفية جعل حقل ما غير قابل للتكرار mmaalmesry 4 254 26-12-21, 10:24 PM
آخر رد: E100
  كيفية فحص Listview cordava 0 158 24-12-21, 08:01 AM
آخر رد: cordava
  [نقاش] كيفية تدوير الارصدة لفتح سنة مالية جديدة محمود بكرى 4 3,955 10-12-21, 01:28 PM
آخر رد: Taha Okla
  datagridview كيفية عمل نسخة مشابهه ibra9009 0 221 07-12-21, 10:00 AM
آخر رد: ibra9009
Lightbulb [VB.NET] كيفية نجعل CheckBox في DataGridView كأنه RadioButton أبو خالد الشكري 3 361 30-11-21, 02:12 PM
آخر رد: أبو خالد الشكري
  [VB.NET] كيفية تحويل قيمة textbox الي hex ابو ياسين ويزن 2 294 29-11-21, 09:35 PM
آخر رد: ابو ياسين ويزن

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


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