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

نسخة كاملة : اضافة زر امر الى اداة list view
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته ,,,
الاساتذة الكرام اسعد الله اوقاتكم 

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

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

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

ولكم جزيل الشكر
لا يوجد رد ‍!!!
السلام عليكم اخواني الكرام 

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

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

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


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

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

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

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

أهلا بك أخي الكريم , إستخدم هذه الطريقة التي تم عملها في التعديل المرفق أفضل .
(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



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

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

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

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

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

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

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