Discussion :

[fikou]

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 :

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

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

[grrrkewel]

Code :

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

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.

[OhMonBato]

Tu as cmobien de lignes de header ?

[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

[OhMonBato]

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

[fikou]

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

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
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