[VB6]MsflexGrid Backcolor

Version imprimable

19/03/2006, 19h18
badrel

[VB6]MsflexGrid Backcolor

Salut, jai déjà posé la meme question mais j'ai male m'exprimer.
J'ai une table qui contient un champs de type boolean(Oui,Non).
J'affiche les lignes de cette table par une msflixgrid, le probleme est le suivant:
je veux que le backcolor de chaque ligne de msflixgrid depond de la valeur du champs boolean, si le champs est oui la backcolor de la ligne sera verte, par contre si le champs est de la valeur non le backcolor de cette ligne devra etre rouge.
Merci
20/03/2006, 02h02
zazaraignée

Salut

Et tu bloques où dans ton code? On peut voir?

c'est mon jour de bonté : :lol:
Je suppose que ta grid est liée à un recordset que j'appelle rs :

Code:

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
Private Sub ColorGridline(ByRef MSHGrid As MSHFlexGrid, ByVal irow As Long, ByVal BkColor As Long)
    Dim icol As Integer
    Dim memRow As Integer, memCol As Integer
    With MSHGrid
        .Redraw = False
        .Row = irow
        For icol = 1 To .Cols - 1
            .Col = icol
            .CellBackColor = BkColor
        Next icol
        .Redraw = True
    End With
End Sub
 
Private Sub Command1_Click()
    rs.MoveFirst
    While Not rs.EOF
        If rs.Fields("Nomduchamp").Value = -1 Then
            ColorGridline MSHGrid1, rs.AbsolutePosition, vbGreen
        Else
            ColorGridline MSHGrid1, rs.AbsolutePosition, vbRed
        End If
        rs.MoveNext
    Wend
End Sub

20/03/2006, 13h21
badrel

RE

Merci je vais essayer ce code.