[VB6] Datagrid afficher ou cacher des colonnes par code

Version imprimable

Bonjour,
J'aimerai afficher ou cacher des colonnes d'un Datagrid dynamiquement, c'est à dire sur sélection dans une combo, j'affiche ou non une certaine colonne.
J'appelle la procédure suivante sur click sur ma combo
Code:

1 2 3 4 5 6 7 Public Sub subAfficherColconv() Dim bAfficher As Boolean bAfficher = (cb2Categorie.Text = cstMutuelle) DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher DataGridListeIdentifiant.Refresh End Sub
Si je sélectionne dans ma combo de façon à cacher la colonne, la colonne qui auparavant était affichée est cachée, jusque là c'est normal.
Mais si j'essaie de rafficher la colonne, elle n'est pas affichée mais j'ai quand même DataGridListeIdentifiant.Columns(edeb_conv).Visible = True.

NB le booléen bAfficher est bien à Faux quand je veux afficher la colonne, il n'y a pas d'erreur la dessus.
Lorsque la colonne est supposée être affichée on a bien
DataGridListeIdentifiant.Columns(edeb_conv).Visible = True

Je suis perdue :(
Pouvez-vous m'aider?
Merci beaucoup

En inversant les lignes de codes cela donne quoi ?

En remplaçant

Code:

1
2
3
4
5
6
7
 
Public Sub subAfficherColconv() 
    Dim bAfficher As Boolean 
    bAfficher = (cb2Categorie.Text = cstMutuelle) 
        DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher 
        DataGridListeIdentifiant.Refresh 
End Sub

par

Code:

1
2
3
4
5
6
7
 
Public Sub subAfficherColconv() 
    Dim bAfficher As Boolean 
    bAfficher = (cb2Categorie.Text = cstMutuelle) 
        DataGridListeIdentifiant.Refresh 
        DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher 
End Sub

06/02/2003, 14h38
soazig
Pas mieux.
A mon avis le Refresh ne sert à rien.
J'ai également essayé de redimensionner le datagrid , pour provoquer un réaffichage.
Code:

1 2 ' DataGridListeIdentifiant.Width = DataGridListeIdentifiant.Width - 100 DataGridListeIdentifiant.Width = DataGridListeIdentifiant.Width + 100
Sans plus de résultat.
D'autres idées?
06/02/2003, 16h11
bidou

essayes un redimensionnement de la colonne

J'ai essayé, voir ci dessous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub subAfficherColconv()
    Dim bAfficher As Boolean
    bAfficher = (cb2Categorie.Code = cstMutuelle) Or (cb2Categorie.Code = "")
 
        If bAfficher Then
            DataGridListeIdentifiant.Columns(edeb_conv).Width = 500
        Else
            DataGridListeIdentifiant.Columns(edeb_conv).Width = 0
        End If
        DataGridListeIdentifiant.Refresh
 End Sub

Ca ne marche pas mieux. Merci quand même.

j'ai fais le test suivant
Code:

1 2 3 4 5 6 7 8 9 Private Sub Form_Activate() Dim compteur As Long For compteur = 0 To DataGrid1.Columns.Count - 1 Combo1.AddItem DataGrid1.Columns(compteur).Caption Next compteur End Sub
et
Code:

1 2 3 4 5 Private Sub Combo1_Click() DataGrid1.Columns(Combo1.ListIndex).Visible = Not DataGrid1.Columns(Combo1.ListIndex).Visible End Sub
en selectionnant dans le combo j'ai bien l'affichage/masquage qui fonctionne parfaitement.
Par contre dans certains cas, le datagrid fait un scroll horizontale ce qui fait que la colonne n'apparait pas si je ne rescrolle pas

Merci Bidou,
En fait le problème vient du fait que c'est la première colonne (0) que je cache, si je cache une autre colonne pas de problème.
Mais ça ne m'arrange pas pour autant, ma colonne reste toujours cachée.
En fait j'ai trouvé, comme tu as parlé d'un problème de scrolling, j'ai défini la propriété leftcol et ça marche
Code:

1 2 3 4 5 6 7 8 9 10 Public Sub subAfficherColconv() Dim bAfficher As Boolean bAfficher = (cb2Categorie.Code = cstMutuelle) DataGridListeIdentifiant.Columns(edeb_conv).Visible = bAfficher If bAfficher Then DataGridListeIdentifiant.LeftCol = edeb_conv End If End Sub
Merci beaucoup, je vais de ce pas mettre résolu dans le titre.
NB: C'est bien ce que je disais le Refresh ne servait à rien