PDA

View Full Version : grid رنگی



archi
یک شنبه 17 اسفند 1382, 00:21 صبح
چه طوری میشه سطرهایی از grid رو که شرط خاصی دارند با رنگ خاصی نمایش داد؟

لیلاز
دوشنبه 23 آذر 1383, 10:57 صبح
با msflex grid میشه. باید col , row مورد نظر رو معین کنی و بعد cellcolor رو تغییر بدی.

Behrouz_Rad
دوشنبه 23 آذر 1383, 12:03 عصر
سلام.
اولا که CellColor نیستو CellForeColor و CellBackColor هست.
بعدشم این کد زیر که نوشتم به صورت یک در میان ردیف ها رو با رنگی که بهش گفتم رنگ می کنه:


Sub MSHGridColorCode()
Dim RowCounter, ColCounter As Integer
On Error GoTo ErrCancel
MSHFlexGrid1.Col = 0
MSHFlexGrid1.FillStyle = flexFillRepeat
Do Until MSHFlexGrid1.Col = MSHFlexGrid1.Cols
For RowCounter = 1 To MSHFlexGrid1.Rows Step 2
MSHFlexGrid1.Row = RowCounter
MSHFlexGrid1.CellForeColor = vbBlue
MSHFlexGrid1.CellBackColor = &HE0E0E0
Next
MSHFlexGrid1.Col = MSHFlexGrid1.Col + 1
Loop
MSHFlexGrid1.FillStyle = flexFillSingle
MSHFlexGrid1.Row = 1
ErrCancel:
If Err = cdlCancel Then Exit Sub
End Sub

این مال یه تیکه برنامه بود مال شرکت نفت آغاجری که 2 سال پیش با تیمم نوشتم.
موفق باشید.
بهروز راد
:wise1: