منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

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

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


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

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

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

وشكراً لكم

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

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

(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

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

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



وشكراً

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


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

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

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

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


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

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

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

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

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

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