تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة زر امر الى اداة list view
#1
السلام عليكم ورحمة الله وبركاته ,,,
الاساتذة الكرام اسعد الله اوقاتكم 

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

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

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

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
لا يوجد رد ‍!!!
الرد
تم الشكر بواسطة:
#3
السلام عليكم اخواني الكرام 

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

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

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


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

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

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

وشكراً لكم


الملفات المرفقة
.rar   listv_control.rar (الحجم : 11.05 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#4
وعليكم السلام ورحمة الله وبركاته

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


الملفات المرفقة
.rar   listv_control_1.rar (الحجم : 4.92 ك ب / التحميلات : 2)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: hannileo
#5
(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
#6
أهلا بك أخي الكريم , في البداية يجب أن تدرج على الفورم أداة 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 

حيث آخر سطرين لتغيير عرض أول عمودين الخاصة بالأيقونات عدل العرض في آخر سطرين ليتناسب مع عرض الأيقونات .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: hannileo , hannileo
#7
نعم استاذ احمد لقد فعلت كل ذلك بالضبط 
ولكن اريد ان يكون الايقونتين اخر عمود وليس في البداية 

هل يمكن ذلك ام انه حصراً يجب في البداية
الرد
تم الشكر بواسطة:
#8
أهلا بك أخي الكريم , عفوا هذل تعديل الكود على أساس أن آخر عمودين 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 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: hannileo , hannileo
#9
بارك الله بك استاذ احمد 

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

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

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

شكرا لك من كل قلبي
الرد
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اداة خرائط غوغل لم تعد تعمل hannileo 5 284 27-09-18, 02:18 PM
آخر رد: hannileo
  لا استطيع حفظ المشروع بعد اضافة اداة shockwaveflash ? Alhootti1 0 129 30-08-18, 08:01 PM
آخر رد: Alhootti1
  كيفية اضافة خواص لاداة UserControl ؟ gedo 0 197 17-01-18, 05:35 PM
آخر رد: gedo
  اداة Button جميلة (تحتاج الى تطوير) gedo 0 189 16-01-18, 11:43 PM
آخر رد: gedo
  [سؤال] كيفية اضافة صورة وكيفية اضافة فيديوو ؟؟! shimaasa 6 376 15-01-18, 07:43 PM
آخر رد: shimaasa
Shocked اهدي لكم اداة الـ Codejock Xtreme Suite Pro ActiveX v15.3.1 thecareep 4 2,075 14-10-17, 04:52 AM
آخر رد: thecareep
  رسالة خطأ عند اضافة جديد hannileo 2 342 27-09-17, 09:10 AM
آخر رد: hannileo
  [vb6.0] كيف يمكنني ان استخدام اداة DTPicker للفلترة نتائج البحث في MSHFlexGrid1 sher 7 710 09-07-17, 12:54 PM
آخر رد: sher
Rainbow [سؤال] كود حول اداة MSHFlexGrid amer2000 5 582 09-05-17, 05:50 PM
آخر رد: sendbad100
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 514 13-04-17, 09:57 AM
آخر رد: haniblack

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم