منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اضافة زر امر الى اداة list view - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : اضافة زر امر الى اداة list view (/showthread.php?tid=27640)

اضافة زر امر الى اداة list view - hannileo - 25-11-18

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

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

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

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

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

RE: اضافة زر امر الى اداة list view - hannileo - 26-11-18

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

RE: اضافة زر امر الى اداة list view - hannileo - 28-11-18

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

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

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

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


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

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

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

وشكراً لكم

RE: اضافة زر امر الى اداة list view - Ahmed_Mansoor - 04-12-18

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

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

RE: اضافة زر امر الى اداة list view - hannileo - 04-12-18

(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



وشكراً

RE: اضافة زر امر الى اداة list view - Ahmed_Mansoor - 04-12-18

أهلا بك أخي الكريم , في البداية يجب أن تدرج على الفورم أداة 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 

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

RE: اضافة زر امر الى اداة list view - hannileo - 04-12-18

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

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

RE: اضافة زر امر الى اداة list view - Ahmed_Mansoor - 04-12-18

أهلا بك أخي الكريم , عفوا هذل تعديل الكود على أساس أن آخر عمودين 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 


RE: اضافة زر امر الى اداة list view - hannileo - 04-12-18

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

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

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

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

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