چطور میتونم سطرهای خاصی رو در vsflex8 رنگی کنم

[sehm67]

[LTR]
سلام خدمت همه استادان و دوستان

من میخواستم بدونم چطور میتونم سطر های خاصی از vsflex8 رو رنگی کنم

به طور مثال داخل لیست قیمت ها بگرده و قیمت هایی که 10,000 تومان بیشتر است و یا سطری که قیمت ها مساوی 15,000 تومان و ... رو با رنگ های خاصی نشون بدم.

یعنی تو vsflex8 جستجو کنم

اگر دوستان لطف کنن جواب بدن منون میشم.

با تشکر.

[butterfly8528]

سلام دوست عزیز.
یک VSFlexGrid بر روع فرمتون قرار بدید و کد زیر رو در فرمتون کپی کنید و پروژه رو اجرا کنید .




Private Sub Form_Load()

'www.arshamsoft.com

VSFlexGrid1.Rows = 10
VSFlexGrid1.Cols = 3

VSFlexGrid1.TextMatrix(0, 1) = "Title"
VSFlexGrid1.TextMatrix(0, 2) = "Price"

VSFlexGrid1.TextMatrix(1, 1) = "A"
VSFlexGrid1.TextMatrix(1, 2) = "9800"

VSFlexGrid1.TextMatrix(2, 1) = "B"
VSFlexGrid1.TextMatrix(2, 2) = "30000"


VSFlexGrid1.TextMatrix(3, 1) = "C"
VSFlexGrid1.TextMatrix(3, 2) = "7000"

VSFlexGrid1.TextMatrix(4, 1) = "D"
VSFlexGrid1.TextMatrix(4, 2) = "25700"


VSFlexGrid1.TextMatrix(5, 1) = "E"
VSFlexGrid1.TextMatrix(5, 2) = "550"

VSFlexGrid1.TextMatrix(6, 1) = "F"
VSFlexGrid1.TextMatrix(6, 2) = "9600"

VSFlexGrid1.TextMatrix(7, 1) = "G"
VSFlexGrid1.TextMatrix(7, 2) = "41000"

VSFlexGrid1.TextMatrix(8, 1) = "H"
VSFlexGrid1.TextMatrix(8, 2) = "13500"


VSFlexGrid1.TextMatrix(9, 1) = "I"
VSFlexGrid1.TextMatrix(9, 2) = "2550"


For i = 1 To VSFlexGrid1.Rows - 1

If Val(VSFlexGrid1.TextMatrix(i, 2)) > 20000 Then

For j = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Row = i
VSFlexGrid1.Col = j
VSFlexGrid1.CellBackColor = &HC0C0FF
Next j

ElseIf Val(VSFlexGrid1.TextMatrix(i, 2)) > 10000 Then

For j = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Row = i
VSFlexGrid1.Col = j
VSFlexGrid1.CellBackColor = &HC0FFFF
Next j

End If


Next i


End Sub



موفق و پیروز باشید :لبخندساده:.

[sehm67]

سلام دوست عزیز

تشکر از کدی که در اختیار من گذاشتید

خیلی به کد احتیاج داشتم

تشکر

[butterfly8528]

سلام دوست عزیز .
خواهش می کنم ، لطفا برای تشکر کردن فقط از دکمه تشکر استفاده کنید و اسپم ارسال نکنید :لبخندساده:.
لطفا مدیران این پست و پست قبلی رو حذف کنند .

[karimi64bit]

For k = 1 To fgsandogh1.Rows - 1
Select Case fgsandogh1.TextMatrix(k, 4)
Case Is = "0"
fgsandogh1.TextMatrix(k, 4) = "ÑÏÇÎÊ äÔÏå"
fgsandogh1.Cell(flexcpBackColor, k, 4) = &HC0FFFF
fgsandogh1.Cell(flexcpBackColor, k, fgsandogh1.FixedCols, k, fgsandogh1.Cols - 1) = &HC0FFFF
Case Is = "1"
fgsandogh1.TextMatrix(k, 4) = "ÑÏÇÎÊ ÔÏå"
fgsandogh1.Cell(flexcpBackColor, k, 4) = &HC0FFFF
fgsandogh1.Cell(flexcpBackColor, k, fgsandogh1.FixedCols, k, fgsandogh1.Cols - 1) = &HC0FFC0
Case Is = "2"
fgsandogh1.TextMatrix(k, 4) = "ÇÓÊÑÏÇÏ æÌå"
fgsandogh1.Cell(flexcpBackColor, k, 4) = &HC0FFFF
fgsandogh1.Cell(flexcpBackColor, k, fgsandogh1.FixedCols, k, fgsandogh1.Cols - 1) = &HC0E0FF
End Select
Next