04-12-18, 09:54 AM (آخر تعديل لهذه المشاركة : 04-12-18, 10:57 AM {2} بواسطة hannileo.)
(04-12-18, 08:59 AM)Ahmed_Mansoorالسلام عليكم استاذ احمد ارجو ان تكون بصحة جيدة لقد اشتقنا لك و اشكرك الف مرة على ردكالمثال جميل جدا وهذا ماريده بالضبط ولكن عندي مشكلة صغيرة زر اضافة عندي يختلف قليلاً حاولت التعديل لكنه لم ينجح معي هذا الكود بعد التعديل ارجو ان تدلني على المشكلة كتب :
كود :
If Text1.Text = "" Then
MsgBox "Please Enter the Product!", vbCritical + vbOKOnly, ""
Else
أهلا بك أخي الكريم , في البداية يجب أن تدرج على الفورم أداة ImageList وتضيف فيها 2 أيقونة الأولى للحذف والثانية للتعديل ثم تعرف أداة الـ ImageList في أداة اللست فيو وذلك بالضغط على أداة اللست فيو بزر الفأرة الأيمن ثم إختار آخر عنصر وهو خصائص ثم من شاشة الخصائص إختر التبويب Image Lists ثم إختر إسم أداة الـ ImageList في جميع الكومبو الثلاثة الخاصة بـ Normal و Small و Column Header ثم موافق ويجب أن يكون في اداة اللست فيو 9 أعمدة أول عمودين للأيقونتين والباقي للبيانات , ثم إستخدم هذا الكود بعد تعديله :
PHP كود :
If Text1.Text = "" Then MsgBox "Please Enter the Product!", vbCritical + vbOKOnly, "" Else
ولكن يجب تعديل كود حدث الضغط على العنصر لأن تم وضعه على أساس العمود 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
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next