تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة صور فى subitem
#1
وجدت وضوع يتكلم هن هذا http://vb4arb.com/vb/thread-16450.html لاكن يوجد مشكلة واحدة فقط انه لايمكن اضافة اكثر من صوره عند اضافة صوره اخرى يتم تغير جميع الصور هل من حل

كود :
   Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
       For Each itm As ListViewItem In ListView1.Items
           If e.SubItem.Text = itm.SubItems(1).Text Then
               Dim imageRect = New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height)
               e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, New SolidBrush(e.SubItem.ForeColor), (e.SubItem.Bounds.Location.X + 15), e.SubItem.Bounds.Location.Y + 3)
               e.Graphics.DrawImage(Image.FromFile(Application.StartupPath + "\Data\" + TextBox2.Text + ".png"), imageRect)
           Else
               e.DrawDefault = True
           End If
       Next
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ListView1.OwnerDraw = True
   End Sub

   Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
       e.DrawDefault = True
   End Sub
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

جرب التعديل، تم الغاء كتابة النص في العمود المحدد واستغلال النص على أنه اسم الصورة من المجلد Data
كود :
  Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
          If e.ColumnIndex = 1 Then
              Dim imageRect = New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height)
              'e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, New SolidBrush(e.SubItem.ForeColor), (e.SubItem.Bounds.Location.X + 15), e.SubItem.Bounds.Location.Y + 3)
               Dim imgFilename As String = Application.StartupPath + "\Data\" + e.SubItem.Text
               Dim img As Image = New PictureBox().ErrorImage
               If IO.File.Exists(imgFilename) Then img = Image.FromFile(imgFilename)
               e.Graphics.DrawImage(img, imageRect)
          Else
              e.DrawDefault = True
          End If
  End Sub

  Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ListView1.OwnerDraw = True
  End Sub

  Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
      e.DrawDefault = True
  End Sub


تم تعديل الكود بعد مراجعته مرة أخرى
الرد }}}
تم الشكر بواسطة: الشاكي لله , الشاكي لله
#3
تم عديل الكود

عند إضافة بيانات احرص على دقة اسم الصورة مع نوعها في العمود الثاني (تبدأ رقام الأعمدة برقم صفر) مثل هذا الكود
كود :
ListView1.Items.Add(New ListViewItem({"موظف", "emp.png"}))

التعديل الذي أجريته يعمل على إظهار صورة X إذا اتضح عدم وجود الصورة أو خطأ في اسم الصورة أو مسارها
الرد }}}
تم الشكر بواسطة: Mohamed20
#4
تم عديل الكود
الرد }}}
تم الشكر بواسطة: Mohamed20
#5
(20-01-17, 02:32 AM)مساعدة كتب : تم عديل الكود

المشكلة فى Application.StartupPath + "\Data\" + e.SubItem.Text يجب ان يكون هذا هو المسار لكى يعمل اذا كان Application.StartupPath + "\Data\" + textbox.Text يتم ازالة الصورة عند اضافة item اخرى
الرد }}}
تم الشكر بواسطة:
#6
عندي لا توجد المشكلة التي ذكرتها.

فضع مشروعك لمعرفة المشكلة لديك وإيجاد الحل المناسب.
الرد }}}
تم الشكر بواسطة: Mohamed20
#7
(20-01-17, 10:59 PM)مساعدة كتب : عندي لا توجد المشكلة التي ذكرتها.

فضع مشروعك لمعرفة المشكلة لديك وإيجاد الحل المناسب.

شكرآ كان يوجد مشكلة فى الكود و تم حلها بحمد الله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  مشكلة فى اضافة عناصر فى الداتا جريد فيو خالد كامل1 14 1,616 16-02-23, 03:10 AM
آخر رد: خالد كامل1
  [VB.NET] اضافة كرستال ريبورت MOHAMMED ALZWI 2 373 20-12-22, 11:19 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات MOHAMMED ALZWI 2 441 10-12-22, 12:25 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات 0 152 10-12-22, 02:30 AM
آخر رد: MOHAMMED ALZWI
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 4 2,188 22-10-22, 09:13 PM
آخر رد: MORA

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


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