منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغات البرمجة الاخرى قسم لغة vb6.0 تغيير كود استخدام اداة Msflexgrid الى Listview
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
تغيير كود استخدام اداة Msflexgrid الى Listview
hannileo غير متصل
عضو مبدع
المشاركات : 158
المواضيع 57
الإنتساب : Aug 2017
السمعة : 1
الشكر: 162
تم شكره 147 مرات في 80 مشاركات
#1
26-10-19, 01:12 PM
السلام عليكم ورحمة الله وبركاته ,,,


اخواني هذا الكود يستخدم من اجل اظهار نتيجة انتهاء التاريخ من مشاركات الاساتذة الكرام 

عندي مشكلة وهي ان الكود يستخدم اداة MSflexgrid وانا اريد ان تكون الاداة Listview  

هل يمكن ان تساعدوني بالحل جزاكم الله كل خير لاني حاولت ولا اعرف التفريق بين خصائص الاداتين 
شكرا لكم 


كود :
Public Sub Expexam()
Dim i As Integer


             If RS.State = 1 Then RS.Close

sql = "Select Brand as Araba" & _
                           ",PlateNo as PlateNo" & _
                           ",Model as Model" & _
                           ",Exam as Expiration" & _
                           ",iif(Exam<Date(),'RentCar Expired ' & DateDiff('d',Exam,Date()) & ' Day/s','Days Left ' & DateDiff('d',Date(),Exam) & ' Day/s') as Warning" & _
                           " From Car Where Exam<Date() or DateDiff('d',Date(),Exam)<=30 order by CarID"

RS.Open sql, CN, adOpenKeyset, adLockPessimistic

'Mdifrm.Label1.Caption = RS.RecordCount
'RS.Sort = "Expiration"



MDIFrm.MSdikat.Clear

   
       
If RS.RecordCount > 0 Then
Set MDIFrm.MSdikat.DataSource = RS


'==============================================
For i = 1 To RS.RecordCount


MDIFrm.MSdikat.Row = i

Dim t As Date
Dim a As Date
Dim r As Integer


a = Format$(Now, "dd/MM/yyyy")

t = Format$((MDIFrm.MSdikat.TextMatrix(i, 4)), "dd/mm/yyyy")


   If t < a Then
   MDIFrm.MSdikat.Col = 4
   MDIFrm.MSdikat.CellForeColor = &H1414CD
 
    MDIFrm.MSdikat.Col = 5
    MDIFrm.MSdikat.CellForeColor = vbBlue
   
   ElseIf t = a Then
   MDIFrm.MSdikat.Col = 4
 
   MDIFrm.MSdikat.CellForeColor = vbRed
    MDIFrm.MSdikat.Col = 5
    MDIFrm.MSdikat.CellForeColor = vbBlue
   ElseIf t > a Then
   MDIFrm.MSdikat.Col = 4
   MDIFrm.MSdikat.CellForeColor = &HC000&
    MDIFrm.MSdikat.Col = 5
    MDIFrm.MSdikat.CellForeColor = vbBlue

   End If


Next


'==============================================

   
   
           MDIFrm.MSdikat.ColWidth(0) = 0
           MDIFrm.MSdikat.ColWidth(1) = 1500
           MDIFrm.MSdikat.ColWidth(2) = 800
           MDIFrm.MSdikat.ColWidth(3) = 800
           MDIFrm.MSdikat.ColWidth(4) = 1000
           MDIFrm.MSdikat.ColWidth(5) = 2000
         
         
           MDIFrm.MSdikat.ColAlignment(0) = 3
           MDIFrm.MSdikat.ColAlignment(1) = 3
           MDIFrm.MSdikat.ColAlignment(2) = 3
           MDIFrm.MSdikat.ColAlignment(3) = 3
           MDIFrm.MSdikat.ColAlignment(4) = 3
           MDIFrm.MSdikat.ColAlignment(5) = 3
           
           
           MDIFrm.MSdikat.ColAlignmentFixed(0) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(1) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(2) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(3) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(4) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(5) = 3
     
 MDIFrm.Show

 
  Else
  MDIFrm.MSdikat.Clear


  End If

End Sub
البحث
الرد }}}
تم الشكر بواسطة: awidan76
hannileo غير متصل
عضو مبدع
المشاركات : 158
المواضيع 57
الإنتساب : Aug 2017
السمعة : 1
الشكر: 162
تم شكره 147 مرات في 80 مشاركات
#2
Shocked  27-10-19, 05:26 PM
(26-10-19, 01:12 PM)hannileo كتب : السلام عليكم ورحمة الله وبركاته ,,,


اخواني هذا الكود يستخدم من اجل اظهار نتيجة انتهاء التاريخ من مشاركات الاساتذة الكرام 

عندي مشكلة وهي ان الكود يستخدم اداة MSflexgrid وانا اريد ان تكون الاداة Listview  

هل يمكن ان تساعدوني بالحل جزاكم الله كل خير لاني حاولت ولا اعرف التفريق بين خصائص الاداتين 
شكرا لكم 


كود :
Public Sub Expexam()
Dim i As Integer


             If RS.State = 1 Then RS.Close

sql = "Select Brand as Araba" & _
                           ",PlateNo as PlateNo" & _
                           ",Model as Model" & _
                           ",Exam as Expiration" & _
                           ",iif(Exam<Date(),'RentCar Expired ' & DateDiff('d',Exam,Date()) & ' Day/s','Days Left ' & DateDiff('d',Date(),Exam) & ' Day/s') as Warning" & _
                           " From Car Where Exam<Date() or DateDiff('d',Date(),Exam)<=30 order by CarID"

RS.Open sql, CN, adOpenKeyset, adLockPessimistic

'Mdifrm.Label1.Caption = RS.RecordCount
'RS.Sort = "Expiration"



MDIFrm.MSdikat.Clear

   
       
If RS.RecordCount > 0 Then
Set MDIFrm.MSdikat.DataSource = RS


'==============================================
For i = 1 To RS.RecordCount


MDIFrm.MSdikat.Row = i

Dim t As Date
Dim a As Date
Dim r As Integer


a = Format$(Now, "dd/MM/yyyy")

t = Format$((MDIFrm.MSdikat.TextMatrix(i, 4)), "dd/mm/yyyy")


   If t < a Then
   MDIFrm.MSdikat.Col = 4
   MDIFrm.MSdikat.CellForeColor = &H1414CD
 
    MDIFrm.MSdikat.Col = 5
    MDIFrm.MSdikat.CellForeColor = vbBlue
   
   ElseIf t = a Then
   MDIFrm.MSdikat.Col = 4
 
   MDIFrm.MSdikat.CellForeColor = vbRed
    MDIFrm.MSdikat.Col = 5
    MDIFrm.MSdikat.CellForeColor = vbBlue
   ElseIf t > a Then
   MDIFrm.MSdikat.Col = 4
   MDIFrm.MSdikat.CellForeColor = &HC000&
    MDIFrm.MSdikat.Col = 5
    MDIFrm.MSdikat.CellForeColor = vbBlue

   End If


Next


'==============================================

   
   
           MDIFrm.MSdikat.ColWidth(0) = 0
           MDIFrm.MSdikat.ColWidth(1) = 1500
           MDIFrm.MSdikat.ColWidth(2) = 800
           MDIFrm.MSdikat.ColWidth(3) = 800
           MDIFrm.MSdikat.ColWidth(4) = 1000
           MDIFrm.MSdikat.ColWidth(5) = 2000
         
         
           MDIFrm.MSdikat.ColAlignment(0) = 3
           MDIFrm.MSdikat.ColAlignment(1) = 3
           MDIFrm.MSdikat.ColAlignment(2) = 3
           MDIFrm.MSdikat.ColAlignment(3) = 3
           MDIFrm.MSdikat.ColAlignment(4) = 3
           MDIFrm.MSdikat.ColAlignment(5) = 3
           
           
           MDIFrm.MSdikat.ColAlignmentFixed(0) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(1) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(2) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(3) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(4) = 3
           MDIFrm.MSdikat.ColAlignmentFixed(5) = 3
     
 MDIFrm.Show

 
  Else
  MDIFrm.MSdikat.Clear


  End If

End Sub



يااخوان لايوجد رد !!!
البحث
الرد }}}
تم الشكر بواسطة: awidan76
Ahmed_Mansoor غير متصل
كبار الشخصيات
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة : 1,006
الشكر: 30850
تم شكره 22871 مرات في 2187 مشاركات

المشرف
#3
27-10-19, 10:30 PM
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , أخي أرفق مثال يوضح المشكلة أو المطلوب لتسهيل التعديل ولتفهم طريقة التعديل بشكل أفضل , بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
البحث
الرد }}}
تم الشكر بواسطة: hannileo , sendbad100 , Amir_Alzubidy , awidan76
hannileo غير متصل
عضو مبدع
المشاركات : 158
المواضيع 57
الإنتساب : Aug 2017
السمعة : 1
الشكر: 162
تم شكره 147 مرات في 80 مشاركات
#4
28-10-19, 11:21 AM (آخر تعديل لهذه المشاركة : 28-10-19, 11:25 AM {2} بواسطة hannileo.)
(27-10-19, 10:30 PM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , أخي أرفق مثال يوضح المشكلة أو المطلوب لتسهيل التعديل ولتفهم طريقة التعديل بشكل أفضل , بالتوفيق .



السلام عليكم استاذ احمد



المشكلة فقط اريد تغيير من اداة Flexgrid  الى اداة  listview 

تم اضافة مثال بالمرفق وشكرا لك


الملفات المرفقة
.rar   Expire date.rar (الحجم : 40.23 ك ب / التحميلات : 42)
البحث
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , awidan76
Ahmed_Mansoor غير متصل
كبار الشخصيات
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة : 1,006
الشكر: 30850
تم شكره 22871 مرات في 2187 مشاركات

المشرف
#5
29-10-19, 12:06 AM
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إذا واجهتك رسالة خطأ عند تشغيل المثال قم بحذف أداة الليست فيو التي وضعتها على الفورم وضع أداة ليست فيو جديدة بدلها ثم شغل المثال , بالتوفيق .


الملفات المرفقة
.rar   Expiredate_1.rar (الحجم : 26.63 ك ب / التحميلات : 73)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
البحث
الرد }}}
تم الشكر بواسطة: 3booody , 3booody , sendbad100 , hannileo , Amir_Alzubidy , Amir_Alzubidy , awidan76
hannileo غير متصل
عضو مبدع
المشاركات : 158
المواضيع 57
الإنتساب : Aug 2017
السمعة : 1
الشكر: 162
تم شكره 147 مرات في 80 مشاركات
#6
29-10-19, 06:37 PM
(29-10-19, 12:06 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إذا واجهتك رسالة خطأ عند تشغيل المثال قم بحذف أداة الليست فيو التي وضعتها على الفورم وضع أداة ليست فيو جديدة بدلها ثم شغل المثال , بالتوفيق .


اشكرك استاذ احمد ابداع كالعادة 
بارك الله بك وبجهودك
البحث
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy , awidan76 , awidan76
Ahmed_Mansoor غير متصل
كبار الشخصيات
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة : 1,006
الشكر: 30850
تم شكره 22871 مرات في 2187 مشاركات

المشرف
#7
30-10-19, 09:01 AM
أهلا بك أخي الكريم , اللهم آمين وإياك , شكراً جزيلاً لك وجزاك الله كل خير وأرجو من الله لك دوام التوفيق والنجاح .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
البحث
الرد }}}
تم الشكر بواسطة: hannileo , hannileo , Amir_Alzubidy , awidan76


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] مرفق مشروع يظهر بيانات MSFLEXGRID ويصدرة للوورد والاكسيل king2512010 10 8,492 11-03-22, 04:19 PM
آخر رد: Taha Okla
  [vb6.0] طلب : كود عرض صورة معينة في داتا ريبورت - وتغييرها بمجرد تغيير اسمها... hamada salah90 3 1,820 24-05-21, 06:31 AM
آخر رد: Ahmed_Mansoor
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 4 3,936 19-03-21, 03:01 AM
آخر رد: mhqom2020
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 3 3,850 09-08-19, 02:23 AM
آخر رد: princeofislam
  تغيير حجم الصورة حامد محمد 2 2,423 22-01-19, 11:01 AM
آخر رد: حامد محمد
  اضافة زر امر الى اداة list view hannileo 8 3,344 04-12-18, 03:45 PM
آخر رد: hannileo
  اداة خرائط غوغل لم تعد تعمل hannileo 5 2,769 27-09-18, 02:18 PM
آخر رد: hannileo
  لا استطيع حفظ المشروع بعد اضافة اداة shockwaveflash ? Alhootti1 0 1,610 30-08-18, 08:01 PM
آخر رد: Alhootti1
  مساعدة بخصوص Listview haniblack 2 3,005 26-05-18, 02:56 PM
آخر رد: Abdellah
  [سؤال] كيف نقوم بالتعديل على خلية داخل msflexgrid ابن دوعن 3 3,107 07-05-18, 11:53 PM
آخر رد: safwan

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


يقوم بقرائة الموضوع: