Discussion :

[New31]

Bonjour tout le monde,

Je travaille sur la conception d'un chat dans le cadre d'un stage et j'ai un problème très bizarre.

Lorsque j'affiche les messages sur le chat, lors du premier chargement, voici ce que ça donne :



Jusque là, tout est parfait.
Le problème c'est que dès que j'ajoute un message, et que le DGV est rafraichi, ou bien dès que je scroll pour voir les messages plus haut, voici ce que j'obtiens :



Toutes les couleurs sont mélangées, et les cellules se chevauchent...

J'ai essayé ceci :

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
    Private Sub dgv_chat_scroll(sender As Object, e As ScrollEventArgs) Handles dgv_chat.Scroll
 
        For i = 0 To dgv_chat.RowCount - 1
            dgv_chat.Rows(i).Cells(0).Style.BackColor = Color.Black
            dgv_chat.Rows(i).Cells(1).Style.BackColor = Color.Black
            dgv_chat.Rows(i).Cells(2).Style.BackColor = Color.Black
            dgv_chat.Rows(i).Cells(3).Style.BackColor = Color.Black
            dgv_chat.Rows(i).Cells(4).Style.BackColor = Color.Black
            dgv_chat.Rows(i).Cells(5).Style.BackColor = Color.Black
        Next
 
        For i = 0 To dgv_chat.RowCount - 1
            If dgv_chat.Rows(i).Cells(2).Value = "" Then
                dgv_chat.Rows(i).Cells(2).Style.BackColor = Color.Transparent
                dgv_chat.Rows(i).Cells(4).Style.BackColor = Color.LightBlue
            Else
                dgv_chat.Rows(i).Cells(2).Style.BackColor = Color.FromArgb(147, 182, 216)
                dgv_chat.Rows(i).Cells(4).Style.BackColor = Color.Transparent
            End If
        Next
 
    End Sub

Mais cela ne change rien.

Est-ce que quelqu'un aurait une idée par hasard?
Merci beaucoup !