Discussion :

[pierre2410]

bonjour,
j'aimerais redimensionner chaque colonne de mon DBGrid avec une taille differente, je n'ai pas trouvé dans mon livre de vb ni dans l'aide, est ce que cela est possible dans une propriété de DBGrid1.Column(0) peut etre ? ou autre

merci d'avance
pierre

[Delbeke]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DBGrid1.Columns(0).Width = 3000

[pierre2410]

ca ne marche pas, cest ca que je comprend pas ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
    dcVArrivee.Connect = StrConnect
    dcVArrivee.DatabaseName = StrNomDB
 
    DBVArrivee.AllowRowSizing = False
    DBVArrivee.Columns(0).Width = 200
    DBVArrivee.Columns(1).Width = 5000
 
    Call Refresh_ListeVArrivee
End Sub

ca ne change absolument rien si je les met ces 2 lignes ou pas
quelqu'un sait comment faut il faire ?

cordialement
pierre

[Delbeke]

Le problème vient du fait que quand le recordset est (re)calculé, la grille reprends ses largeurs standard
Ajoute un timer a ta feuille, propriété enabled=false
Ce qui permettra de recalculer les colonnes apres le refresh

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
    dcVArrivee.Connect = StrConnect
    dcVArrivee.DatabaseName = StrNomDB
    Call Refresh_ListeVArrivee
    Timer1.Interval =10
    Timer1.Enabled = True 'lancer le calcul des largeurs de colonnes en différé
End Sub
 
Private Sub Timer1_Timer()
    Timer1.Enabled = False
    DBVArrivee.AllowRowSizing = False
    DBVArrivee.Columns(0).Width = 200
    DBVArrivee.Columns(1).Width = 5000
End Sub