IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB6]MsflexGrid Backcolor


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Mai 2004
    Messages
    378
    Détails du profil
    Informations forums :
    Inscription : Mai 2004
    Messages : 378
    Par défaut [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

  2. #2
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    Salut

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

  3. #3
    Expert confirmé
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    Septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2002
    Messages : 3 673
    Par défaut
    c'est mon jour de bonté :
    Je suppose que ta grid est liée à un recordset que j'appelle rs :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  4. #4
    Membre éclairé
    Inscrit en
    Mai 2004
    Messages
    378
    Détails du profil
    Informations forums :
    Inscription : Mai 2004
    Messages : 378
    Par défaut RE
    Merci je vais essayer ce code.

Discussions similaires

  1. vb6- MSFlexGrid - base acess
    Par DUMEDO dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 08/09/2009, 09h32
  2. [VB6][MsFlexGrid] ScrollBars = 0 et première ligne invisible
    Par Phifi dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/08/2006, 14h39
  3. [VB6]msflexgrid => graphique
    Par fourgeaud dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 09/06/2006, 14h57
  4. [VB6]Msflexgrid
    Par badrel dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 09/04/2006, 19h04
  5. [VB6] Multiselection avec CTRL dans une msflexgrid
    Par Troopers dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 17/04/2003, 10h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo