Scroll automatique dans un DataGridView

Version imprimable

Bonjour,
J'ai un classement de 30 ligne à afficher dans un datagridView. Afin que cela soit lisible (projection avec un beamer) j'aimerai afficher les 15 premières lignes puis les 15 suivantes.

Dans un timer j'ai fait ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If dgvClassement.Rows.Count > 16 Then If iCmpt = 0 Then dgvClassement.FirstDisplayedScrollingRowIndex = iCmpt iCmpt = 15 Else dgvClassement.FirstDisplayedScrollingRowIndex = iCmpt iCmpt = 0 End If End If End Sub
mais cela ne m'affiche pas les 15 dernières lignes. Les lignes suivante s'affiche à partir du 12ème enregistrement à la place du 16ème.

Merci d'avance
Fikou

18/09/2008, 13h36
grrrkewel
Citation:
Code:

1 2 Dim iTest As Integer iTest = dgvClassement.Rows.Count
elle te sert à quoi cette variable?

comment initialise-tu iCmpt?

Je ne vois pas où est l'erreur, mais j'espère que mes questions te feront avancer... je test sur ma machine dès que j'ai un moment.

GrrrK.
18/09/2008, 13h42
OhMonBato

Tu as cmobien de lignes de header ?
18/09/2008, 13h58
fikou

Re,

GrrKewel
J'aurai du supprimer iTest j'ai juste servi pour déboguer
iCmpt est initialisé à 0 dans Formload

OhMonBato :
Que veut tu dire par lignes de header ?
J'affiche au début les 15 premier enregistremnt de la table puis les 15 suivants en cemoment je n'ai que 30 enregistrements je n'en aurai pas plus mais surement moins.
Ce classement sert pour un concour de tir, le jour du dit concour il y a toujours des absents.

Merci
@+FikoU
18/09/2008, 14h50
OhMonBato

Dans ton DataGridView, il n'y a pas de ligne d'entete qui restent toujours affichées ?

Oui j'ai une ligne d'entête qui reste affichée

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
dgvClassement.ColumnCount = 24
 
        With Me.dgvClassement
            '.SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
            .AllowUserToResizeColumns = False
            .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
         .RowTemplate.Height = 30
            .Columns(0).Width = 55
         .Columns(1).Width = 200 ''260
         .Columns(2).Width = 60
 
            .Columns(1).HeaderText = "Nom Prénom"
 
            .Columns(2).HeaderText = "Cible"
            .Columns(5).HeaderText = "Passe 1"
            .Columns(8).HeaderText = "Passe 2"
            .Columns(11).HeaderText = "Passe 3"
            .Columns(14).HeaderText = "Passe 4"
            .Columns(17).HeaderText = "Passe 5"
         .Columns(20).HeaderText = "Passe 6"
         .Columns(21).HeaderText = "Préc."
         .Columns(22).HeaderText = "Vit."
         .Columns(23).HeaderText = "Total"
 
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(5).DefaultCellStyle.ForeColor = Color.Red
            .Columns(8).DefaultCellStyle.ForeColor = Color.Red
            .Columns(11).DefaultCellStyle.ForeColor = Color.Red
            .Columns(14).DefaultCellStyle.ForeColor = Color.Red
            .Columns(17).DefaultCellStyle.ForeColor = Color.Red
            .Columns(20).DefaultCellStyle.ForeColor = Color.Red
            .Columns(21).DefaultCellStyle.ForeColor = Color.Red
        End With
 
      For i = 2 To 23
         Me.dgvClassement.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
      Next
        For i = 3 To 21
         Me.dgvClassement.Columns(i).Width = 33 ''35
        Next
 
        Me.dgvClassement.Columns(5).Width = 58
        Me.dgvClassement.Columns(8).Width = 58
        Me.dgvClassement.Columns(11).Width = 58
        Me.dgvClassement.Columns(14).Width = 58
        Me.dgvClassement.Columns(17).Width = 58
      Me.dgvClassement.Columns(20).Width = 58
 
      Me.dgvClassement.Columns(21).Width = 58
      Me.dgvClassement.Columns(22).Width = 58
      Me.dgvClassement.Columns(23).Width = 70

FikoU