Pytanie : VB6 MSFlexgrid w kolor jeżeli

Cześć/>For,

I polubić the rząd w szarość kolor jeżeli the tekst w kolumna 2 i kolumna 3 na the ten sam rząd być the equal.

For ten sam: jeżeli na rząd 6, the tekst w kolumna 2 = 10 i the tekst w kolumna 3 = 10, wtedy ono stawiać the rząd 6 w szarość color.

How móc i robić który zadawalać?

Thanks dla twój help.

Odpowiedź : VB6 MSFlexgrid w kolor jeżeli

I myśleć ty móc łatwy rozwiązanie z. To móc.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Ciemnawy intRow Jako Integer
Ciemnawy intCol Jako Integer

Ciemnawy strColumn2 Sznurek
Ciemnawy strColumn3 Sznurek 

Dla intRow = (0) MSFlexGrid1.Rows - (1)
    
    '/Set the rząd    
    MSFlexGrid1.Row = intRow

    '/Czek jeżeli the rząd być 6?
    Jeżeli intRow = 6 Wtedy

        '/Zdobycz kolumna 2 zawartość
        MSFlexGrid1.Col = 2
        strColumn2 = MSFlexGrid1.Text    
    
        '/Zdobycz kolumna 3 zawartość
        MSFlexGrid1.Col = 3
        strColumn3 = MSFlexGrid1.Text

        Jeżeli strColumn2 = "10" I strColumn3 = "10" Wtedy
    
            '/Pętla przez backcolor kolumna i zmieniać the backcolor
            Dla intCol = (0) MSFlexGrid1.Cols - (1)
                MSFlexGrid1.Col = intCol
                MSFlexGrid1.CellBackColor = vbGray '/Lub żadny barwić
            Następnie

        Kończyć Jeżeli

    Kończyć Jeżeli

Następnie
Inne rozwiązania  
 
programming4us programming4us