[Ahmed_Mansoor]

أهلا بك أخي الكريم , عفوا هذل تعديل الكود على أساس أن آخر عمودين 7و8 هما للأيقونتين :

PHP كود :

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

   ListView2.ColumnHeaders(7).Width = 300
   ListView2.ColumnHeaders(8).Width = 250 


ولكن يجب تعديل كود حدث الضغط على العنصر لأن تم وضعه على أساس العمود 1 و 2 , عدل الكود الموجود في حدث الـ ListView2_MouseUp بهذا الكود :

PHP كود :

If Button = 1 Then

   If x >= ListView2.ColumnHeaders(7).Left And _
      x <= ListView2.ColumnHeaders(7).Left + ListView2.ColumnHeaders(7).Width And _
      y >= ListView2.ListItems(ClickedItemIndex).Top And _
      y <= ListView2.ListItems(ClickedItemIndex).Top + ListView2.ListItems(ClickedItemIndex).Height Then
      
      MsgBox "You Click Delete in Row " & ClickedItemIndex
   
   End If
   
   If x >= ListView2.ColumnHeaders(8).Left And _
      x <= ListView2.ColumnHeaders(8).Left + ListView2.ColumnHeaders(8).Width And _
      y >= ListView2.ListItems(ClickedItemIndex).Top And _
      y <= ListView2.ListItems(ClickedItemIndex).Top + ListView2.ListItems(ClickedItemIndex).Height Then
      
      MsgBox "You Click Edit in Row " & ClickedItemIndex
   
   End If
 
End If