[hannileo]

السلام عليكم ورحمة الله وبركاته ,,,
الاساتذة الكرام اسعد الله اوقاتكم 

سؤالي هو : هل يمكن اضافة اداة زر امر Command  عند كل حقل يتم اضافته الى الجدول اداة List view 

مثلا عندما يتم اضافة اي صف الى الجدول فانه يظهر item list في ناية الجدول عبالى عن زر امر  يحتوي عىل امر حذف من القائمة مثلاً

كما في الصورة المشابهة 

ولكم جزيل الشكر

[hannileo]

لا يوجد رد ‍!!!

[hannileo]

السلام عليكم اخواني الكرام 

لقد وجدت هذا المثال (المرفق) على الانترنت يحتوي على اداة Picture 

حاولت ان اضيف اداة command بنفس الطريقة لكنها لم تنجح 

ارجو ان تردوا  على سؤالي ان كان بالامكان ذلك او لا 


وأرجو من الاساتذة عامر الزعبي - أحمد منصور - عبد العزيز البسكري ...

أن يبشرونا عن صحتهم لم اعد ارى منشوراتهم  كما من قبل 

ارجو ان يكونو بصحة جيدة 

وشكراً لكم

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إستخدم هذه الطريقة التي تم عملها في التعديل المرفق أفضل .

[hannileo]

(04-12-18, 08:59 AM)Ahmed_Mansoorالسلام عليكم  استاذ احمد ارجو ان تكون بصحة جيدة لقد اشتقنا لك و اشكرك الف مرة على ردكالمثال جميل جدا وهذا ماريده بالضبط ولكن عندي مشكلة صغيرة زر اضافة عندي يختلف قليلاً حاولت التعديل لكنه لم ينجح معي هذا الكود بعد التعديل ارجو ان تدلني على المشكلة كتب :

كود :

If Text1.Text = "" Then
MsgBox "Please Enter the Product!", vbCritical + vbOKOnly, ""
Else
   

  p = ListView1.ListItems.Count + 1
   
   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.Item(p).ListSubItems.Add 7, "", "", 1

حيث انني اضفت سطرين فقط 
ولكن تظهر عندي رسالة خطأ

كود :

   

  p = ListView1.ListItems.Count + 1
   
       
  ListView2.ListItems.Item(p).ListSubItems.Add 7, "", "", 1

ثم اضفت الكود هذا لم يعد يظهر راسلة خطا ولكن اصبح يظهر رقم ماكن الصورة 

كود :

ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = ImageList1.ListImages.Item(1).Picture

وشكراً

[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 


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

[hannileo]

نعم استاذ احمد لقد فعلت كل ذلك بالضبط 
ولكن اريد ان يكون الايقونتين اخر عمود وليس في البداية 

هل يمكن ذلك ام انه حصراً يجب في البداية

[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 


[hannileo]

بارك الله بك استاذ احمد 

هذا بالضبط مااريد والله لا اعرف كيف اشكرك 

انت انسان عبقري شهر كامل وانا ابحث عن هذه الطريقة في النت

الله يرزقك الجنة من غير حساب انت واهلك 

شكرا لك من كل قلبي