Discussion :

[sanfour_walhan]

bonjour cher amis
sur mon application j'utulise une listview je je la charge apatir d'une base donnes
je veux dans mon listview faire colorer la ligne de list selon une donne trouver sur la list par exemple faire colorer en rouge la ligne qui contient le nom "Gerard" en rouge et la ligne qui contient le nom "Bernard" en vert
merci

[CSharpMan]

Slt il faut que tu derive le controle listView pour lui rajouter une propriete selectioncolor

[sanfour_walhan]

Mais comment svp

[Aspic]

Tu fais ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim TALigne as new ListViewItem("Cool")
 
If TaLigne.Text = "Gerard" Then
TaLigne.Forecolor (oiu BAckcolor) = COlor.Red
Else
TaLigine.FOrecolor (ou Backcolor) = COlor.Green
Endif
 
Listview1.Items.Add(TaLigne)

[sanfour_walhan]

j'ai essaiyer mais ca marche pas

[sanfour_walhan]

Voila mon code

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
54
55
56
57
58
59
 Dim c1 As OleDbCommand = New OleDbCommand(r1, con)
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(c1)
        da.Fill(ds, "ttt")
        Dim t As DataTable = New DataTable
        t = ds.Tables("ttt")
 
        Dim i As Integer
 
        For i = 0 To ds.Tables("ttt").Rows.Count - 1
 
            If IsDBNull(t.Rows(i).Item("heur")) Then
                ListView1.Items.Add("")
            Else
                ListView1.Items.Add(t.Rows(i).Item("heur"))
            End If
            ''''''''''''''''''''''''''''
            If IsDBNull(t.Rows(i).Item(1)) Then
                ListView1.Items(i).SubItems.Add("")
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(1))
            End If
            ''''''''''''''''''''''''''''''''
            If IsDBNull(t.Rows(i).Item(2)) Then
                ListView1.Items(i).SubItems.Add("")
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(2))
                ''''''''''''''''''''''''''''''
            End If
            ''''''''''''''''''''''''''''''
            If IsDBNull(t.Rows(i).Item(3)) Then
                ListView1.Items(i).SubItems.Add("")
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(3))
            End If
            ''''''''''''''''''''''''''''
            If IsDBNull(t.Rows(i).Item(4)) Then
                ListView1.Items(i).SubItems.Add("")
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(4))
            End If
            ''''''''''''''''''''''''''''''''
            If IsDBNull(t.Rows(i).Item(5)) Then
                ListView1.Items(i).SubItems.Add("")
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(5))
            End If
            '''''''''''''''''''''''''''''''''
            If IsDBNull(t.Rows(i).Item(6)) Then
                ListView1.Items(i).SubItems.Add("")
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(6))
            End If
            If t.Rows(i).Item(6) = "Dent a obturer" Then
                ListView1.Items(i).ForeColor = Color.Green
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(6))
            Else
                ListView1.Items(i).SubItems.Add(t.Rows(i).Item(6))
            End If
        Next

et j'ai une erreur de ce type
L'opérateur '=' n'est pas défini pour type 'DBNull' et chaîne "Dent a obturer".
que dois-je faire?

[Aspic]

C'est normal ce ne sont pas les memes types...

Mets Option Strict ON en haut de ton formulaire et tu va voir toutes tes erreurs de conversions implicites.