تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في ترقيم الصور
#1
كود :
Private Sub retrieve()
       ListView1.Clear()
       Dim imglist As New ImageList
       imglist.ColorDepth = ColorDepth.Depth32Bit
       ListView1.LargeImageList = imglist
       ListView1.LargeImageList.ImageSize = New System.Drawing.Size(200, 200)
       Dim strsql As String = "select * from picEmploy where NumFile=" & TextBox1.Text
       Dim dt_images As New DataTable
       cmd.Connection = con
       cmd.CommandText = strsql
       adp.SelectCommand = cmd
       adp.Fill(ds)
       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("NumFile").ToString(), New Bitmap(img_stream))
           img_stream.Close()
           Dim lsvparent As New ListViewItem
           'lsvparent.Text = dr("pic").ToString
           lsvparent.ImageKey = dr("NumFile").ToString
           ListView1.Items.Add(lsvparent)

       Next
       
   End Sub
السلام عليكم ...مشكلتي أريد أن أرقم الصور التي تعرض علي Listvies كيفية عمل ذلك أرجو المساعدة والكود مرفق
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عندي مشكلة رسالة موقفة المشروع تماما عمور2016 3 112 13-08-22, 02:25 PM
آخر رد: عمور2016
Sad [VB.NET] مشكلة عندي في عرض تقارير كريستال ريبورت بجهاز العميل golden man 0 116 04-08-22, 11:06 PM
آخر رد: golden man
  مشكلة تنصيب سيكول سيرفر حماده ممدوح البحيرى 1 126 04-08-22, 02:05 AM
آخر رد: Jounior_P
  مشكلة فى تنصيب sql حماده ممدوح البحيرى 1 586 02-08-22, 12:11 AM
آخر رد: حماده ممدوح البحيرى
  ماهي طريقة تحويل الصور إلى pdf ؟ جيولوجي مبتدئ 6 271 30-07-22, 02:24 AM
آخر رد: جيولوجي مبتدئ
  مشكلة الاتصال مع الاكسسز فقط مع محسوب نيمو 2 155 27-07-22, 01:35 AM
آخر رد: نيمو
  [سؤال] كيف نستخرج الصور المحفوظة في ملف .Bin سعود 2 242 17-07-22, 09:17 AM
آخر رد: سعود
  مشكلة في تنفبذ الكود mohamedassim 8 390 07-07-22, 12:26 AM
آخر رد: أبو خالد الشكري
  مشكلة في الكومبو بوكس mohamedassim 0 195 06-07-22, 11:38 PM
آخر رد: mohamedassim
  [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو محمد اسماعيل 5 1,526 30-06-22, 08:29 PM
آخر رد: alessam4pro

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


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