Frage : VB6 MSFlexgrid in der Farbe wenn

Hallo möchten alle,

I die Reihe in graue Farbe einsetzen, wenn der Text in Spalte 2 und die Spalte 3 auf der gleichen Reihe das equal.

For ex sind: wenn auf Reihe 6, dem Text in Spalte 2 = 10 und dem Text in Spalte 3 = 10, sich dann es setzt, kann die Reihe 6 in einem grauen color.

How ich tun das zu gefallen?

Thanks für Ihr help.

Antwort : VB6 MSFlexgrid in der Farbe wenn

Ich denke, dass Sie ein einfacheres benötigen können, Lösung zu verstehen, um mit zu beginnen. Dieses kann helfen.
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:

Schwaches intRow als ganze Zahl
Schwaches intCol als ganze Zahl

Schwaches strColumn2 als Schnur
Schwaches strColumn3 als Schnur 

Für intRow = 0 zu MSFlexGrid1.Rows - 1
    
    '/Satz die Reihe    
    MSFlexGrid1.Row = intRow

    '/Überprüfung, wenn die Reihe 6 ist?
    Wenn intRow = 6 dann

        '/Inhalt der Sicherungsspalte 2
        MSFlexGrid1.Col = 2
        strColumn2 = MSFlexGrid1.Text    
    
        '/Inhalt der Sicherungsspalte 3
        MSFlexGrid1.Col = 3
        strColumn3 = MSFlexGrid1.Text

        Wenn strColumn2 = „10“ und strColumn3 = „10“ dann
    
            '/Schleife durch jede Spalte und ändern das backcolor
            Für intCol = 0 zu MSFlexGrid1.Cols - 1
                MSFlexGrid1.Col = intCol
                MSFlexGrid1.CellBackColor = vbGray '/oder irgendeine Farbe
            Zunächst

        Beenden wenn

    Beenden wenn

Zunächst
Weitere Lösungen  
 
programming4us programming4us