+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف يمكن التمييز لاصناف بلون مميز حسب شرط معين mshflexgrid (/showthread.php?tid=37244)
كيف يمكن التمييز لاصناف بلون مميز حسب شرط معين mshflexgrid - mhqom2020 - 21-12-20
لدي قاعدة بيانات اكسيس مربوطة بmshflexgrid1 كيف تمييز سطر يوم معين بلون اخر مثلا احمر
الرجاء المساعدة حاولت اجد حل لم اتطيع
كل الاحترام
RE: كيف يمكن التمييز لاصناف بلون مميز حسب شرط معين mshflexgrid - sendbad100 - 21-12-20
السلام عليكم
ضع هذا الكود في Command3_Click
PHP كود :
Private Sub Command3_Click()
' استدعاء الكود الموجود في LOAD
Call Form_Load
''''''''''''''''''''''''''''''''''''''''
Dim k As Integer
Dim T As Integer
'هذه الحلقة تمر على كل الصفوف
For k = 1 To mshflexgrid1.Rows - 1
mshflexgrid1.Row = k
If Trim(Text1.Text) = Trim(mshflexgrid1.TextMatrix(k, 1)) Then
'وهذه الحلقة تلون كل الصف
'يمكن الغائها وتلوين خلية واحة او حسب الحاجة
For T = 0 To mshflexgrid1.Cols - 1
mshflexgrid1.Col = T
mshflexgrid1.CellBackColor = RGB(255, 161, 224)
Next T
End If
Next k
mshflexgrid1.Col = 0
mshflexgrid1.Row = 0
End Sub
RE: كيف يمكن التمييز لاصناف بلون مميز حسب شرط معين mshflexgrid - mhqom2020 - 21-12-20
من لايشكر الناس لايشكر الله شكرا جزيلا للاستاذ sendbad100 والعاملين في هذا الصرح العلمي الكبير هذا هو المطلوب بالضبط بارك الله فيكم