[Ahmed_Mansoor]

أهلا بك أخي الكريم , في البداية يجب أن تدرج على الفورم أداة ImageList وتضيف فيها 2 أيقونة الأولى للحذف والثانية للتعديل ثم تعرف أداة الـ ImageList في أداة اللست فيو وذلك بالضغط على أداة اللست فيو بزر الفأرة الأيمن ثم إختار آخر عنصر وهو خصائص ثم من شاشة الخصائص إختر التبويب Image Lists ثم إختر إسم أداة الـ ImageList في جميع الكومبو الثلاثة الخاصة بـ Normal و Small و Column Header ثم موافق ويجب أن يكون في اداة اللست فيو 9 أعمدة أول عمودين للأيقونتين والباقي للبيانات , ثم إستخدم هذا الكود بعد تعديله :

PHP كود :

If Text1.Text = "" Then
MsgBox "Please Enter the Product!", vbCritical + vbOKOnly, ""
Else
      
   ListView2.ListItems.Add , , "", 1, 1
   ListView2.ListItems(ListView2.ListItems.Count).ListSubItems.Item(1).ReportIcon = 2
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(1) = ""
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(2) = Text5.Text
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(3) = Text1.Text
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) = Text2.Text
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(5) = Text3.Text
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(6) = Format(Text4.Text, "###,###,###.00")
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Val(Text5.Text) * Val(Text4.Text)
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(8) = Text9.Text

   ListView2.ColumnHeaders(1).Width = 300
   ListView2.ColumnHeaders(2).Width = 250 


حيث آخر سطرين لتغيير عرض أول عمودين الخاصة بالأيقونات عدل العرض في آخر سطرين ليتناسب مع عرض الأيقونات .